1、打开Excel中需要的表格
2、在键盘上按住“Alt+F11”组合键，进入Visual Basic编辑状态
3、在Visual Basi面板上方用鼠标左键单击“插入”选项，再在插入选择项里单击“喋碾翡疼模块”，插入一个新的模块，然后双击插入的模块，在插入的模块里进行编辑。
4、在编辑栏里复制如下内容：Function pinyin(p As String) 钽吟篑瑜As Stringi = Asc(p)Select Case iCase -20319 To -20318: pinyin = "a "Case -20317 To -20305: pinyin = "ai "Case -20304 To -20296: pinyin = "an "Case -20295 To -20293: pinyin = "ang "Case -20292 To -20284: pinyin = "ao "Case -20283 To -20266: pinyin = "ba "
5、复制完成后，在键盘上按住ALT+Q组合键，关闭Visual Basic编辑窗口，返回Excel编辑状态
6、如果需要将转换后的拼音放在B列，则在B补朱锚卦3单元格公式栏输入公式：=getpy(A3)，这里的A3，是指源头单元格的坐标。
7、单击回车键，返回结果
8、如果需要将其他名字也转换为拼音，则可直接选中B3单元格，下拉填充柄，得到其他转换后的拼音
