电脑
excel2010
打开【Excel表格】，下面以简单的数据为例，如下图所示：
按组合快捷键【Alt+F11】，打开【Visual Basic编辑器】，如下图所示：
点击上面菜单栏的【插入】选项，然后选择【模板】，如下图所示：
将下面的代码复制到窗口中（该代码就是取26个字母的一个程序）如下图所示：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 >= 53679 And tmp <= 54480) Then getpychar = 'Y' ElseIf (tmp >= 54481 And tmp <= 62289) Then getpychar = 'Z' Else '如果不是中文，则不处理 getpychar = char End IfEnd Function '逐个取ASC码Function getpy(str) For i = 1 To Len(str) getpy = getpy & getpychar(Mid(str, i, 1)) Next iEnd Function
关闭Visual Basic编辑窗口，回到Excel表格中，如下图所示：
在B1单元格中输入公式【=getpy(A1)】，然后按【回车键】，如下图所示：
将鼠标移到B1单元格右下角呈+号时下拉填充公式即可，如下图所示：
总结：