Excel实现中文首字母提取。从中文中提取各个汉字的拼音的首字母。这里用了两种方法：

纯函数解法和VBA自定义函数法。两种方法都可以快速实现首字母提取。但是这里有些自带函数在旧版本中是不适用的。所以可使用自定义函数的方法。

作者：小林子-Office中国

Excel提取数据结果

 Excel提取首字母大写详细VBA代码：               

        Public Function pinyin(ByVal r As String)

            hz = "啊芭擦搭蛾发噶哈击喀垃妈拿哦啪期然撒塌挖西压匝ABCDEFGHJKLMNOPQRSTWXYZZ"

            For i = 1 To Len(r)

                For j = 1 To 24

                    If Asc(Mid(r, i, 1))>= Asc(Mid(hz, j, 1)) Then temp = Mid(hz, 23 + j, 1)

                Next

                pinyin = pinyin & temp

            Next

        End Function

 Excel提取首字母大写函数方法：

=BASE(SUM(IFNA(DECIMAL(LOOKUP(MID(A1,ROW($1:$9),1),MID("啊芭擦搭蛾发噶哈击喀垃妈拿哦啪期然撒塌挖西压匝ABCDEFGHJKLMNOPQRSTWXYZZ",ROW($1:$24)+{0,23},1)),36)*36^(LEN(A1)-ROW($1:$9)),)),36)

=BASE(SUM(IFNA((MATCH(MID(A1,ROW($1:$9),1),MID("啊芭擦搭蛾发噶哈活击喀垃妈拿哦啪期然撒塌拖拖挖西压匝",ROW($1:$26),1))+9)*36^(LEN(A1)-ROW($1:$9)),)),36)