2.按“Alt+F11”進入Visual Basic的編輯狀態。這就是妳看到的灰色編輯界面。
3.執行“插入→模塊”命令，插入壹個新模塊。雙擊插入的模塊，進入模塊編碼編輯狀態；
4.看到如下界面
5.將以下所有內容復制並粘貼到步驟4中的空白處。
將內容復制到剪貼板
函數拼音(p為字符串)為字符串
i = Asc(p)
選擇案例壹
案例-20319至-20318:拼音= "a "
案例-20317至-20305:拼音= "ai "
案例-20304至-20296:拼音= "安"
Case -20295 To -20293: pinyin = "ang "
案例-20292至-20284:拼音= "ao "
案例-20283至-20266:拼音= "巴"
案例-20265 To -20258:拼音= "白"
Case -20257 To -20243: pinyin = "ban "
case-20242 To-20231:pinyin = " bang "
案例-20230至-20052:拼音= "鮑"
Case -20051 To -20037:拼音= "北"
Case -20036 To -20033: pinyin = "ben "
case-20032 To-20027:pinyin = " beng "
Case -20026 To -20003: pinyin = "bi "
case-20002 To-19991:pinyin = " bian "
案例-10587轉-10545:拼音= "zhi "
Case -10544 To -10534:拼音= "鐘"
案例-10533至-10520:拼音= "周"
案例-10519至-10332:拼音= "朱"
Case -10331到-10330: pinyin = "zhua "
Case -10329 To -10329:拼音= "zhuai "
Case -10328 To -10323:拼音= "zhuan "
案例-10322轉-10316:拼音= "莊"
case-10315 To-10310:pinyin = " zhui "
案例-10309至-10308:拼音= "準"
案例-10307轉-10297:拼音= "卓"
案例-10296轉-10282:拼音= "zi "
案例-10281到-10275:拼音= "宗"
案例-10274轉-10271:拼音= "鄒"
案例-10270轉-10263:拼音= "zu "
案例-10262轉-10261:拼音= "安祖"
案例-10260轉-10257:拼音= "zui "
案例-10256轉-10255:拼音= "zun "
案例-10254轉-10254:拼音= "左"
其他情況:拼音= p
結束選擇
結束功能
函數getpy(str)
For i = 1到Len(str)
getpy = getpy & amp拼音(Mid(str，I，1))
接下來我
結束功能
6.按ALT+Q關閉Visual Basic編輯窗口並返回Excel編輯狀態。
7.選擇需要放置轉換拼音的欄。例如，要將B列第二行的內容轉換為拼音並放入D列的第二個單元格中，請輸入公式:=getpy(B2)，其中B2是指源單元格的坐標。
8.如果妳想去掉拼音之間的空格。不帶空格的拼音放在列e中。如果不帶空格的數據原來在單元格D2中，而空格後的拼音放在單元格E2中，則在單元格E2中輸入:
=替換(D2，" "，"")