如何将EXCEL表格中的汉字转为拼音

启动Excel （其它版本请仿照操作），打开相应的工作表；

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

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

将代码输入其中:

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 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

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

6.定义函数就可以用了，如：选中A2单元格，输入公式：=getpy(A2)。