excel

提取汉字首字母函数

【

Excel

函数提取中文首字母】

在日常工作中，我们常常需要处理汉字相关的数据，而

Excel

中没有直

接提取汉字首字母的函数。为了解决这个问题，我们可以使用

VBA

自

定义函数或是使用

IF

、

MID

等函数进行求解。

方法一：

使用

VBA

自定义函数

1. 

按下

Alt+F11

，打开

VBE

编辑器，插入一个新模块，输入以下代码：

Function GetFirstLetter(str As String) As String 

    Dim pinyin As Variant 

    pinyin = Split(CreateObject("ChineseSpell.Spelling").GetPinyin(str), " ") 

    Dim i As Integer 

    GetFirstLetter = "" 

    For i = LBound(pinyin) To UBound(pinyin) 

        GetFirstLetter = GetFirstLetter & Left(pinyin(i), 1) 

    Next i 

End Function 

2. 

在

Excel

工作表中输入汉字，例如输入

“

中文提取首字母

”

，在相邻的

单元格中输入函数

“=getfirstletter(A1)”

，其中

A1

为待提取首字母的单

元格。