EXCEL中直接把中文转换成拼音全拼.docxVIP

1.第一种方法： 打开Excel-工具-宏-Viaual Basic编辑器在弹出来的窗口中对着VBAproject点右键-插入-模块下面会出现一个名为模块1，点击在右边的空白栏中粘贴以下内容： ? Function getpychar(char)tmp = 65536 + Asc(char)If (tmp = 45217 And tmp = 45252) Thengetpychar = AElseIf (tmp = 45253 And tmp = 45760) Thengetpychar = BElseIf (tmp = 45761 And tmp = 46317) Thengetpychar = CElseIf (tmp = 46318 And tmp = 46825) Thengetpychar = DElseIf (tmp = 46826 And tmp = 47009) Thengetpychar = EElseIf (tmp = 47010 And tmp = 47296) Thengetpychar = FElseIf (tmp = 47297 And tmp = 47613) Thengetpychar = GElseIf (tmp = 47614 And tmp = 48118) Thengetpychar = HElseI