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

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

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

1启动Excel 2003（其它版本请仿照 *** 作），打开相应的工作表。

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

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

4将代码输入其中。

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

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

1、首先在电脑桌面上打开excel文档。

2、然后输入公式“=getpy(C2)”。

3、此时就出现拼音了。

4、接着选中D2单元格，向下拖动鼠标。

5、所有姓名都自动生成拼音了。

6、输入公式“=PROPER(D2)”，按回车确认，可以将首字母改成大写。

7、最后首字母就变成大写了。

注意事项：

1、在使用excel表格的时候，不要随意的按enter和空白键。

2、要善于利用excel表格里面的快捷键，进行excel表格的编辑。

3、在使用excel表格的时候，一定要定时的进行保存。

4、在使用excel表格的时候，一旦有不懂的问题，一定要及时的向专业人员进行咨询。

这是自定义函数，在Viaual Basic编辑器输入代码，自定义一个getpy函数，具体作用多种多样，这里以自定义汉字转拼音为例，给出使用的方法：

所需材料：Excel、汉字转拼音代码（可通过网络复制）。

一、首先打开Excel，然后进入“开发工具”选项卡下，点击打开“Viaual Basic编辑器”。

二、进入Viaual Basic编辑器后，点击工具栏“插入”，然后点击“模块”。

三、在打开的模块内，粘贴上复制的汉字转拼音代码，Alt+F11关闭Viaual Basic编辑器。

四、回到Excel内，在其它单元格内输入“=getpy(A1)”。

五、点击回车键后可得到A1单元格内文字的拼音，下拉即可填充。

把EXCEL表格里的中文替换为拼音的步骤（以EXCEL 2007为例）：

1、点开始菜单——查找和选择——替换；

2、查找内容：输入中文，例如：百度；

替换为：输入拼音，例如：baidu，点全部替换。

打开Excel->工具->宏->Viaual Basic编辑器

在d出来的窗口中对着VBAproject点右键->插入->模块

下面会出现一个名为"模块1"，点击

在右边的空白栏中粘贴以下内容：

Function pinyin(p As String) As String

i = Asc(p)

Select Case i

Case -20319 To -20284: pinyin = "A"

Case -20283 To -19776: pinyin = "B"

Case -19775 To -19219: pinyin = "C"

Case -19218 To -18711: pinyin = "D"

Case -18710 To -18527: pinyin = "E"

Case -18526 To -18240: pinyin = "F"

Case -18239 To -17923: pinyin = "G"

Case -17922 To -17418: pinyin = "H"

Case -17417 To -16475: pinyin = "J"

Case -16474 To -16213: pinyin = "K"

Case -16212 To -15641: pinyin = "L"

Case -15640 To -15166: pinyin = "M"

Case -15165 To -14923: pinyin = "N"

Case -14922 To -14915: pinyin = "O"

Case -14914 To -14631: pinyin = "P"

Case -14630 To -14150: pinyin = "Q"

Case -14149 To -14091: pinyin = "R"

Case -14090 To -13319: pinyin = "S"

Case -13318 To -12839: pinyin = "T"

Case -12838 To -12557: pinyin = "W"

Case -12556 To -11848: pinyin = "X"

Case -11847 To -11056: pinyin = "Y"

Case -11055 To -2050: pinyin = "Z"

Case Else: pinyin = p

End Select

End Function

Function getpy(str)

For i = 1 To Len(str)

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

Next i

End Function

复制到此结束,本行不复制

现在转换函数已编写完成!关掉此编缉的窗口。

要在Excel中使用，方法如下：

A1 A2

中国 =getpy(A1)

　其实excel2007中有一个功能，能将汉字转成拼音，下面跟我来试试excel2007汉字转拼音功能吧。希望对你有帮助！

　excel2007汉字转拼音功能的使用步骤

　首先先在工具箱点开汉字转拼音功能。

excel2007汉字转拼音功能的使用步骤图1

　功能界面：

excel2007汉字转拼音功能的使用步骤图2 将 Excel 2007小写金额转换为大写金额的 方法

　请看一下效果图，A例是小写金额，B例为大写金额，第4行为有元角分的转换效果，5-6行可以看出是可以四舍五入的，第7行是只有角没有元和分的转换，第8行是只有元没有角和分的转换，第9行是只有分的转换，第10行中数值为零是的效果。

　全部公式：

　=IF(INT(A4),TEXT(INT(A4),"[dbnum2]")&"元","")&IF(INT(A410)-INT(A4)10,TEXT(INT(A410)-INT(A4)10,"[dbnum2]")&"角",)&IF(INT(ROUND(A4,2)100)-INT(ROUND(A4,2)10)10,TEXT(INT(ROUND(A4,2)100)-INT(ROUND(A4,2)10)10,"[dbnum2]")&"分",IF(INT(A4),"整",IF(INT(A410)-INT(A4)10,"整","")))

　第一步：先用　INT　函数判断元的位置数字是否为零，IF(INT(A4),TEXT(INT(A4),"[dbnum2]")&"元","")如果不为零，用　TEXT 函数加单元格格式"[dbnum2]"转换成大写数字，再用&符号链接"元"，如果为零则为空。

　第二步：用 & 链接附链接角位函数公式， IF(INT(A410)-INT(A4)10,TEXT(INT(A410)-INT(A4)10,"[dbnum2]")&"角",)，INT(A410)是先乘以10再取整，如果角位不为零，取整后最后一位不为零，否则取整后最后一位一定为零，INT(A4)10是先取整后乘10，结果最后一位一定为零，如：A4=128 ,INT(A410)=12,INT(A4)10=10INT(A410)-INT(A4)10=2

　用　TEXT 加单元格格式"[dbnum2]"转换成大写数字，再用&符号链接"角"。

　第三步：同上方法判断分位是否为零，只是加了一个 ROUND(A4,2) 函数取小数点后的二位小数，目的是为了引用计算结果不是二位小数的数值，并把他们四舍五入IF(INT(ROUND(A4,2)100)-INT(ROUND(A4,2)10)10,TEXT(INT(ROUND(A4,2)100)-INT(ROUND(A4,2)10)10,"[dbnum2]")&"分"

　第四步：IF(INT(A4),"整",IF(INT(A410)-INT(A4)10,"整",""))判断一下什么情况下输出“整”字，大家知道，只有在没有分的情况下才输出“整”字，所以要用INT(A410)判断一下元位，和用INT(A4)10判断一下角位了。

>>>下一页更多精彩“excel2007简繁体转换功能使用教程”

有时候在记录一些文字时需要用到拼音，如果自己用手一个个输入会显得非常麻烦，那么该如何将汉字直接转换成拼音呢，这里和大家简单介绍一下，供大家参考，希望对大家能有所帮助。

01

首先打开excel表格，在里面输入一些自己要拼音的汉字，有些人就是想直接在表格中输入拼音，然后点击列，点击鼠标右键，然后选择复制，这时候就复制好了，然后打开word文档，将复制内容黏贴进来即可。

02

接着点击开始处，然后找到拼音指南，如图所示是一个文字，还有拼音的符号，直接点击这个即可。

03

然后设置好拼音的字体大小即可，接着点击确定，这时候就能在word文档中看到文字都加上拼音了，非常快速。

04

将带有拼音的文字一个个复制到excel中来就行了，这样在表格中也能很快得到拼音，最后将文字删除掉就可以了。

1、打开要转换成拼音的excel表格

2、按“Alt+F11”组合键，进入Visual Basic编辑状态。也就是看到的这个灰色的编辑界面

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

4、看到如下界面

5、把下面的所有内容复制，粘贴到步骤4中的空白处

复制内容到剪贴板

Function pinyin(p As String) As String

i = Asc(p)

Select Case i

Case -20319 To -20318: pinyin = "a "

Case -20317 To -20305: pinyin = "ai "

Case -20304 To -20296: pinyin = "an "

Case -20295 To -20293: pinyin = "ang "

Case -20292 To -20284: pinyin = "ao "

Case -20283 To -20266: pinyin = "ba "

Case -20265 To -20258: pinyin = "bai "

Case -20257 To -20243: pinyin = "ban "

Case -20242 To -20231: pinyin = "bang "

Case -20230 To -20052: pinyin = "bao "

Case -20051 To -20037: pinyin = "bei "

Case -20036 To -20033: pinyin = "ben "

Case -20032 To -20027: pinyin = "beng "

Case -20026 To -20003: pinyin = "bi "

Case -20002 To -19991: pinyin = "bian "

Case -10587 To -10545: pinyin = "zhi "

Case -10544 To -10534: pinyin = "zhong "

Case -10533 To -10520: pinyin = "zhou "

Case -10519 To -10332: pinyin = "zhu "

Case -10331 To -10330: pinyin = "zhua "

Case -10329 To -10329: pinyin = "zhuai "

Case -10328 To -10323: pinyin = "zhuan "

Case -10322 To -10316: pinyin = "zhuang "

Case -10315 To -10310: pinyin = "zhui "

Case -10309 To -10308: pinyin = "zhun "

Case -10307 To -10297: pinyin = "zhuo "

Case -10296 To -10282: pinyin = "zi "

Case -10281 To -10275: pinyin = "zong "

Case -10274 To -10271: pinyin = "zou "

Case -10270 To -10263: pinyin = "zu "

Case -10262 To -10261: pinyin = "zuan "

Case -10260 To -10257: pinyin = "zui "

Case -10256 To -10255: pinyin = "zun "

Case -10254 To -10254: pinyin = "zuo "

Case Else: pinyin = p

End Select

End Function

Function getpy(str)

For i = 1 To Len(str)

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

Next i

End Function

6、按下ALT+Q关闭Visual Basic编辑窗口，返回Excel编辑状态

7、选中转换后的拼音需要放在哪个列，例如要把B列的第2行的内容转换成拼音，放在D列的第2个单元格，输入公式：=getpy(B2)，这里的B2，是指源头单元格的坐标

8、如果要去除拼音之间的空格。去掉空格的拼音放在E列，如果这个未去掉空格的数据原来在D2单元格，去掉空格之后的拼音放在E2单元格，则在E2单元格输入：

=SUBSTITUTE(D2," ","")