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

第一种方法： 打开 Excel-工具-宏-Viaual Basic 编辑器 在弹出来的窗口中对着 VBAproject 点右键-插入-模块下面会出现一个名为模块 1，点击 在右边的空白栏中粘贴以下内容： Function getpychar(char) tmp = 65536 + Asc(char) If (tmp = 45217 And tmp = 45252) Then getpychar = A ElseIf (tmp = 45253 And tmp = 45760) Then getpychar = B ElseIf (tmp = 45761 And tmp = 46317) Then getpychar = C ElseIf (tmp = 46318 And tmp = 46825) Then getpychar = D ElseIf (tmp = 46826 And tmp = 47009) Then getpychar = E ElseIf (tmp = 47010 And tmp = 47296) Then getpychar = F ElseIf (tmp = 47297 And tmp = 47613) Then getpychar = G ElseIf (tmp = 47614 And tmp = 48118) Then getpychar = H ElseIf (tmp = 48119 And tmp = 49061) Then getpychar = J ElseIf (tmp = 49062 And tmp = 49323) Then getpychar = K ElseIf (tmp = 49324 And tmp = 49895) Then getpychar = L ElseIf (tmp = 49896 And tmp = 50370) Then getpychar = M ElseIf (tmp = 50371 And tmp = 50613) Then getpychar = N ElseIf (tmp = 50614 And tmp = 50621) Then getpychar = O ElseIf (tmp = 50622 And tmp = 50905) Then getpychar = P ElseIf (tmp = 50906 And tmp = 51386) Then getpychar = Q ElseIf (tmp = 51387 And tmp = 51445) Then getpychar = R ElseIf (tmp = 51446 And tmp = 52217) Then getpychar = S ElseIf (tmp = 52218 And tmp = 52697) Then getpychar = T ElseIf (tmp = 52698 And tmp = 52979) Then getpychar = W ElseIf (tmp = 52980 And tmp = 53640) Then getpychar = X ElseIf (tmp = 53689 And tmp = 54480) Then getpychar = Y ElseIf (tmp = 54481 And tmp = 62289) Then getpychar = Z Else 如果不是中文，则不处理 getpychar = char End If End Function Function getpy(str) For i = 1 To Len(str) getpy = getpy getpychar(Mid(str, i, 1)) Next i End Function 现在转换函数已编写完成!关掉此编缉的窗口。要在 Excel 中使用，方法如下： A1 A2 中国 =getpy(A1) 第二种方法更简单些，但只能转单个字： =IF(LEN(A1)0,LOOKUP(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, B,C,D,E,F,G,H,J,K,L,M,N,O,P,Q,R,S,T,W,X,Y, Z}),) B,C,D,E,F,G,H,J,K,L,M,N,O,P,Q,R,S,T,W,X,Y, Z}),)