Excel中文首字母提取

Excel实现中文首字母提取。从中文中提取各个汉字的拼音的首字母。这里用了两种方法：纯函数解法和VBA自定义函数法。两种方法都可以快速实现首字母提取。但是这里有些自带函数在旧版本中是不适用的。所以可使用自定义函数的方法。
作者：小林子-Office中国Excel提取数据结果

1482395612996874.jpg

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  NextEnd 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)