在使用excel时，有时需要将汉字转换成拼音，那么该如何操作呢？今天小编就教你：把excel中把汉字转换成拼音(只取首字母)？其中，Mac平台上的操作方式和Windows平台基本一致。工具/原料more设备：个人电脑系统：Windows10Excel2019方法/步骤1/6分步阅读

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

2/6

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

3/6

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

4/6

在代码界面输入代码：

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/6

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

6/6

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

总结1/1

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

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

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

4.在代码界面输入代码，如图。

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

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

注意事项

tips：可以修改代码，自定义函数，这样比较方便。

本篇如果帮助到了你，请帮忙点赞，投票，谢谢~

EXCEL