1.  把一组汉字变为一组汉字拼音的第一个字母的自定义函数

 
By:一念
Option Compare Text
Function PY(ByVal rng As Range)
    Dim i%, k%, str$
 
    str = Replace(Replace(rng, " ", ""), "　", "")
    For i = 1 To Len(str)
        If Mid(str, i, 1) < "吖" Then
            PY = PY & Mid(str, i, 1)
        Else
            k = 1
            Do Until Mid("八擦哒妸发旮铪讥讥咔垃妈拿哦妑七然仨他哇哇哇夕丫匝咗", k, 1) > Mid(str, i, 1)
                k = k + 1
            Loop
            PY = PY & Chr(64 + k)
        End If
    Next
End Function