excel 如何把“汉字”转换为“拼音首字母”?

如题所述

1、打开相应的Excel文件,按“Alt+F11”组合键,弹出“Visual Basic编辑器”。

2、鼠标点击“Visual Basic编辑器”菜单栏的“插入”选项,选择下拉列表里的“模块”,插入“模块”。

1.启动Excel 2003(其它版本请仿照操作),打开相应的工作表。

2.执行“工具→宏→Visual Basic编辑器”命令(或者直接按“Alt+F11”组合键),进入Visual Basic编辑状态。

3.执行“插入→模块”命令,插入一个新模块。再双击插入的模块,进入模块代码编辑状态。

4.将代码输入其中。

5.代码输入完成后,关闭Visual Basic编辑窗口,返回Excel编辑状态。

6.自定义函数就可以用了。

温馨提示:内容为网友见解,仅供参考
第1个回答  2020-03-04
1.启动Excel,打开相应的工作表。
2.执行“工具→宏→Visual Basic编辑器”命令(或者直接按“Alt+F11”组合键),进入Visual Basic编辑状态。
3.执行“插入→模块”命令,插入一个新模块。再双击插入的模块,进入模块代码编辑状态。
4.将代码输入其中。代码如下:
Function getpychar(char)

tmp = 65536 + Asc(char)

If (tmp >= 45217 And tmp <= 45252) Then

getpychar = "A"

ElseIf (tmp >= 45253 And tmp <= 45760) Then

getpychar = "B"

ElseIf (tmp >= 45761 And tmp <= 46317) Then

getpychar = "C"

ElseIf (tmp >= 46318 And tmp <= 46825) Then

getpychar = "D"

ElseIf (tmp >= 46826 And tmp <= 47009) Then

getpychar = "E"

ElseIf (tmp >= 47010 And tmp <= 47296) Then

getpychar = "F"

ElseIf (tmp >= 47297 And tmp <= 47613) Then

getpychar = "G"

ElseIf (tmp >= 47614 And tmp <= 48118) Then

getpychar = "H"

ElseIf (tmp >= 48119 And tmp <= 49061) Then

getpychar = "J"

ElseIf (tmp >= 49062 And tmp <= 49323) Then

getpychar = "K"

ElseIf (tmp >= 49324 And tmp <= 49895) Then

getpychar = "L"

ElseIf (tmp >= 49896 And tmp <= 50370) Then

getpychar = "M"

ElseIf (tmp >= 50371 And tmp <= 50613) Then

getpychar = "N"

ElseIf (tmp >= 50614 And tmp <= 50621) Then

getpychar = "O"

ElseIf (tmp >= 50622 And tmp <= 50905) Then

getpychar = "P"

ElseIf (tmp >= 50906 And tmp <= 51386) Then

getpychar = "Q"

ElseIf (tmp >= 51387 And tmp <= 51445) Then

getpychar = "R"

ElseIf (tmp >= 51446 And tmp <= 52217) Then

getpychar = "S"

ElseIf (tmp >= 52218 And tmp <= 52697) Then

getpychar = "T"

ElseIf (tmp >= 52698 And tmp <= 52979) Then

getpychar = "W"

ElseIf (tmp >= 52980 And tmp <= 53640) Then

getpychar = "X"

ElseIf (tmp >= 53679 And tmp <= 54480) Then

getpychar = "Y"

ElseIf (tmp >= 54481 And tmp <= 62289) Then

getpychar = "Z"

Else '如果不是中文,则不处理

getpychar = char

End If

End Function

'逐个取ASC码

Function getpy(str)

For i = 1 To Len(str)

getpy = getpy & getpychar(Mid(str, i, 1))

Next i

End Function
5.代码输入完成后,关闭Visual Basic编辑窗口,返回Excel编辑状态。
6.自定义函数就可以用了。如:选中A2单元格,输入公式:=getpy(A2)。
第2个回答  2018-01-05

    启动Excel 2003(其它版本请仿照操作),打开相应的工作表;

    执行“工具→宏→Visual Basic编辑器”命令(或者直接按“Alt+F11”组合键),进入Visual Basic编辑状态;

    执行“插入→模块”命令,插入一个新模块。再双击插入的模块,进入模块代码编辑状态;

    将代码输入其中;

    代码输入完成后,关闭Visual Basic编辑窗口,返回Excel编辑状态;

    自定义函数就可以用了,如:选中A2单元格,输入公式:=getpy(A2)。

excel如何将汉字转成拼音?
将汉字转成拼音的两种方法 首先,通过VBA创建自定义函数来获取拼音的首字母。在宏编辑器输入代码,并解释代码原理。代码中,字符串“八嚓哒妸发旮铪讥讥咔垃妈拿哦妑七然仨他哇哇哇夕丫匝咗”代表以字母BCDEFGHIJKLMNOPQRSTWXYZ为拼音首字母的所有字。Do Until…Loop…循环表示直到符合某个条件时停止...

如何在表格里将中文名转换成首字母大写?
一、首先打开Excel,然后按下Alt+F11打开Viaual Basic编辑器,点击插入,下拉菜单内点击模块。二、把准备好的汉字转拼音函数粘贴进来,需要注意的是,从网络上复制的函数每一行都会有一个回车,在模块内需要把段落之间的空行全部清除,段落前面的空格也需要给清除掉。三、多余回车和空格清除完毕后,关闭Viaua...

如何在excel中把汉字转换成拼音如何在excel中把汉字转换成拼音格式
1.首先用office Excel 2007打开文档;2.然后鼠标标定在D2单元格,输入公式“=getpy(C2)”,按回车键确认;3.我们就看到姓名一栏汉语拼音就自动出现了;4.选中D2单元格,鼠标放在单元格右下角,当出现“+”后,向下拖动鼠标;5.这样,姓名一栏所有的汉字都以拼音形式显示了;6.如果我们需要将拼音的首字母...

excel 如何把“汉字”转换为“拼音首字母”?
1、打开相应的Excel文件,按“Alt+F11”组合键,弹出“Visual Basic编辑器”。2、鼠标点击“Visual Basic编辑器”菜单栏的“插入”选项,选择下拉列表里的“模块”,插入“模块”。1.启动Excel 2003(其它版本请仿照操作),打开相应的工作表。2.执行“工具→宏→Visual Basic编辑器”命令(或者直接按“...

如何提取电子表格里的汉字首字母?
win10、EXCEl2019。1、我们需要仅提取汉字首字母,我们首先点击方方格子选项卡。2、点击文本这一选项卡。3、找到汉字转拼音选项并点击。4、出现对话框,我们选好我们的汉字区域,勾选好仅提取首字母之后点击确定。5、可以看到我们的公式设置完成啦点击确定。6、可以看到我们这一操作就完成。

excel公式汉字转换为大写拼音
,第三步:,第一步:),PY)&LOOKUP(MID(A第二步:,第四步:,第一步:),PY)。第四步:如图所示,汉字已经转换为首字母拼写。感谢大家对浓知百科网的支持,相关操作方法来源于网络,本篇内容主要是围绕excel公式汉字转换为大写拼音进行阐述,本文相关关键词还有:用公式将汉字转换成拼音首字母。

excel中如何将中文转换为拼音?
1、先将中文复制后,不带格式粘贴到word中(只保留文本),然后选取这些中文,点击拼音指南按钮,将这些文字全部标注上拼音。2、然后将这些带拼音的文字再复制粘贴至Excel中的某个单元格中如A1,在另外的单元格中(如A2)中输入,=PHONETIC(A1),确定。如果需将首字母变为大写,再加个PROPER()函数。

EXCEL技巧——导出汉字姓名首字母
我们在信息表里面要常常用到姓名,那么如何把姓名转化为拼音的首字母呢?这里我们来学习以下方法。导入一张含有姓名的表格,把姓名放到A列中,在B列中将要导出拼音。现在我们按住Alt+F11,打开VB编辑窗口,单击插入——模块,弹出代码编辑框。在代码编辑框中输入: Option Explicit Function PY(TT As ...

怎样能使EXCEL里的汉字变成拼音啊?
excel软件。1、首先使用officeExcel2007打开文档;2、然后在单元格D2中标记鼠标,输入公式"=getpy(C2) ",然后按回车键确认;3、我们就看到姓名一栏汉语拼音就自动出现了;4、选择单元格D2,将鼠标放在单元格的右下角,并在" "出现时向下拖动鼠标;5、这样,姓名一栏所有的汉字都以拼音形式显示了。

怎么从excel里提取汉字的拼音首字母呢?
1. 在Excel中输入姓名数据。2. 在另一个单元格中使用我们之前提到的汉字转拼音函数,将姓名转化为拼音。3. 使用Excel的LEFT函数,提取拼音的第一个字母。LEFT函数可以提取一个文本字符串的左侧部分字符。例如,如果我们的姓名是“张三”,我们将这个姓名转化为拼音“Zhang San”,...

相似回答