软件版本：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.下拉填充得到结果如下：
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024