摘要：提取汉字拼音首字母的VBA代码：Option ExplicitFunction PY(TT As String) As Variant '自定义函数，目的：把一组汉字变为一组汉字拼音的第一个字母。Dim i%, temp$ PY = "" For i = 1 To Len(TT) temp = Asc(Mid$(TT, i, 1)) If temp > ... 阅读全文