該方法如下:
1.Alt+F11，打開VBA編輯界面，插入模塊，在模塊中輸入以下代碼:
函數拼音(p為字符串)為字符串
i = Asc(p)
選擇案例壹
案例-20319至-20318:拼音= "a "
.....(限於字數，中間部分省略)
案例-10254轉-10254:拼音= "左"
其他情況:拼音= p
結束選擇
結束功能
函數py(x)
對於i = 1到Len(x)
py = py & amp拼音(Mid(x，I，1))
接下來我
結束功能
2.返回Excel，輸入如下公式:
=py(A1)
3.下拉填充結果如下: