本帖最后由 ggmmlol 于 2018-6-24 09:06 编辑
谢谢楼下指正E、N、P三个拼音首字母的代表汉字。下面的代码已经修正。
我的win10(64位)+Office2013(32位),简单取拼音首字母的函数需要调整如下:
Function Py$(ByVal rng As String)
Dim i%, pyArr, str$, s$
pyArr = [{"吖","A";"八","B";"攃","C";"咑","D";"妸","E";"发","F";"旮","G";"哈","H";"丌","J";"咔","K";"垃","L";"妈","M";"乸","N";"噢","O";"帊","P";"七","Q";"冄","R";"仨","S";"他","T";"屲","W";"夕","X";"丫","Y";"帀","Z"}]
str = UCase(Replace(Replace(rng, " ", ""), " ", "")) '去空格和Tab
For i = 1 To Len(str)
s = Mid(str, i, 1)
If s Like "[一-龥]" Then s = WorksheetFunction.Lookup(s, pyArr) '如果是CJK统一汉字,先进行转换
Py = Py & s '
Next
End Function |