Microsoft Excel 2016 VBA 中文汉字转换成拼音

1、建立输出表格样式，可参考如图：实际工作中，根据自己需要建立格式。

2、将当前做好的 Excel 工作簿 另存为 “汉字转拼音.xlsm” 文件点击“文件”--“另存为”--输入“文件名”--选择“Excel 启用宏的工作簿(*.xlsm)”--“保存”。

3、打开 VBA 开发环境：点击菜单“开发环境”--选择“Visual Basic”。

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

5、建立自定义 VBA 转换函数 GetPinYin()打开下载好的“VBA 脚本文件.txt”文件，将所有代码复制并粘贴到“模块1（代码）”编辑框中，点击“保存”，盼内溲铫点击“关闭”，回到 Excel 编辑界面。（注意：是关闭 如图 VBA 的开发窗口）

6、按之前设定的格式位置输入 VBA 自定义函数并回车：=GetPinYin(C3,1)=GetPinYin(C7,0)=GetPinYin(C11,0)=CONCATEN帆歌达缒ATE(D11,"@163.com")

7、完工效果