我们日常工作中，有需要将员工的姓名转成拼音，用于旅行和签证等场景，那么Excel汉字转拼音完美解决方案是什么呢？小编下面介绍具体的方法工具/原料more电脑Excel 2007一，创建汉字转拼音的函数（用VBA）1/6分步阅读

点击office按钮，选择Excel选项。如下图所示

2/6

在Excel选项窗口中，选择信任中心，点击信任中心设置。如下图所示

3/6

信任中心窗口下，选择宏设置，并选中“启用所有宏”，点击确定后，可以在开发工具下编辑宏啦。如下图所示

4/6

点击“Visual Basic”，出现编辑窗口，右键“VBAProject”,选择“插入”-》“模块”，出现模块编辑窗口。如下图所示

5/6

在模块窗口的空白处粘贴以下内容。如下所示

Function HanZiPinYin(p As String) As String

i = Asc(p)

Select Case i

Case -20319 To -20318: HanZiPinYin = a

Case -20317 To -20305: HanZiPinYin = ai

Case -20304 To -20296: HanZiPinYin = an

Case -20295 To -20293: HanZiPinYin = ang

Case -20292 To -20284: HanZiPinYin = ao

Case -20283 To -20266: HanZiPinYin = ba

Case -20265 To -20258: HanZiPinYin = bai

Case -20257 To -20243: HanZiPinYin = ban

Case -20242 To -20231: HanZiPinYin = bang

Case -20230 To -20052: HanZiPinYin = bao

Case -20051 To -20037: HanZiPinYin = bei

Case -20036 To -20033: HanZiPinYin = ben

Case -20032 To -20027: HanZiPinYin = beng

Case -20026 To -20003: HanZiPinYin = bi

Case -20002 To -19991: HanZiPinYin = bian

...................................(太长此处省略，有需要私信我)

Case -10254 To -10254: HanZiPinYin = zuo

Case Else: HanZiPinYin = p

End Select

End Function

Function hztopy(str)

For i = 1 To Len(str)

hztopy = hztopy HanZiPinYin(Mid(str, i, 1))

Next i

End Function

6/6

点击保存，关闭窗口，或者另存为启用宏的工作簿，可以利用该函数进行汉字转拼音。如下图所示

二，使用汉字转拼音函数1/3

输入拼音函数=hztopy(B2),按enter，转成拼音。如下图示

2/3

将拼音转成大写，输入函数=UPPER(C2)，按enter。如下图示

3/3

将拼音首字母转成大写，输入函数=PROPER(C2)，按enter。如下图示

总结1/2

一，创建汉字转拼音的函数（用VBA）

1，点击office按钮，选择Excel选项。

2，在Excel选项窗口中，选择信任中心，点击信任中心设置。

3，信任中心窗口下，选择宏设置，并选中“启用所有宏”，点击确定。

4，点击“Visual Basic”，右键“VBAProject”,选择“插入”-》“模块”。

5，在模块窗口的空白处粘贴函数代码内容。

6，点击保存，关闭窗口

2/2

二，使用汉字转拼音函数

1，输入拼音函数=hztopy(B2),按enter，转成拼音。

2，将拼音转成大写，输入函数=UPPER(C2)，按enter。

3，将拼音首字母转成大写，输入函数=PROPER(C2)，按enter。

注意事项

1，由于函数代码太长，有需要的可以私信我

2，觉得有帮助到您，帮忙投个票，关注一下小编，让作者有信心坚持写下去

EXCEL汉字转拼音拼音函数VBA