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

1、1第一种方法:打开Excel-江具-宏-Viaual Basic编辑器在弹出来的窗口中对着 VBAproject点右键-插入-模块F面会出现一个名为"模块1"，点击在右边的空白栏中粘贴以下内容:Fun cti on get pychar(char) tmp = 65536 + Asc(char)If (tmp >= 45217 And tmp <= 45252) Then get pychar = "A"ElseIf (tmp >= 45253 And tmp <= 45760) Then get pychar = "B

2、"ElseIf (tmp >= 45761 And tmp <= 46317) Then get pychar = "C"ElseIf (tmp >= 46318 And tmp <= 46825) Then get pychar = "D"ElseIf (tmp >= 46826 And tmp <= 47009) Then get pychar = "E"ElseIf (tmp >= 47010 And tmp <= 47296) Then get pychar = &qu

3、ot;F"ElseIf (tmp >= 47297 And tmp <= 47613) Then get pychar = "G"ElseIf (tmp >= 47614 And tmp <= 48118) Then get pychar = "H"Elself (tmp >= 48119 And tmp <= 49061) Then get pychar = "J"Elself (tmp >= 49062 And tmp <= 49323) Then get pychar =

4、 "K"Elself (tmp >= 49324 And tmp <= 49895) Then get pychar = "L"Elself (tmp >= 49896 And tmp <= 50370) Then get pychar = "M"Elself (tmp >= 50371 And tmp <= 50613) Then get pychar = "N"Elself (tmp >= 50614 And tmp <= 50621) Then get pych

5、ar = "O"Elself (tmp >= 50622 And tmp <= 50905) Then get pychar = "P"Elself (tmp >= 50906 And tmp <= 51386) Then get pychar = "Q"Elself (tmp >= 51387 And tmp <= 51445) Then get pychar = "R"Elself (tmp >= 51446 And tmp <= 52217) Then get

6、pychar = "S"Elself (tmp >= 52218 And tmp <= 52697) Then get pychar = "T"Elself (tmp >= 52698 And tmp <= 52979) Then get pychar = "W"Elself (tmp >= 52980 And tmp <= 53640) Then get pychar = "X"Elself (tmp >= 53689 And tmp <= 54480) Then

7、get pychar = "Y"Elself (tmp >= 54481 And tmp <= 62289) Then get pychar = "Z"Else如果不是中文，则不处理 get pychar = charEnd IfEnd Fun cti onFun cti on get py (str)For i = 1 To Len( str) get py = get py & get pychar(Mid(str, i, 1)Next iEnd Fun cti on现在转换函数已编写完成！关掉此编缉的窗口。要在Excel中使用，方法如下:A1A2中国=get py(A1)2.第二种方法更简单些，但只能转单个字: =IF(LEN(A1)>0,LOOKU P(CODE(A1),45217+0,36,544,1101,1609,1793,2080,2560,2902 ,3845,4107,4679,5154,5397,5405,5689,6170,6229,7001,7481,7763,8472,9264,"A","BTC","DTETFTGTH","JTKTLTM"