Excel提取中文的首字母 - 图1

    Excel提取中文的首字母 - 图2

    把代码复制进去

    1. Function Getpychar(char)
    3. temp = 65536 + Asc(char)
    5. If (temp >= 45217 And temp <= 45252) Then
    7. Getpychar = "A"
    9. ElseIf (temp >= 45253 And temp <= 45760) Then
    11. Getpychar = "B"
    13. ElseIf (temp >= 45761 And temp <= 46317) Then
    15. Getpychar = "C"
    17. ElseIf (temp >= 46318 And temp <= 46825) Then
    19. Getpychar = "D"
    21. ElseIf (temp >= 46826 And temp <= 47009) Then
    23. Getpychar = "E"
    25. ElseIf (temp >= 47010 And temp <= 47296) Then
    27. Getpychar = "F"
    29. ElseIf (temp >= 47297 And temp <= 47613) Then
    31. Getpychar = "G"
    33. ElseIf (temp >= 47614 And temp <= 48118) Then
    35. Getpychar = "H"
    37. ElseIf (temp >= 48119 And temp <= 49061) Then
    39. Getpychar = "J"
    41. ElseIf (temp >= 49062 And temp <= 49323) Then
    43. Getpychar = "K"
    45. ElseIf (temp >= 49324 And temp <= 49895) Then
    47. Getpychar = "L"
    49. ElseIf (temp >= 49896 And temp <= 50370) Then
    51. Getpychar = "M"
    53. ElseIf (temp >= 50371 And temp <= 50613) Then
    55. Getpychar = "N"
    57. ElseIf (temp >= 50614 And temp <= 50621) Then
    59. Getpychar = "O"
    61. ElseIf (temp >= 50622 And temp <= 50905) Then
    63. Getpychar = "P"
    65. ElseIf (temp >= 50906 And temp <= 51386) Then
    67. Getpychar = "Q"
    69. ElseIf (temp >= 51387 And temp <= 51445) Then
    71. Getpychar = "R"
    73. ElseIf (temp >= 51446 And temp <= 52217) Then
    75. Getpychar = "S"
    77. ElseIf (temp >= 52218 And temp <= 52697) Then
    79. Getpychar = "T"
    81. ElseIf (temp >= 52698 And temp <= 52979) Then
    83. Getpychar = "W"
    85. ElseIf (temp >= 52980 And temp <= 53640) Then
    87. Getpychar = "X"
    89. ElseIf (temp >= 53689 And temp <= 54480) Then
    91. Getpychar = "Y"
    93. ElseIf (temp >= 54481 And temp <= 62289) Then
    95. Getpychar = "Z"
    97. Else
    99. Getpychar = char
    101. End If
    103. End Function
    105. Function Getpy(str)
    107. For a = 1 To Len(str)
    109. Getpy = Getpy & Getpychar(Mid(str, a, 1))
    111. Next a
    113. End Function

    Excel提取中文的首字母 - 图3

    Excel提取中文的首字母 - 图4

    1. =getpy()

    最后回车完成，下拉补全即可