Excel中文转拼音VIP专享

Ex cel 中文转拼音（完整版） 打开Ex cel->工具->宏->Viau al Basic 编辑器 在弹出来的窗口中对着VBAproject 点右键->插入->模块 下面会出现一个名为"模块1"，点击 在右边的空白栏中粘贴以下内容： Fu nction piny in(p As String) As String i = Asc(p) Select Case i Case -20319 To -20318: piny in = "a " Case -20317 To -20305: piny in = "ai " Case -20304 To -20296: piny in = "an " Case -20295 To -20293: piny in = "ang " Case -20292 To -20284: piny in = "ao " Case -20283 To -20266: piny in = "ba " Case -20265 To -20258: piny in = "bai " Case -20257 To -20243: piny in = "ban " Case -20242 To -20231: piny in = "bang " Case -20230 To -20052: piny in = "bao " Case -20051 To -20037: piny in = "bei " Case -20036 To -20033: piny in = "ben " Case -20032 To -20027: piny in = "beng " Case -20026 To -20003: piny in = "bi " Case -20002 To -19991: piny in = "bian " Case -19990 To -19987: piny in = "biao " Case -19986 To -19983: piny in = "bie " Case -19982 To -19977: piny in = "bin " Case -19976 To -19806: piny in = "bing " Case -19805 To -19785: piny in = "bo " Case -19784 To -19776: piny in = "bu " Case -19775 To -19775: piny in = "ca " Case -19774 To -19764: piny in = "cai " Case -19763 To -19757: piny in = "can " Case -19756 To -19752: piny in = "cang " Case -19751 To -19747: piny in = "cao " Case -19746 To -19742: piny in = "ce " Case -19741 To -19740: piny in = "ceng " Case -19739 To -19729: piny in = "cha " Case -19728 To -19726: piny in = "chai " Case -19725 To -19716: piny in = "chan " Case -19715 To -19541: piny in = "chang " Case -19540 To -19532: piny in = "chao " Case -19531 To -19526: piny in = "che " Case -19525 To -19516: pinyin = "chen " Case ...