excel汉字转拼音完美解决方案

excel汉字转拼音完美解决方案

我们日常工作中，有需要将员工的姓名转成拼音，用于旅行和签证等场景，那么Excel汉字转拼音完美解决方案是什么呢？小编下面介绍具体的方法

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

6，点击保存，关闭窗口

二，使用汉字转拼音函数

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

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

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