excel中获取汉字的首字母

1.首先打开Excel，然后按Alt+F11打开Viaual Basic编辑器，点击工具栏“插入”，下拉菜单内点击“模块”；

2.把准备好的取拼音首字母大写函数粘贴进来，关闭Viaual Basic编辑器。

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

    g