Excel中汉字转拼音的VB代码

操作步骤：

1、打开要转换成拼音的excel表格

2、按“Alt+F11”组合键，进入Visual Basic编辑状态，灰色的编辑界面

3、执行“插入→模块”命令，插入一个新模块。再双击插入的模块，进入模块代码编辑状态；

4、如下界面

5、把下代码粘贴到步骤4中的空白处

代码如下：

Function pinyin(p As String) As String
  
i = Asc(p)
  
Select Case i
  
Case -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 "
  
Case -20265 To -20258: pinyin = "Bai "
  
Case -20257 To -20243: pinyin = "Ban "
  
Case -20242 To -20231: pinyin = "Bang "
  
Case -20230 To -20052: pinyin = "Bao "
  
Case -20051 To -20037: pinyin = "Bei "
  
Case -20036 To -20033: pinyin = "Ben "
  
Case -20032 To -20027: pinyin = "Beng "
  
Case -20026 To -20003: pinyin = "Bi "
  
Case -20002 To -19991: pinyin = "Bian "
  
Case -19990 To -19987: pinyin = "Biao "
  
Case -19986 To -19983: pinyin = "Bie "
  
Case -19982 To -19977: pinyin = "Bin "
  
Case -19976 To -19806: pinyin = "Bing "
  
Case -19805 To -19785: pinyin = "Bo "
  
Case -19784 To -19776: pinyin = "Bu "
  
Case -19775 To -19775: pinyin = "Ca "
  
Case -19774 To -19764: pinyin = "Cai "
  
Case -19763 To -19757: pinyin = "Can "
  
Case -19756 To -19752: pinyin = "Cang "
  
Case -19751 To -19747: pinyin = "Cao "
  
Case -19746 To -19742: pinyin = "Ce "
  
Case -19741 To -19740: pinyin = "Ceng "
  
Case -19739 To -19729: pinyin = "Cha "
  
Case -19728 To -19726: pinyin = "Chai "
  
Case -19725 To -19716: pinyin = "Chan "
  
Case -19715 To -19541: pinyin = "Chang "
  
Case -19540 To -19532: pinyin = "Chao "
  
Case -19531 To -19526: pinyin = "Che "
  
Case -19525 To -19516: pinyin = "Chen "
  
Case -19515 To -19501: pinyin = "Cheng "
  
Case -19500 To -19485: pinyin = "Chi "
  
Case -19484 To -19480: pinyin = "Chong "
  
Case -19479 To -19468: pinyin = "Chou "
  
Case -19467 To -19290: pinyin = "Chu "
  
Case -19289 To -19289: pinyin = "Chuai "
  
Case -19288 To -19282: pinyin = "Chuan "
  
Case -19281 To -19276: pinyin = "Chuang "
  
Case -19275 To -19271: pinyin = "Chui "
  
Case -19270 To -19264: pinyin = "Chun "
  
Case -19263 To -19262: pinyin = "Chuo "
  
Case -19261 To -19250: pinyin = "Ci "
  
Case -19249 To -19244: pinyin = "Cong "
  
Case -19243 To -19243: pinyin = "Cou "
  
Case -19242 To -19239: pinyin = "Cu "
  
Case -19238 To -19236: pinyin = "Cuan "
  
Case -19235 To -19228: pinyin = "Cui "
  
Case -19227 To -19225: pinyin = "Cun "
  
Case -19224 To -19219: pinyin = "Cuo "
  
Case -19218 To -19213: pinyin = "Da "
  
Case -19212 To -19039: pinyin = "Dai "
  
Case -19038 To -19024: pinyin = "Dan "
  
Case -19023 To -19019: pinyin = "Dang "
  
Case -19018 To -19007: pinyin = "Dao "
  
Case -19006 To -19004: pinyin = "De "
  
Case -19003 To -18997: pinyin = "Deng "
  
Case -18996 To -18978: pinyin = "Di "
  
Case -18977 To -18962: pinyin = "Dian "
  
Case -18961 To -18953: pinyin = "Diao "
  
Case -18952 To -18784: pinyin = "Die "
  
Case -18783 To -18775: pinyin = "Ding "
  
Case -18774 To -18774: pinyin = "Diu "
  
Case -18773 To -18527: pinyin = "Dong "
  
Case -18526 To -18519: pinyin = "Fa "
  
Case -18518 To -18502: pinyin = "Fan "
  
Case -18501 To -18491: pinyin = "Fang "
  
Case -18490 To -18479: pinyin = "Fei "
  
Case -18478 To -18464: pinyin = "Fen "
  
Case -18463 To -18449: pinyin = "Feng "
  
Case -18448 To -18448: pinyin = "Fo "
  
Case -18447 To -18447: pinyin = "Fou "
  
Case -18446 To -18240: pinyin = "Fu "
  
Case -18239 To -18238: pinyin = "Ga "
  
Case -18237 To -18232: pinyin = "Gai "
  
Case -18231 To -18221: pinyin = "Gan "
  
Case -18220 To -18212: pinyin = "Gang "
  
Case -18211 To -18202: pinyin = "Gao "
  
Case -18201 To -18185: pinyin = "Ge "
  
Case -18184 To -18184: pinyin = "Gei "
  
Case -18183 To -18182: pinyin = "Gen "
  
Case -18181 To -18013: pinyin = "Geng "
  
Case -18012 To -17998: pinyin = "Gong "
  
Case -17997 To -17989: pinyin = "Gou "
  
Case -17988 To -17971: pinyin = "Gu "
  
Case -17970 To -17965: pinyin = "Gua "
  
Case -17964 To -17962: pinyin = "Guai "
  
Case -17961 To -17951: pinyin = "Guan "
  
Case -17950 To -17948: pinyin = "Guang "
  
Case -17947 To -17932: pinyin = "Gui "
  
Case -17931 To -17929: pinyin = "Gun "
  
Case -17928 To -17923: pinyin = "Guo "
  
Case -17922 To -17760: pinyin = "Ha "
  
Case -17759 To -17753: pinyin = "Hai "
  
Case -17752 To -17734: pinyin = "Han "
  
Case -17733 To -17731: pinyin = "Hang "
  
Case -17730 To -17722: pinyin = "Hao "
  
Case -17721 To -17704: pinyin = "He "
  
Case -17703 To -17702: pinyin = "Hei "
  
Case -17701 To -17698: pinyin = "Hen "
  
Case -17697 To -17693: pinyin = "Heng "
  
Case -17692 To -17684: pinyin = "Hong "
  
Case -17683 To -17677: pinyin = "Hou "
  
Case -17676 To -17497: pinyin = "Hu "
  
Case -17496 To -17488: pinyin = "Hua "
  
Case -17487 To -17483: pinyin = "Huai "
  
Case -17482 To -17469: pinyin = "Huan "
  
Case -17468 To -17455: pinyin = "Huang "
  
Case -17454 To -17434: pinyin = "Hui "
  
Case -17433 To -17428: pinyin = "Hun "
  
Case -17427 To -17418: pinyin = "Huo "
  
Case -17417 To -17203: pinyin = "Ji "
  
Case -17202 To -17186: pinyin = "Jia "
  
Case -17185 To -16984: pinyin = "Jian "
  
Case -16983 To -16971: pinyin = "Jiang "
  
Case -16970 To -16943: pinyin = "Jiao "
  
Case -16942 To -16916: pinyin = "Jie "
  
Case -16915 To -16734: pinyin = "Jin "
  
Case -16733 To -16709: pinyin = "Jing "
  
Case -16708 To -16707: pinyin = "Jiong "
  
Case -16706 To -16690: pinyin = "Jiu "
  
Case -16689 To -16665: pinyin = "Ju "
  
Case -16664 To -16658: pinyin = "Juan "
  
Case -16657 To -16648: pinyin = "Jue "
  
Case -16647 To -16475: pinyin = "Jun "
  
Case -16474 To -16471: pinyin = "Ka "
  
Case -16470 To -16466: pinyin = "Kai "
  
Case -16465 To -16460: pinyin = "Kan "
  
Case -16459 To -16453: pinyin = "Kang "
  
Case -16452 To -16449: pinyin = "Kao "
  
Case -16448 To -16434: pinyin = "Ke "
  
Case -16433 To -16430: pinyin = "Ken "
  
Case -16429 To -16428: pinyin = "Keng "
  
Case -16427 To -16424: pinyin = "Kong "
  
Case -16423 To -16420: pinyin = "Kou "
  
Case -16419 To -16413: pinyin = "Ku "
  
Case -16412 To -16408: pinyin = "Kua "
  
Case -16407 To -16404: pinyin = "Kuai "
  
Case -16403 To -16402: pinyin = "Kuan "
  
Case -16401 To -16394: pinyin = "Kuang "
  
Case -16393 To -16221: pinyin = "Kui "
  
Case -16220 To -16217: pinyin = "Kun "
  
Case -16216 To -16213: pinyin = "Kuo "
  
Case -16212 To -16206: pinyin = "La "
  
Case -16205 To -16203: pinyin = "Lai "
  
Case -16202 To -16188: pinyin = "Lan "
  
Case -16187 To -16181: pinyin = "Lang "
  
Case -16180 To -16172: pinyin = "Lao "
  
Case -16171 To -16170: pinyin = "Le "
  
Case -16169 To -16159: pinyin = "Lei "
  
Case -16158 To -16156: pinyin = "Leng "
  
Case -16155 To -15960: pinyin = "Li "
  
Case -15959 To -15959: pinyin = "Lia "
  
Case -15958 To -15945: pinyin = "Lian "
  
Case -15944 To -15934: pinyin = "Liang "
  
Case -15933 To -15921: pinyin = "Liao "
  
Case -15920 To -15916: pinyin = "Lie "
  
Case -15915 To -15904: pinyin = "Lin "
  
Case -15903 To -15890: pinyin = "Ling "
  
Case -15889 To -15879: pinyin = "Liu "
  
Case -15878 To -15708: pinyin = "Long "
  
Case -15707 To -15702: pinyin = "Lou "
  
Case -15701 To -15682: pinyin = "Lu "
  
Case -15681 To -15668: pinyin = "Lv "
  
Case -15667 To -15662: pinyin = "Luan "
  
Case -15661 To -15660: pinyin = "Lue "
  
Case -15659 To -15653: pinyin = "Lun "
  
Case -15652 To -15641: pinyin = "Luo "
  
Case -15640 To -15632: pinyin = "Ma "
  
Case -15631 To -15626: pinyin = "Mai "
  
Case -15625 To -15455: pinyin = "Man "
  
Case -15454 To -15449: pinyin = "Mang "
  
Case -15448 To -15437: pinyin = "Mao "
  
Case -15436 To -15436: pinyin = "Me "
  
Case -15435 To -15420: pinyin = "Mei "
  
Case -15419 To -15417: pinyin = "Men "
  
Case -15416 To -15409: pinyin = "Meng "
  
Case -15408 To -15395: pinyin = "Mi "
  
Case -15394 To -15386: pinyin = "Mian "
  
Case -15385 To -15378: pinyin = "Miao "
  
Case -15377 To -15376: pinyin = "Mie "
  
Case -15375 To -15370: pinyin = "Min "
  
Case -15369 To -15364: pinyin = "Ming "
  
Case -15363 To -15363: pinyin = "Miu "
  
Case -15362 To -15184: pinyin = "Mo "
  
Case -15183 To -15181: pinyin = "Mou "
  
Case -15180 To -15166: pinyin = "Mu "
  
Case -15165 To -15159: pinyin = "Na "
  
Case -15158 To -15154: pinyin = "Nai "
  
Case -15153 To -15151: pinyin = "Nan "
  
Case -15150 To -15150: pinyin = "Nang "
  
Case -15149 To -15145: pinyin = "Nao "
  
Case -15144 To -15144: pinyin = "Ne "
  
Case -15143 To -15142: pinyin = "Nei "
  
Case -15141 To -15141: pinyin = "Nen "
  
Case -15140 To -15140: pinyin = "Neng "
  
Case -15139 To -15129: pinyin = "Ni "
  
Case -15128 To -15122: pinyin = "Nian "
  
Case -15121 To -15120: pinyin = "Niang "
  
Case -15119 To -15118: pinyin = "Niao "
  
Case -15117 To -15111: pinyin = "Nie "
  
Case -15110 To -15110: pinyin = "Nin "
  
Case -15109 To -14942: pinyin = "Ning "
  
Case -14941 To -14938: pinyin = "Niu "
  
Case -14937 To -14934: pinyin = "Nong "
  
Case -14933 To -14931: pinyin = "Nu "
  
Case -14930 To -14930: pinyin = "Nv "
  
Case -14929 To -14929: pinyin = "Nuan "
  
Case -14928 To -14927: pinyin = "Nue "
  
Case -14926 To -14923: pinyin = "Nuo "
  
Case -14922 To -14922: pinyin = "o "
  
Case -14921 To -14915: pinyin = "ou "
  
Case -14914 To -14909: pinyin = "Pa "
  
Case -14908 To -14903: pinyin = "Pai "
  
Case -14902 To -14895: pinyin = "Pan "
  
Case -14894 To -14890: pinyin = "Pang "
  
Case -14889 To -14883: pinyin = "Pao "
  
Case -14882 To -14874: pinyin = "Pei "
  
Case -14873 To -14872: pinyin = "Pen "
  
Case -14871 To -14858: pinyin = "Peng "
  
Case -14857 To -14679: pinyin = "Pi "
  
Case -14678 To -14675: pinyin = "Pian "
  
Case -14674 To -14671: pinyin = "Piao "
  
Case -14670 To -14669: pinyin = "Pie "
  
Case -14668 To -14664: pinyin = "Pin "
  
Case -14663 To -14655: pinyin = "Ping "
  
Case -14654 To -14646: pinyin = "Po "
  
Case -14645 To -14631: pinyin = "Pu "
  
Case -14630 To -14595: pinyin = "Qi "
  
Case -14594 To -14430: pinyin = "Qia "
  
Case -14429 To -14408: pinyin = "Qian "
  
Case -14407 To -14400: pinyin = "Qiang "
  
Case -14399 To -14385: pinyin = "Qiao "
  
Case -14384 To -14380: pinyin = "Qie "
  
Case -14379 To -14369: pinyin = "Qin "
  
Case -14368 To -14356: pinyin = "Qing "
  
Case -14355 To -14354: pinyin = "Qiong "
  
Case -14353 To -14346: pinyin = "Qiu "
  
Case -14345 To -14171: pinyin = "Qu "
  
Case -14170 To -14160: pinyin = "Quan "
  
Case -14159 To -14152: pinyin = "Que "
  
Case -14151 To -14150: pinyin = "Qun "
  
Case -14149 To -14146: pinyin = "Ran "
  
Case -14145 To -14141: pinyin = "Rang "
  
Case -14140 To -14138: pinyin = "Rao "
  
Case -14137 To -14136: pinyin = "Re "
  
Case -14135 To -14126: pinyin = "Ren "
  
Case -14125 To -14124: pinyin = "Reng "
  
Case -14123 To -14123: pinyin = "Ri "
  
Case -14122 To -14113: pinyin = "Rong "
  
Case -14112 To -14110: pinyin = "Rou "
  
Case -14109 To -14100: pinyin = "Ru "
  
Case -14099 To -14098: pinyin = "Ruan "
  
Case -14097 To -14095: pinyin = "Rui "
  
Case -14094 To -14093: pinyin = "Run "
  
Case -14092 To -14091: pinyin = "Ruo "
  
Case -14090 To -14088: pinyin = "Sa "
  
Case -14087 To -14084: pinyin = "Sai "
  
Case -14083 To -13918: pinyin = "San "
  
Case -13917 To -13915: pinyin = "Sang "
  
Case -13914 To -13911: pinyin = "Sao "
  
Case -13910 To -13908: pinyin = "Se "
  
Case -13907 To -13907: pinyin = "Sen "
  
Case -13906 To -13906: pinyin = "Seng "
  
Case -13905 To -13897: pinyin = "Sha "
  
Case -13896 To -13895: pinyin = "Shai "
  
Case -13894 To -13879: pinyin = "Shan "
  
Case -13878 To -13871: pinyin = "Shang "
  
Case -13870 To -13860: pinyin = "Shao "
  
Case -13859 To -13848: pinyin = "She "
  
Case -13847 To -13832: pinyin = "Shen "
  
Case -13831 To -13659: pinyin = "Sheng "
  
Case -13658 To -13612: pinyin = "Shi "
  
Case -13611 To -13602: pinyin = "Shou "
  
Case -13601 To -13407: pinyin = "Shu "
  
Case -13406 To -13405: pinyin = "Shua "
  
Case -13404 To -13401: pinyin = "Shuai "
  
Case -13400 To -13399: pinyin = "Shuan "
  
Case -13398 To -13396: pinyin = "Shuang "
  
Case -13395 To -13392: pinyin = "Shui "
  
Case -13391 To -13388: pinyin = "Shun "
  
Case -13387 To -13384: pinyin = "Shuo "
  
Case -13383 To -13368: pinyin = "Si "
  
Case -13367 To -13360: pinyin = "Song "
  
Case -13359 To -13357: pinyin = "Sou "
  
Case -13356 To -13344: pinyin = "Su "
  
Case -13343 To -13341: pinyin = "Suan "
  
Case -13340 To -13330: pinyin = "Sui "
  
Case -13329 To -13327: pinyin = "Sun "
  
Case -13326 To -13319: pinyin = "Suo "
  
Case -13318 To -13148: pinyin = "Ta "
  
Case -13147 To -13139: pinyin = "Tai "
  
Case -13138 To -13121: pinyin = "Tan "
  
Case -13120 To -13108: pinyin = "Tang "
  
Case -13107 To -13097: pinyin = "Tao "
  
Case -13096 To -13096: pinyin = "Te "
  
Case -13095 To -13092: pinyin = "Teng "
  
Case -13091 To -13077: pinyin = "Ti "
  
Case -13076 To -13069: pinyin = "Tian "
  
Case -13068 To -13064: pinyin = "Tiao "
  
Case -13063 To -13061: pinyin = "Tie "
  
Case -13060 To -12889: pinyin = "Ting "
  
Case -12888 To -12876: pinyin = "Tong "
  
Case -12875 To -12872: pinyin = "Tou "
  
Case -12871 To -12861: pinyin = "Tu "
  
Case -12860 To -12859: pinyin = "Tuan "
  
Case -12858 To -12853: pinyin = "Tui "
  
Case -12852 To -12850: pinyin = "Tun "
  
Case -12849 To -12839: pinyin = "Tuo "
  
Case -12838 To -12832: pinyin = "Wa "
  
Case -12831 To -12830: pinyin = "Wai "
  
Case -12829 To -12813: pinyin = "Wan "
  
Case -12812 To -12803: pinyin = "Wang "
  
Case -12802 To -12608: pinyin = "Wei "
  
Case -12607 To -12598: pinyin = "Wen "
  
Case -12597 To -12595: pinyin = "Weng "
  
Case -12594 To -12586: pinyin = "Wo "
  
Case -12585 To -12557: pinyin = "Wu "
  
Case -12556 To -12360: pinyin = "Xi "
  
Case -12359 To -12347: pinyin = "Xia "
  
Case -12346 To -12321: pinyin = "Xian "
  
Case -12320 To -12301: pinyin = "Xiang "
  
Case -12300 To -12121: pinyin = "Xiao "
  
Case -12120 To -12100: pinyin = "Xie "
  
Case -12099 To -12090: pinyin = "Xin "
  
Case -12089 To -12075: pinyin = "Xing "
  
Case -12074 To -12068: pinyin = "Xiong "
  
Case -12067 To -12059: pinyin = "Xiu "
  
Case -12058 To -12040: pinyin = "Xu "
  
Case -12039 To -11868: pinyin = "Xuan "
  
Case -11867 To -11862: pinyin = "Xue "
  
Case -11861 To -11848: pinyin = "Xun "
  
Case -11847 To -11832: pinyin = "Ya "
  
Case -11831 To -11799: pinyin = "Yan "
  
Case -11798 To -11782: pinyin = "Yang "
  
Case -11781 To -11605: pinyin = "Yao "
  
Case -11604 To -11590: pinyin = "Ye "
  
Case -11589 To -11537: pinyin = "Yi "
  
Case -11536 To -11359: pinyin = "Yin "
  
Case -11358 To -11341: pinyin = "Ying "
  
Case -11340 To -11340: pinyin = "Yo "
  
Case -11339 To -11325: pinyin = "Yong "
  
Case -11324 To -11304: pinyin = "You "
  
Case -11303 To -11098: pinyin = "Yu "
  
Case -11097 To -11078: pinyin = "Yuan "
  
Case -11077 To -11068: pinyin = "Yue "
  
Case -11067 To -11056: pinyin = "Yun "
  
Case -11055 To -11053: pinyin = "Za "
  
Case -11052 To -11046: pinyin = "Zai "
  
Case -11045 To -11042: pinyin = "Zan "
  
Case -11041 To -11039: pinyin = "Zang "
  
Case -11038 To -11025: pinyin = "Zao "
  
Case -11024 To -11021: pinyin = "Ze "
  
Case -11020 To -11020: pinyin = "Zei "
  
Case -11019 To -11019: pinyin = "Zen "
  
Case -11018 To -11015: pinyin = "Zeng "
  
Case -11014 To -10839: pinyin = "Zha "
  
Case -10838 To -10833: pinyin = "Zhai "
  
Case -10832 To -10816: pinyin = "Zhan "
  
Case -10815 To -10801: pinyin = "Zhang "
  
Case -10800 To -10791: pinyin = "Zhao "
  
Case -10790 To -10781: pinyin = "Zhe "
  
Case -10780 To -10765: pinyin = "Zhen "
  
Case -10764 To -10588: pinyin = "Zheng "
  
Case -10587 To -10545: pinyin = "Zhi "
  
Case -10544 To -10534: pinyin = "Zhong "
  
Case -10533 To -10520: pinyin = "Zhou "
  
Case -10519 To -10332: pinyin = "Zhu "
  
Case -10331 To -10330: pinyin = "Zhua "
  
Case -10329 To -10329: pinyin = "Zhuai "
  
Case -10328 To -10323: pinyin = "Zhuan "
  
Case -10322 To -10316: pinyin = "Zhuang "
  
Case -10315 To -10310: pinyin = "Zhui "
  
Case -10309 To -10308: pinyin = "Zhun "
  
Case -10307 To -10297: pinyin = "Zhuo "
  
Case -10296 To -10282: pinyin = "Zi "
  
Case -10281 To -10275: pinyin = "Zong "
  
Case -10274 To -10271: pinyin = "Zou "
  
Case -10270 To -10263: pinyin = "Zu "
  
Case -10262 To -10261: pinyin = "Zuan "
  
Case -10260 To -10257: pinyin = "Zui "
  
Case -10256 To -10255: pinyin = "Zun "
  
Case -10254 To -10254: pinyin = "Zuo "
  
Case Else: pinyin = p
  
End Select
  
End Function
  
Function Getpy(str)
  
For i = 1 To Len(str)
  
Getpy = Getpy & pinyin(Mid(str, i, 1))
  
Next i
  
End Function

以上代码中，可能缺少部分汉字。

6、按下ALT+Q关闭Visual Basic编辑窗口，返回Excel编辑状态

7、选中转换后的拼音需要放在哪个列，例如要把B列的第2行的内容转换成拼音，放在D列的第2个单元格，输入公式：=getpy(B2)，B2，是指源头单元格的坐标

8、如果要去除拼音之间的空格。去掉空格的拼音放在E列，如果这个未去掉空格的数据原来在D2单元格，去掉空格之后的拼音放在E2单元格，则在E2单元格输入： =SUBSTITUTE(D2," ","")