如何在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.下拉填充得到结果如下:

温馨提示:答案为网友推荐,仅供参考
第1个回答  2016-08-30
这个请在WORD中处理吧。请在格式中加注拼音。
第2个回答  2016-08-30
参考资料:http://jingyan.baidu.com/article/cd4c2979ee7808756e6e6085.html本回答被提问者采纳
相似回答