把excel中把汉字转换成拼音(只取首字母)？

1.打开一份Excel文档，在第一列输入一些中文汉字。

2.然后按下快捷键【Alt+F11】，调出VB宏编辑界面，然后点击上方的【插入】按钮。

3.然后点击【模块】，可以看到，会出现一个代码输入界面。

4.在代码界面输入代码：

Function pinyin(p As String) As String

i = Asc(p)

Select Case i

Case -20319 To -20284: pinyin = “A”

Case -20283 To -19776: pinyin = “B”

…

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

如图。

5.代码输入完成后，关闭Visual Basic编辑窗口，返回Excel编辑状态，然后在第二列第一行输入函数getpy(A1)，按下【Enter】键。

6.然后拖动填充柄，可以看到，第二列显示了汉字的首字母拼音。