中文转拼音怎么转？Excel快速将中文转成拼音的操作方法

中文转拼音怎么转？当我们想要把很多中文汉子的拼音全部进行转换，一个一个字的手动转换不仅速度慢，而且容易出错的概率非常高，于是呢小编就给大家带来了通过Excel表格来快速将中文转换成汉子的方法，有需要的用户一起和winwin7往下看吧！

1、打开Excel- 工具- 宏- Viaual Basic编辑器；2、在弹出来的窗口中对着VBAproject点右键- 插入- 模块3、此时下面会出现一个名为”模块1″点击它，然后在右边的空白栏中粘贴以下内容：Function getpychar(ｃｈａｒ)tmp = 65536 + Asc(ｃｈａｒ)If (tmp = 45217 And tmp = 45252) Thengetpychar = “A”ElseIf (tmp = 45253 And tmp = 45760) Thengetpychar = “B”ElseIf (tmp = 45761 And tmp = 46317) Thengetpychar = “C”ElseIf (tmp = 46318 And tmp = 46825) Thengetpychar = “D”ElseIf (tmp = 46826 And tmp = 47009) Thengetpychar = “E”ElseIf (tmp = 47010 And tmp = 47296) Thengetpychar = “F”ElseIf (tmp = 47297 And tmp = 47613) Thengetpychar = “G”ElseIf (tmp = 47614 And tmp = 48118) Thengetpychar = “H”ElseIf (tmp = 48119 And tmp = 49061) Thengetpychar = “J”ElseIf (tmp = 49062 And tmp = 49323) Thengetpychar = “K”ElseIf (tmp = 49324 And tmp = 49895) Thengetpychar = “L”ElseIf (tmp = 49896 And tmp = 50370) Thengetpychar = “M”ElseIf (tmp = 50371 And tmp = 50613) Thengetpychar = “N”ElseIf (tmp = 50614 And tmp = 50621) Thengetpychar = “O”ElseIf (tmp = 50622 And tmp = 50905) Thengetpychar = “P”ElseIf (tmp = 50906 And tmp = 51386) Thengetpychar = “Q”ElseIf (tmp = 51387 And tmp = 51445) Thengetpychar = “R”ElseIf (tmp = 51446 And tmp = 52217) Thengetpychar = “S”ElseIf (tmp = 52218 And tmp = 52697) Thengetpychar = “T”ElseIf (tmp = 52698 And tmp = 52979) Thengetpychar = “W”ElseIf (tmp = 52980 And tmp = 53640) Thengetpychar = “X”ElseIf (tmp = 53689 And tmp = 54480) Thengetpychar = “Y”ElseIf (tmp = 54481 And tmp = 62289) Thengetpychar = “Z”Else ‘如果不是中文，则不处理getpychar = ｃｈａｒEnd IfEnd FunctionFunction getpy(str)For i = 1 To Len(str)getpy = getpy getpychar(Mid(str, i, 1))Next iEnd Function4、现在转换函数已编写完成!关掉此编缉的窗口。要在Excel中使用，方法如下：A1 A2中国 =getpy(A1)以上便是winwin7小编给大家分享介绍的Excel快速将中文转成拼音的操作方法，有需要的用户快去试试吧！

相关文章

EXCEL怎么删除所有空行？EXCEL一次删除所有空行方法Office文档中的超无法打开怎么办？修复Outlook/Excel/Word超打不开