订阅在Excel中如何获取汉字拼音首字母?
来源：网络收集 点击： 时间：2024-05-09打开【Excel表格】，下面以简单的数据为例，如下图所示：
2/8按组合快捷键【Alt+F11】，打开【Visual Basic编辑器】，如下图所示：
3/8点击上面菜单栏的【插入】选项，然后选择【模板】，如下图所示：
4/8将下面的代码复制到窗口中（该代码就是取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 If
End Function
逐个取ASC码
Function getpy(str)
For i = 1 To Len(str)
getpy = getpy getpychar(Mid(str, i, 1))
Next i
End Function
5/8关闭Visual Basic编辑窗口，回到Excel表格中，如离态下图所示：
6/8在B1单元格中输入公式【=getpy(A1)】，然后按【回车键】，如下图所示：
7/8将鼠标移到B1单元格右下角呈+号时下拉填充公式即可，如下图所示：
8/8总结：
汉字字母获取汉字字母EXCEL字母EXCEL获取字母EXCEL取汉字母 版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_721384.html
