Excel 是我们最常用的办公软件，通过配合使用VBA脚本，能使我们的办公效率起到“事半功倍”的效果。接下来分享用 EXCEL VBA 实现 中文汉字自动转换为拼音的方法。工具/原料more Microsoft Excel 2016 （完整版）VBA 脚本文件.txt 资源下载链接：https://pan.baidu.com/s/1GWoTaHT3fgmC6cKN9RaJzw 提取码：kwxo准备工作1/2分步阅读

开启 Excel 2016 的 “开发工具”：

打开 Excel ，新建一个空白文件，在“功能区”任意空白处右键，选择“自定义功能区(R)...”，在右侧窗口中勾选“开发工具”，点击“确定”。

2/2

下载 专门制作的 “VBA 脚本文件.txt”

下载链接：https://pan.baidu.com/s/1GWoTaHT3fgmC6cKN9RaJzw 提取码：kwxo

方法/步骤1/7

建立输出表格样式，可参考如图：

实际工作中，根据自己需要建立格式。

2/7

将当前做好的 Excel 工作簿 另存为 “汉字转拼音.xlsm” 文件

点击“文件”--“另存为”--输入“文件名”--选择“Excel 启用宏的工作簿(*.xlsm)”--“保存”。

3/7

打开 VBA 开发环境：

点击菜单“开发环境”--选择“Visual Basic”。

4/7

新建 VBA 模块：

左侧任意对象上右键，选择“插入(N)”--“模块(M)”，即可打开模块的代码编辑窗口。

5/7

建立自定义 VBA 转换函数 GetPinYin()

打开下载好的“VBA 脚本文件.txt”文件，将所有代码复制并粘贴到“模块1（代码）”编辑框中，点击“保存”，点击“关闭”，回到 Excel 编辑界面。

（注意：是关闭 如图 VBA 的开发窗口）

6/7

按之前设定的格式位置输入 VBA 自定义函数并回车：

=GetPinYin(C3,1)

=GetPinYin(C7,0)

=GetPinYin(C11,0)

=CONCATENATE(D11,@163.com)

7/7

完工效果

函数说明1/1

自定义函数GetPinYin() 和 系统函数CONCATENATE() 参数说明。

注意事项

此功能仅能在微软（Microsoft）Excel 环境适用，WPS未测试。

Excel 软件一定要装完整版，精简版可能无法使用 VBA 功能，或者会有异常。

做完后记得保存退出。

下次再打开此类带有宏的工作薄（*.xlsm）时，会有宏安全提示，一定要选择启用，否则功能无法正常使用。

EXCELVBA中文转换拼音汉字转换拼音