excel中把汉字转换成拼音的方法

　　把下面的内容复制粘贴到第四个步骤打开的界面中，并保存，参考下图操作。

　　Function pinyin(p As String) As String

　　i = Asc(p)

　　Select Case i

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

　　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

excel中把汉字转换成拼音的方法图5