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

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

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

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

4、在代码界面输入代码：Function pinyin(p As String) As Stringi = Asc(p)Select Case iCase -20319 To -20284: pinyin = "A"Case -20283 To -19776: pinyin = "B"...Case Else: pinyin = pEnd SelectEnd FunctionFunction getpy(str)For i = 1 To Len(str)getpy = getpy & pinyin(Mid(str, i, 1))Next iEnd Function如图。

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

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