如何在excel中把汉字转换成拼音

软件版本：Office2013

方法如下：

1.Alt+F11，打开VBA编辑界面，插入模块，在模块中输入如下代码：

Function pinyin(p As String) As String

i = Asc(p)

Select Case i

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

……（受字数限制，中间部分省略）

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

Case Else: pinyin = p

End Select

End Function

Function py(x)

For i = 1 To Len(x)

py = py & pinyin(Mid(x, i, 1))

Next i

End Function

2.回到Excel中，输入公式如下：

=py（A1）

3.下拉填充得到结果如下：