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

Question

如题所述

Answer 1

软件版本：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.下拉填充得到结果如下：

Answer 2

这个请在WORD中处理吧。请在格式中加注拼音。

Answer 3

参考资料：http://jingyan.baidu.com/article/cd4c2979ee7808756e6e6085.html本回答被提问者采纳