Excel中文转拼音(完整版)-转

Excel中文转拼音(完整版)
打开Excel->工具->宏->Viaual Basic编辑器
在弹出来的窗口中对着VBAproject点右键->插入->模块
下面会出现一个名为"模块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


********复制到此结束,本行不复制*******


现在转换函数已编写完成!关掉此编缉的窗口。
要在Excel中使用,方法如下:
A1         A2

中国     =getpy(A1)

 

 

 

 

 

(有空格)

Excel中文转拼音(完整版)
打开Excel->工具->宏->Viaual Basic编辑器
在弹出来的窗口中对着VBAproject点右键->插入->模块
下面会出现一个名为"模块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


********复制到此结束,本行不复制*******


现在转换函数已编写完成!关掉此编缉的窗口。
要在Excel中使用,方法如下:
A1         A2
中国     =getpy(A1)

excle 汉字拼音,把下面的代码拷贝到excel->工具-》-->Vb编辑器中即可: Dim d As Object Function InitDictinary() 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 End Function Function C(str As String) As String Dim G As String, i As Long, i1 As Long Dim A(), B() C = "" For i = 1 To Len(str) '-------------------------------- num = Asc(Mid(str, i, 1)) If num > 0 And num < 160 Then G = Chr(num) Else If num < -20319 Or num > -10247 Then G = "" Else A = d.Items B = d.keys For i1 = d.Count - 1 To 0 Step -1 If A(i1) <= num Then Exit For Next G = B(i1) End If End If '------------------------------------------ C = C & G Next End Function Private Sub CommandButton1_Click() Call InitDictinary Dim i As Integer For i = 1 To 400 Range("b" & i) = C(Range("A" & i)) Next End Sub
评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值