Excel如何利用宏将汉字读拼音？

首先打开表格然后按f12另存为，如下图所示：

另存为宏表格，如下图所示：

然后按alt+f11打开宏命令按钮并插入模块，如下图所示：

在模块里插入如下代码：Function duqupingyin(p As String) As Stringi = Asc(p)Select Case iCase -20319 To -20318: duqupingyin = 'a 'Case -20317 To -20305: duqupingyin = 'ai 'Case -20304 To -20296: duqupingyin = 'an 'Case -20295 To -20293: duqupingyin = 'ang 'Case -20292 To -20284: duqupingyin = 'ao 'Case -20283 To -20266: duqupingyin = 'ba 'Case -20265 To -20258: duqupingyin = 'bai 'Case -20257 To -20243: duqupingyin = 'ban 'Case -20242 To -20231: duqupingyin = 'bang 'Case -20230 To -20052: duqupingyin = 'bao 'Case -20051 To -20037: duqupingyin = 'bei 'Case -20036 To -20033: duqupingyin = 'ben 'Case -20032 To -20027: duqupingyin = 'beng 'Case -20026 To -20003: duqupingyin = 'bi 'Case -20002 To -19991: duqupingyin = 'bian 'Case -19990 To -19987: duqupingyin = 'biao 'Case -19986 To -19983: duqupingyin = 'bie 'Case -19982 To -19977: duqupingyin = 'bin 'Case -19976 To -19806: duqupingyin = 'bing 'Case -19805 To -19785: duqupingyin = 'bo 'Case -19784 To -19776: duqupingyin = 'bu 'Case -19775 To -19775: duqupingyin = 'ca 'Case -19774 To -19764: duqupingyin = 'cai 'Case -19763 To -19757: duqupingyin = 'can 'Case -19756 To -19752: duqupingyin = 'cang 'Case -19751 To -19747: duqupingyin = 'cao 'Case -19746 To -19742: duqupingyin = 'ce 'Case -19741 To -19740: duqupingyin = 'ceng 'Case -19739 To -19729: duqupingyin = 'cha 'Case -19728 To -19726: duqupingyin = 'chai 'Case -19725 To -19716: duqupingyin = 'chan 'Case -19715 To -19541: duqupingyin = 'chang 'Case -19540 To -19532: duqupingyin = 'chao 'Case -19531 To -19526: duqupingyin = 'che 'Case -19525 To -19516: duqupingyin = 'chen 'Case -19515 To -19501: duqupingyin = 'cheng 'Case -19500 To -19485: duqupingyin = 'chi 'Case -19484 To -19480: duqupingyin = 'chong 'Case -19479 To -19468: duqupingyin = 'chou 'Case -19467 To -19290: duqupingyin = 'chu 'Case -19289 To -19289: duqupingyin = 'chuai 'Case -19288 To -19282: duqupingyin = 'chuan 'Case -19281 To -19276: duqupingyin = 'chuang 'Case -19275 To -19271: duqupingyin = 'chui 'Case -19270 To -19264: duqupingyin = 'chun 'Case -19263 To -19262: duqupingyin = 'chuo 'Case -19261 To -19250: duqupingyin = 'ci 'Case -19249 To -19244: duqupingyin = 'cong 'Case -19243 To -19243: duqupingyin = 'cou 'Case -19242 To -19239: duqupingyin = 'cu 'Case -19238 To -19236: duqupingyin = 'cuan 'Case -19235 To -19228: duqupingyin = 'cui 'Case -19227 To -19225: duqupingyin = 'cun 'Case -19224 To -19219: duqupingyin = 'cuo 'Case -19218 To -19213: duqupingyin = 'da 'Case -19212 To -19039: duqupingyin = 'dai 'Case -19038 To -19024: duqupingyin = 'dan 'Case -19023 To -19019: duqupingyin = 'dang 'Case -19018 To -19007: duqupingyin = 'dao 'Case -19006 To -19004: duqupingyin = 'de 'Case -19003 To -18997: duqupingyin = 'deng 'Case -18996 To -18978: duqupingyin = 'di 'Case -18977 To -18962: duqupingyin = 'dian 'Case -18961 To -18953: duqupingyin = 'diao 'Case -18952 To -18784: duqupingyin = 'die 'Case -18783 To -18775: duqupingyin = 'ding 'Case -18774 To -18774: duqupingyin = 'diu 'Case -18773 To -18527: duqupingyin = 'dong 'Case -18526 To -18519: duqupingyin = 'fa 'Case -18518 To -18502: duqupingyin = 'fan 'Case -18501 To -18491: duqupingyin = 'fang 'Case -18490 To -18479: duqupingyin = 'fei 'Case -18478 To -18464: duqupingyin = 'fen 'Case -18463 To -18449: duqupingyin = 'feng 'Case -18448 To -18448: duqupingyin = 'fo 'Case -18447 To -18447: duqupingyin = 'fou 'Case -18446 To -18240: duqupingyin = 'fu 'Case -18239 To -18238: duqupingyin = 'ga 'Case -18237 To -18232: duqupingyin = 'gai 'Case -18231 To -18221: duqupingyin = 'gan 'Case -18220 To -18212: duqupingyin = 'gang 'Case -18211 To -18202: duqupingyin = 'gao 'Case -18201 To -18185: duqupingyin = 'ge 'Case -18184 To -18184: duqupingyin = 'gei 'Case -18183 To -18182: duqupingyin = 'gen 'Case -18181 To -18013: duqupingyin = 'geng 'Case -18012 To -17998: duqupingyin = 'gong 'Case -17997 To -17989: duqupingyin = 'gou 'Case -17988 To -17971: duqupingyin = 'gu 'Case -17970 To -17965: duqupingyin = 'gua 'Case -17964 To -17962: duqupingyin = 'guai 'Case -17961 To -17951: duqupingyin = 'guan 'Case -17950 To -17948: duqupingyin = 'guang 'Case -17947 To -17932: duqupingyin = 'gui 'Case -17931 To -17929: duqupingyin = 'gun 'Case -17928 To -17923: duqupingyin = 'guo 'Case -17922 To -17760: duqupingyin = 'ha 'Case -17759 To -17753: duqupingyin = 'hai 'Case -17752 To -17734: duqupingyin = 'han 'Case -17733 To -17731: duqupingyin = 'hang 'Case -17730 To -17722: duqupingyin = 'hao 'Case -17721 To -17704: duqupingyin = 'he 'Case -17703 To -17702: duqupingyin = 'hei 'Case -17701 To -17698: duqupingyin = 'hen 'Case -17697 To -17693: duqupingyin = 'heng 'Case -17692 To -17684: duqupingyin = 'hong 'Case -17683 To -17677: duqupingyin = 'hou 'Case -17676 To -17497: duqupingyin = 'hu 'Case -17496 To -17488: duqupingyin = 'hua 'Case -17487 To -17483: duqupingyin = 'huai 'Case -17482 To -17469: duqupingyin = 'huan 'Case -17468 To -17455: duqupingyin = 'huang 'Case -17454 To -17434: duqupingyin = 'hui 'Case -17433 To -17428: duqupingyin = 'hun 'Case -17427 To -17418: duqupingyin = 'huo 'Case -17417 To -17203: duqupingyin = 'ji 'Case -17202 To -17186: duqupingyin = 'jia 'Case -17185 To -16984: duqupingyin = 'jian 'Case -16983 To -16971: duqupingyin = 'jiang 'Case -16970 To -16943: duqupingyin = 'jiao 'Case -16942 To -16916: duqupingyin = 'jie 'Case -16915 To -16734: duqupingyin = 'jin 'Case -16733 To -16709: duqupingyin = 'jing 'Case -16708 To -16707: duqupingyin = 'jiong 'Case -16706 To -16690: duqupingyin = 'jiu 'Case -16689 To -16665: duqupingyin = 'ju 'Case -16664 To -16658: duqupingyin = 'juan 'Case -16657 To -16648: duqupingyin = 'jue 'Case -16647 To -16475: duqupingyin = 'jun 'Case -16474 To -16471: duqupingyin = 'ka 'Case -16470 To -16466: duqupingyin = 'kai 'Case -16465 To -16460: duqupingyin = 'kan 'Case -16459 To -16453: duqupingyin = 'kang 'Case -16452 To -16449: duqupingyin = 'kao 'Case -16448 To -16434: duqupingyin = 'ke 'Case -16433 To -16430: duqupingyin = 'ken 'Case -16429 To -16428: duqupingyin = 'keng 'Case -16427 To -16424: duqupingyin = 'kong 'Case -16423 To -16420: duqupingyin = 'kou 'Case -16419 To -16413: duqupingyin = 'ku 'Case -16412 To -16408: duqupingyin = 'kua 'Case -16407 To -16404: duqupingyin = 'kuai 'Case -16403 To -16402: duqupingyin = 'kuan 'Case -16401 To -16394: duqupingyin = 'kuang 'Case -16393 To -16221: duqupingyin = 'kui 'Case -16220 To -16217: duqupingyin = 'kun 'Case -16216 To -16213: duqupingyin = 'kuo 'Case -16212 To -16206: duqupingyin = 'la 'Case -16205 To -16203: duqupingyin = 'lai 'Case -16202 To -16188: duqupingyin = 'lan 'Case -16187 To -16181: duqupingyin = 'lang 'Case -16180 To -16172: duqupingyin = 'lao 'Case -16171 To -16170: duqupingyin = 'le 'Case -16169 To -16159: duqupingyin = 'lei 'Case -16158 To -16156: duqupingyin = 'leng 'Case -16155 To -15960: duqupingyin = 'li 'Case -15959 To -15959: duqupingyin = 'lia 'Case -15958 To -15945: duqupingyin = 'lian 'Case -15944 To -15934: duqupingyin = 'liang 'Case -15933 To -15921: duqupingyin = 'liao 'Case -15920 To -15916: duqupingyin = 'lie 'Case -15915 To -15904: duqupingyin = 'lin 'Case -15903 To -15890: duqupingyin = 'ling 'Case -15889 To -15879: duqupingyin = 'liu 'Case -15878 To -15708: duqupingyin = 'long 'Case -15707 To -15702: duqupingyin = 'lou 'Case -15701 To -15682: duqupingyin = 'lu 'Case -15681 To -15668: duqupingyin = 'lv 'Case -15667 To -15662: duqupingyin = 'luan 'Case -15661 To -15660: duqupingyin = 'lue 'Case -15659 To -15653: duqupingyin = 'lun 'Case -15652 To -15641: duqupingyin = 'luo 'Case -15640 To -15632: duqupingyin = 'ma 'Case -15631 To -15626: duqupingyin = 'mai 'Case -15625 To -15455: duqupingyin = 'man 'Case -15454 To -15449: duqupingyin = 'mang 'Case -15448 To -15437: duqupingyin = 'mao 'Case -15436 To -15436: duqupingyin = 'me 'Case -15435 To -15420: duqupingyin = 'mei 'Case -15419 To -15417: duqupingyin = 'men 'Case -15416 To -15409: duqupingyin = 'meng 'Case -15408 To -15395: duqupingyin = 'mi 'Case -15394 To -15386: duqupingyin = 'mian 'Case -15385 To -15378: duqupingyin = 'miao 'Case -15377 To -15376: duqupingyin = 'mie 'Case -15375 To -15370: duqupingyin = 'min 'Case -15369 To -15364: duqupingyin = 'ming 'Case -15363 To -15363: duqupingyin = 'miu 'Case -15362 To -15184: duqupingyin = 'mo 'Case -15183 To -15181: duqupingyin = 'mou 'Case -15180 To -15166: duqupingyin = 'mu 'Case -15165 To -15159: duqupingyin = 'na 'Case -15158 To -15154: duqupingyin = 'nai 'Case -15153 To -15151: duqupingyin = 'nan 'Case -15150 To -15150: duqupingyin = 'nang 'Case -15149 To -15145: duqupingyin = 'nao 'Case -15144 To -15144: duqupingyin = 'ne 'Case -15143 To -15142: duqupingyin = 'nei 'Case -15141 To -15141: duqupingyin = 'nen 'Case -15140 To -15140: duqupingyin = 'neng 'Case -15139 To -15129: duqupingyin = 'ni 'Case -15128 To -15122: duqupingyin = 'nian 'Case -15121 To -15120: duqupingyin = 'niang 'Case -15119 To -15118: duqupingyin = 'niao 'Case -15117 To -15111: duqupingyin = 'nie 'Case -15110 To -15110: duqupingyin = 'nin 'Case -15109 To -14942: duqupingyin = 'ning 'Case -14941 To -14938: duqupingyin = 'niu 'Case -14937 To -14934: duqupingyin = 'nong 'Case -14933 To -14931: duqupingyin = 'nu 'Case -14930 To -14930: duqupingyin = 'nv 'Case -14929 To -14929: duqupingyin = 'nuan 'Case -14928 To -14927: duqupingyin = 'nue 'Case -14926 To -14923: duqupingyin = 'nuo 'Case -14922 To -14922: duqupingyin = 'o 'Case -14921 To -14915: duqupingyin = 'ou 'Case -14914 To -14909: duqupingyin = 'pa 'Case -14908 To -14903: duqupingyin = 'pai 'Case -14902 To -14895: duqupingyin = 'pan 'Case -14894 To -14890: duqupingyin = 'pang 'Case -14889 To -14883: duqupingyin = 'pao 'Case -14882 To -14874: duqupingyin = 'pei 'Case -14873 To -14872: duqupingyin = 'pen 'Case -14871 To -14858: duqupingyin = 'peng 'Case -14857 To -14679: duqupingyin = 'pi 'Case -14678 To -14675: duqupingyin = 'pian 'Case -14674 To -14671: duqupingyin = 'piao 'Case -14670 To -14669: duqupingyin = 'pie 'Case -14668 To -14664: duqupingyin = 'pin 'Case -14663 To -14655: duqupingyin = 'ping 'Case -14654 To -14646: duqupingyin = 'po 'Case -14645 To -14631: duqupingyin = 'pu 'Case -14630 To -14595: duqupingyin = 'qi 'Case -14594 To -14430: duqupingyin = 'qia 'Case -14429 To -14408: duqupingyin = 'qian 'Case -14407 To -14400: duqupingyin = 'qiang 'Case -14399 To -14385: duqupingyin = 'qiao 'Case -14384 To -14380: duqupingyin = 'qie 'Case -14379 To -14369: duqupingyin = 'qin 'Case -14368 To -14356: duqupingyin = 'qing 'Case -14355 To -14354: duqupingyin = 'qiong 'Case -14353 To -14346: duqupingyin = 'qiu 'Case -14345 To -14171: duqupingyin = 'qu 'Case -14170 To -14160: duqupingyin = 'quan 'Case -14159 To -14152: duqupingyin = 'que 'Case -14151 To -14150: duqupingyin = 'qun 'Case -14149 To -14146: duqupingyin = 'ran 'Case -14145 To -14141: duqupingyin = 'rang 'Case -14140 To -14138: duqupingyin = 'rao 'Case -14137 To -14136: duqupingyin = 're 'Case -14135 To -14126: duqupingyin = 'ren 'Case -14125 To -14124: duqupingyin = 'reng 'Case -14123 To -14123: duqupingyin = 'ri 'Case -14122 To -14113: duqupingyin = 'rong 'Case -14112 To -14110: duqupingyin = 'rou 'Case -14109 To -14100: duqupingyin = 'ru 'Case -14099 To -14098: duqupingyin = 'ruan 'Case -14097 To -14095: duqupingyin = 'rui 'Case -14094 To -14093: duqupingyin = 'run 'Case -14092 To -14091: duqupingyin = 'ruo 'Case -14090 To -14088: duqupingyin = 'sa 'Case -14087 To -14084: duqupingyin = 'sai 'Case -14083 To -13918: duqupingyin = 'san 'Case -13917 To -13915: duqupingyin = 'sang 'Case -13914 To -13911: duqupingyin = 'sao 'Case -13910 To -13908: duqupingyin = 'se 'Case -13907 To -13907: duqupingyin = 'sen 'Case -13906 To -13906: duqupingyin = 'seng 'Case -13905 To -13897: duqupingyin = 'sha 'Case -13896 To -13895: duqupingyin = 'shai 'Case -13894 To -13879: duqupingyin = 'shan 'Case -13878 To -13871: duqupingyin = 'shang 'Case -13870 To -13860: duqupingyin = 'shao 'Case -13859 To -13848: duqupingyin = 'she 'Case -13847 To -13832: duqupingyin = 'shen 'Case -13831 To -13659: duqupingyin = 'sheng 'Case -13658 To -13612: duqupingyin = 'shi 'Case -13611 To -13602: duqupingyin = 'shou 'Case -13601 To -13407: duqupingyin = 'shu 'Case -13406 To -13405: duqupingyin = 'shua 'Case -13404 To -13401: duqupingyin = 'shuai 'Case -13400 To -13399: duqupingyin = 'shuan 'Case -13398 To -13396: duqupingyin = 'shuang 'Case -13395 To -13392: duqupingyin = 'shui 'Case -13391 To -13388: duqupingyin = 'shun 'Case -13387 To -13384: duqupingyin = 'shuo 'Case -13383 To -13368: duqupingyin = 'si 'Case -13367 To -13360: duqupingyin = 'song 'Case -13359 To -13357: duqupingyin = 'sou 'Case -13356 To -13344: duqupingyin = 'su 'Case -13343 To -13341: duqupingyin = 'suan 'Case -13340 To -13330: duqupingyin = 'sui 'Case -13329 To -13327: duqupingyin = 'sun 'Case -13326 To -13319: duqupingyin = 'suo 'Case -13318 To -13148: duqupingyin = 'ta 'Case -13147 To -13139: duqupingyin = 'tai 'Case -13138 To -13121: duqupingyin = 'tan 'Case -13120 To -13108: duqupingyin = 'tang 'Case -13107 To -13097: duqupingyin = 'tao 'Case -13096 To -13096: duqupingyin = 'te 'Case -13095 To -13092: duqupingyin = 'teng 'Case -13091 To -13077: duqupingyin = 'ti 'Case -13076 To -13069: duqupingyin = 'tian 'Case -13068 To -13064: duqupingyin = 'tiao 'Case -13063 To -13061: duqupingyin = 'tie 'Case -13060 To -12889: duqupingyin = 'ting 'Case -12888 To -12876: duqupingyin = 'tong 'Case -12875 To -12872: duqupingyin = 'tou 'Case -12871 To -12861: duqupingyin = 'tu 'Case -12860 To -12859: duqupingyin = 'tuan 'Case -12858 To -12853: duqupingyin = 'tui 'Case -12852 To -12850: duqupingyin = 'tun 'Case -12849 To -12839: duqupingyin = 'tuo 'Case -12838 To -12832: duqupingyin = 'wa 'Case -12831 To -12830: duqupingyin = 'wai 'Case -12829 To -12813: duqupingyin = 'wan 'Case -12812 To -12803: duqupingyin = 'wang 'Case -12802 To -12608: duqupingyin = 'wei 'Case -12607 To -12598: duqupingyin = 'wen 'Case -12597 To -12595: duqupingyin = 'weng 'Case -12594 To -12586: duqupingyin = 'wo 'Case -12585 To -12557: duqupingyin = 'wu 'Case -12556 To -12360: duqupingyin = 'xi 'Case -12359 To -12347: duqupingyin = 'xia 'Case -12346 To -12321: duqupingyin = 'xian 'Case -12320 To -12301: duqupingyin = 'xiang 'Case -12300 To -12121: duqupingyin = 'xiao 'Case -12120 To -12100: duqupingyin = 'xie 'Case -12099 To -12090: duqupingyin = 'xin 'Case -12089 To -12075: duqupingyin = 'xing 'Case -12074 To -12068: duqupingyin = 'xiong 'Case -12067 To -12059: duqupingyin = 'xiu 'Case -12058 To -12040: duqupingyin = 'xu 'Case -12039 To -11868: duqupingyin = 'xuan 'Case -11867 To -11862: duqupingyin = 'xue 'Case -11861 To -11848: duqupingyin = 'xun 'Case -11847 To -11832: duqupingyin = 'ya 'Case -11831 To -11799: duqupingyin = 'yan 'Case -11798 To -11782: duqupingyin = 'yang 'Case -11781 To -11605: duqupingyin = 'yao 'Case -11604 To -11590: duqupingyin = 'ye 'Case -11589 To -11537: duqupingyin = 'yi 'Case -11536 To -11359: duqupingyin = 'yin 'Case -11358 To -11341: duqupingyin = 'ying 'Case -11340 To -11340: duqupingyin = 'yo 'Case -11339 To -11325: duqupingyin = 'yong 'Case -11324 To -11304: duqupingyin = 'you 'Case -11303 To -11098: duqupingyin = 'yu 'Case -11097 To -11078: duqupingyin = 'yuan 'Case -11077 To -11068: duqupingyin = 'yue 'Case -11067 To -11056: duqupingyin = 'yun 'Case -11055 To -11053: duqupingyin = 'za 'Case -11052 To -11046: duqupingyin = 'zai 'Case -11045 To -11042: duqupingyin = 'zan 'Case -11041 To -11039: duqupingyin = 'zang 'Case -11038 To -11025: duqupingyin = 'zao 'Case -11024 To -11021: duqupingyin = 'ze 'Case -11020 To -11020: duqupingyin = 'zei 'Case -11019 To -11019: duqupingyin = 'zen 'Case -11018 To -11015: duqupingyin = 'zeng 'Case -11014 To -10839: duqupingyin = 'zha 'Case -10838 To -10833: duqupingyin = 'zhai 'Case -10832 To -10816: duqupingyin = 'zhan 'Case -10815 To -10801: duqupingyin = 'zhang 'Case -10800 To -10791: duqupingyin = 'zhao 'Case -10790 To -10781: duqupingyin = 'zhe 'Case -10780 To -10765: duqupingyin = 'zhen 'Case -10764 To -10588: duqupingyin = 'zheng 'Case -10587 To -10545: duqupingyin = 'zhi 'Case -10544 To -10534: duqupingyin = 'zhong 'Case -10533 To -10520: duqupingyin = 'zhou 'Case -10519 To -10332: duqupingyin = 'zhu 'Case -10331 To -10330: duqupingyin = 'zhua 'Case -10329 To -10329: duqupingyin = 'zhuai 'Case -10328 To -10323: duqupingyin = 'zhuan 'Case -10322 To -10316: duqupingyin = 'zhuang 'Case -10315 To -10310: duqupingyin = 'zhui 'Case -10309 To -10308: duqupingyin = 'zhun 'Case -10307 To -10297: duqupingyin = 'zhuo 'Case -10296 To -10282: duqupingyin = 'zi 'Case -10281 To -10275: duqupingyin = 'zong 'Case -10274 To -10271: duqupingyin = 'zou 'Case -10270 To -10263: duqupingyin = 'zu 'Case -10262 To -10261: duqupingyin = 'zuan 'Case -10260 To -10257: duqupingyin = 'zui 'Case -10256 To -10255: duqupingyin = 'zun 'Case -10254 To -10254: duqupingyin = 'zuo 'Case Else: duqupingyin = pEnd SelectEnd FunctionFunction py(str)For i = 1 To Len(str)py = py & duqupingyin(Mid(str, i, 1))Next iEnd Function

然后回到Excel界面任意输入汉字，在右侧输入对应的py函数，即可得到拼音

最后保存文件即可，如下图所示：