excel中如何实现提取汉字的拼音首字母-excel提取拼音,excel提取中文首字母

可以编百写一个自定义函数解决

Option Compare Text

Function JPY(cel As Range)

    For i = 1 To Len(cel.Value)

    ss = Mid(cel.Value, i, 1)

        k = 1

        Do Until Mid("阿芭才搭蛾度发噶哈击击咔垃妈拿哦知啪期然撒塌挖道挖挖西压匝咗", k, 1) > ss

            k = k + 1

        Loop

        py = py & Chr(95 + k)

    Next

    JPY = py

End Function

如D20为“半自专动帽子”，则自属定义函数为 =JPY(D20),  结果为 bzdmz