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

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

工具/原料

电脑

Excel 2007

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

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

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

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

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

5、在模块窗口的空白处粘贴以下内容。如下所示Function HanZiPinYin(p As String) As Stringi 租涫疼迟= Asc(p)Select Case iCase -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 = pEnd SelectEnd FunctionFunction hztopy(str)For i = 1 To Len(str)hztopy = hztopy & " " & HanZiPinYin(Mid(str, i, 1))Next iEnd Function

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

二，使用汉字转拼音函数

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

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

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