很多时候我们需要处理一下汉字转换为拼音的需求，今天给大家分享一下标题包含的一下转换方法

1 、excel通过宏可以很好的处理汉字转换为拼音的

1.1下面的是转为全拼音的宏代码

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

使用方法：=getpy(A1)

1.2 汉字首字母转换为大写字母

Function pinyin(p As String) As String
i = Asc(p)
Select Case i
Case -20319 To -20284: pinyin = "A"
Case -20283 To -19776: pinyin = "B"
Case -19775 To -19219: pinyin = "C"
Case -19218 To -18711: pinyin = "D"
Case -18710 To -18527: pinyin = "E"
Case -18526 To -18240: pinyin = "F"
Case -18239 To -17923: pinyin = "G"
Case -17922 To -17418: pinyin = "H"
Case -17417 To -16475: pinyin = "J"
Case -16474 To -16213: pinyin = "K"
Case -16212 To -15641: pinyin = "L"
Case -15640 To -15166: pinyin = "M"
Case -15165 To -14923: pinyin = "N"
Case -14922 To -14915: pinyin = "O"
Case -14914 To -14631: pinyin = "P"
Case -14630 To -14150: pinyin = "Q"
Case -14149 To -14091: pinyin = "R"
Case -14090 To -13319: pinyin = "S"
Case -13318 To -12839: pinyin = "T"
Case -12838 To -12557: pinyin = "W"
Case -12556 To -11848: pinyin = "X"
Case -11847 To -11056: pinyin = "Y"
Case -11055 To -2050: pinyin = "Z"
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

使用方法：=getpy(A1) 转为大写，=LOWER(getpy(A2)) 转换为小写

1.3汉字转换为全拼全拼首字母大写

Public Function Chinese2Spell(sChinese As String, Optional iflag As Integer = 0) As String
Dim C2S As String
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", -20319
d.Add "ai", -20317
d.Add "an", -20304
d.Add "ang", -20295
d.Add "ao", -20292
d.Add "ba", -20283
d.Add "bai", -20265
d.Add "ban", -20257
d.Add "bang", -20242
d.Add "bao", -20230
d.Add "bei", -20051
d.Add "ben", -20036
d.Add "beng", -20032
d.Add "bi", -20026
d.Add "bian", -20002
d.Add "biao", -19990
d.Add "bie", -19986
d.Add "bin", -19982
d.Add "bing", -19976
d.Add "bo", -19805
d.Add "bu", -19784
d.Add "ca", -19775
d.Add "cai", -19774
d.Add "can", -19763
d.Add "cang", -19756
d.Add "cao", -19751
d.Add "ce", -19746
d.Add "ceng", -19741
d.Add "cha", -19739
d.Add "chai", -19728
d.Add "chan", -19725
d.Add "chang", -19715
d.Add "chao", -19540
d.Add "che", -19531
d.Add "chen", -19525
d.Add "cheng", -19515
d.Add "chi", -19500
d.Add "chong", -19484
d.Add "chou", -19479
d.Add "chu", -19467
d.Add "chuai", -19289
d.Add "chuan", -19288
d.Add "chuang", -19281
d.Add "chui", -19275
d.Add "chun", -19270
d.Add "chuo", -19263
d.Add "ci", -19261
d.Add "cong", -19249
d.Add "cou", -19243
d.Add "cu", -19242
d.Add "cuan", -19238
d.Add "cui", -19235
d.Add "cun", -19227
d.Add "cuo", -19224
d.Add "da", -19218
d.Add "dai", -19212
d.Add "dan", -19038
d.Add "dang", -19023
d.Add "dao", -19018
d.Add "de", -19006
d.Add "deng", -19003
d.Add "di", -18996
d.Add "dian", -18977
d.Add "diao", -18961
d.Add "die", -18952
d.Add "ding", -18783
d.Add "diu", -18774
d.Add "dong", -18773
d.Add "dou", -18763
d.Add "du", -18756
d.Add "duan", -18741
d.Add "dui", -18735
d.Add "dun", -18731
d.Add "duo", -18722
d.Add "e", -18710
d.Add "en", -18697
d.Add "er", -18696
d.Add "fa", -18526
d.Add "fan", -18518
d.Add "fang", -18501
d.Add "fei", -18490
d.Add "fen", -18478
d.Add "feng", -18463
d.Add "fo", -18448
d.Add "fou", -18447
d.Add "fu", -18446
d.Add "ga", -18239
d.Add "gai", -18237
d.Add "gan", -18231
d.Add "gang", -18220
d.Add "gao", -18211
d.Add "ge", -18201
d.Add "gei", -18184
d.Add "gen", -18183
d.Add "geng", -18181
d.Add "gong", -18012
d.Add "gou", -17997
d.Add "gu", -17988
d.Add "gua", -17970
d.Add "guai", -17964
d.Add "guan", -17961
d.Add "guang", -17950
d.Add "gui", -17947
d.Add "gun", -17931
d.Add "guo", -17928
d.Add "ha", -17922
d.Add "hai", -17759
d.Add "han", -17752
d.Add "hang", -17733
d.Add "hao", -17730
d.Add "he", -17721
d.Add "hei", -17703
d.Add "hen", -17701
d.Add "heng", -17697
d.Add "hong", -17692
d.Add "hou", -17683
d.Add "hu", -17676
d.Add "hua", -17496
d.Add "huai", -17487
d.Add "huan", -17482
d.Add "huang", -17468
d.Add "hui", -17454
d.Add "hun", -17433
d.Add "huo", -17427
d.Add "ji", -17417
d.Add "jia", -17202
d.Add "jian", -17185
d.Add "jiang", -16983
d.Add "jiao", -16970
d.Add "jie", -16942
d.Add "jin", -16915
d.Add "jing", -16733
d.Add "jiong", -16708
d.Add "jiu", -16706
d.Add "ju", -16689
d.Add "juan", -16664
d.Add "jue", -16657
d.Add "jun", -16647
d.Add "ka", -16474
d.Add "kai", -16470
d.Add "kan", -16465
d.Add "kang", -16459
d.Add "kao", -16452
d.Add "ke", -16448
d.Add "ken", -16433
d.Add "keng", -16429
d.Add "kong", -16427
d.Add "kou", -16423
d.Add "ku", -16419
d.Add "kua", -16412
d.Add "kuai", -16407
d.Add "kuan", -16403
d.Add "kuang", -16401
d.Add "kui", -16393
d.Add "kun", -16220
d.Add "kuo", -16216
d.Add "la", -16212
d.Add "lai", -16205
d.Add "lan", -16202
d.Add "lang", -16187
d.Add "lao", -16180
d.Add "le", -16171
d.Add "lei", -16169
d.Add "leng", -16158
d.Add "li", -16155
d.Add "lia", -15959
d.Add "lian", -15958
d.Add "liang", -15944
d.Add "liao", -15933
d.Add "lie", -15920
d.Add "lin", -15915
d.Add "ling", -15903
d.Add "liu", -15889
d.Add "long", -15878
d.Add "lou", -15707
d.Add "lu", -15701
d.Add "lv", -15681
d.Add "luan", -15667
d.Add "lue", -15661
d.Add "lun", -15659
d.Add "luo", -15652
d.Add "ma", -15640
d.Add "mai", -15631
d.Add "man", -15625
d.Add "mang", -15454
d.Add "mao", -15448
d.Add "me", -15436
d.Add "mei", -15435
d.Add "men", -15419
d.Add "meng", -15416
d.Add "mi", -15408
d.Add "mian", -15394
d.Add "miao", -15385
d.Add "mie", -15377
d.Add "min", -15375
d.Add "ming", -15369
d.Add "miu", -15363
d.Add "mo", -15362
d.Add "mou", -15183
d.Add "mu", -15180
d.Add "na", -15165
d.Add "nai", -15158
d.Add "nan", -15153
d.Add "nang", -15150
d.Add "nao", -15149
d.Add "ne", -15144
d.Add "nei", -15143
d.Add "nen", -15141
d.Add "neng", -15140
d.Add "ni", -15139
d.Add "nian", -15128
d.Add "niang", -15121
d.Add "niao", -15119
d.Add "nie", -15117
d.Add "nin", -15110
d.Add "ning", -15109
d.Add "niu", -14941
d.Add "nong", -14937
d.Add "nu", -14933
d.Add "nv", -14930
d.Add "nuan", -14929
d.Add "nue", -14928
d.Add "nuo", -14926
d.Add "o", -14922
d.Add "ou", -14921
d.Add "pa", -14914
d.Add "pai", -14908
d.Add "pan", -14902
d.Add "pang", -14894
d.Add "pao", -14889
d.Add "pei", -14882
d.Add "pen", -14873
d.Add "peng", -14871
d.Add "pi", -14857
d.Add "pian", -14678
d.Add "piao", -14674
d.Add "pie", -14670
d.Add "pin", -14668
d.Add "ping", -14663
d.Add "po", -14654
d.Add "pu", -14645
d.Add "qi", -14630
d.Add "qia", -14594
d.Add "qian", -14429
d.Add "qiang", -14407
d.Add "qiao", -14399
d.Add "qie", -14384
d.Add "qin", -14379
d.Add "qing", -14368
d.Add "qiong", -14355
d.Add "qiu", -14353
d.Add "qu", -14345
d.Add "quan", -14170
d.Add "que", -14159
d.Add "qun", -14151
d.Add "ran", -14149
d.Add "rang", -14145
d.Add "rao", -14140
d.Add "re", -14137
d.Add "ren", -14135
d.Add "reng", -14125
d.Add "ri", -14123
d.Add "rong", -14122
d.Add "rou", -14112
d.Add "ru", -14109
d.Add "ruan", -14099
d.Add "rui", -14097
d.Add "run", -14094
d.Add "ruo", -14092
d.Add "sa", -14090
d.Add "sai", -14087
d.Add "san", -14083
d.Add "sang", -13917
d.Add "sao", -13914
d.Add "se", -13910
d.Add "sen", -13907
d.Add "seng", -13906
d.Add "sha", -13905
d.Add "shai", -13896
d.Add "shan", -13894
d.Add "shang", -13878
d.Add "shao", -13870
d.Add "she", -13859
d.Add "shen", -13847
d.Add "sheng", -13831
d.Add "shi", -13658
d.Add "shou", -13611
d.Add "shu", -13601
d.Add "shua", -13406
d.Add "shuai", -13404
d.Add "shuan", -13400
d.Add "shuang", -13398
d.Add "shui", -13395
d.Add "shun", -13391
d.Add "shuo", -13387
d.Add "si", -13383
d.Add "song", -13367
d.Add "sou", -13359
d.Add "su", -13356
d.Add "suan", -13343
d.Add "sui", -13340
d.Add "sun", -13329
d.Add "suo", -13326
d.Add "ta", -13318
d.Add "tai", -13147
d.Add "tan", -13138
d.Add "tang", -13120
d.Add "tao", -13107
d.Add "te", -13096
d.Add "teng", -13095
d.Add "ti", -13091
d.Add "tian", -13076
d.Add "tiao", -13068
d.Add "tie", -13063
d.Add "ting", -13060
d.Add "tong", -12888
d.Add "tou", -12875
d.Add "tu", -12871
d.Add "tuan", -12860
d.Add "tui", -12858
d.Add "tun", -12852
d.Add "tuo", -12849
d.Add "wa", -12838
d.Add "wai", -12831
d.Add "wan", -12829
d.Add "wang", -12812
d.Add "wei", -12802
d.Add "wen", -12607
d.Add "weng", -12597
d.Add "wo", -12594
d.Add "wu", -12585
d.Add "xi", -12556
d.Add "xia", -12359
d.Add "xian", -12346
d.Add "xiang", -12320
d.Add "xiao", -12300
d.Add "xie", -12120
d.Add "xin", -12099
d.Add "xing", -12089
d.Add "xiong", -12074
d.Add "xiu", -12067
d.Add "xu", -12058
d.Add "xuan", -12039
d.Add "xue", -11867
d.Add "xun", -11861
d.Add "ya", -11847
d.Add "yan", -11831
d.Add "yang", -11798
d.Add "yao", -11781
d.Add "ye", -11604
d.Add "yi", -11589
d.Add "yin", -11536
d.Add "ying", -11358
d.Add "yo", -11340
d.Add "yong", -11339
d.Add "you", -11324
d.Add "yu", -11303
d.Add "yuan", -11097
d.Add "yue", -11077
d.Add "yun", -11067
d.Add "za", -11055
d.Add "zai", -11052
d.Add "zan", -11045
d.Add "zang", -11041
d.Add "zao", -11038
d.Add "ze", -11024
d.Add "zei", -11020
d.Add "zen", -11019
d.Add "zeng", -11018
d.Add "zha", -11014
d.Add "zhai", -10838
d.Add "zhan", -10832
d.Add "zhang", -10815
d.Add "zhao", -10800
d.Add "zhe", -10790
d.Add "zhen", -10780
d.Add "zheng", -10764
d.Add "zhi", -10587
d.Add "zhong", -10544
d.Add "zhou", -10533
d.Add "zhu", -10519
d.Add "zhua", -10331
d.Add "zhuai", -10329
d.Add "zhuan", -10328
d.Add "zhuang", -10322
d.Add "zhui", -10315
d.Add "zhun", -10309
d.Add "zhuo", -10307
d.Add "zi", -10296
d.Add "zong", -10281
d.Add "zou", -10274
d.Add "zu", -10270
d.Add "zuan", -10262
d.Add "zui", -10260
d.Add "zun", -10256
d.Add "zuo", -10254
num = Asc(sChinese)
a = d.Items
b = d.keys
Application.Volatile
For l = 1 To Len(sChinese)num = Asc(Mid(sChinese, l, 1))For i = d.Count - 1 To 0 Step -1If a(i) <= num Then Exit ForNextSelect Case iflagCase 0 '返回拼音(首字大写)C2S = C2S & Application.WorksheetFunction.Proper(b(i))Case 1 '返回小写拼音C2S = C2S & b(i)Case 2 '返回大写拼音C2S = C2S & UCase$(b(i))Case 3 '返回小写拼音首字C2S = C2S & Left$(b(i), 1)Case 4 '返回大写拼音首字C2S = C2S & UCase$(Left$(b(i), 1))End SelectIf Len(sChinese) > 1 And iflag < 3 Then C2S = C2S & " "
Next
Chinese2Spell = C2S
Set d = Nothing
End Function

使用方法如下：

1、普通输出：=chinese2spell(A2,1) //参数为1

2、首字母大写：=chinese2spell(A2,0) //参数为0

3、去除空格：=SUBSTITUTE(chinese2spell(A2,0)," ","")