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、然后拖动填充柄，可以看到，第二列显示了汉字的首字母拼音。
1、1.打开一份Excel文档，在第一列输入一些中文汉字。
2.然后按下快捷键【Alt+F11】，调出VB宏编辑界面，然后点击上方的【插入】按钮。
3.然后点击【模块】，可以看到，会出现一个代码输入界面。
4.在代码界面输入代码，如图。
5.代码输入完成后，关闭Visual Basic编辑窗口，返回Excel编辑状态，然后在第二列第一行输入函数getpy(A1)，按下【Enter】键。
6.然后拖动填充柄，可以看到，第二列显示了汉字的首字母拼音。
