[已解决]求汉字首字母

cxloen

123中国南城
求写个函数，取123ZGNC，即汉字首字母
下面代码经测试有误，求助

Function GetPingYing(char) '根据中文单字得到首字拼音字母，其它不变
Dim PingYingResult As String
Dim i%
Dim Str
    Application.Volatile
    On Error Resume Next
    For i = 1 To Len(char)
        Str = Application.Evaluate("VLookup(""" & Mid(char, i, 1) & _
            """,{""吖"",""A"";""八"",""B"";""嚓"",""C"";""咑"",""D"";""鵽"",""E"";""发"",""F"";""猤"",""G"";""铪"",""H"";""夻"",""J"";""咔"",""K"";""垃"",""L"";""嘸"",""M"";""旀"",""N"";""噢"",""O"";""妑"",""P"";""七"",""Q"";""囕"",""R"";""仨"",""S"";""他"",""T"";""屲"",""W"";""夕"",""X"";""丫"",""Y"";""帀"",""Z""},2,1)")
        If IsError(Str) Then Str = Mid(char, i, 1)
        PingYingResult = PingYingResult & Str
    Next
        GetPingYing = PingYingResult
End Function

最佳答案

月排行榜 / 总排行榜

我心飞翔410

2013-9-22 15:59

网上收的资源我自己也不会呵呵  你看看第二列的公式的区别

跳转到最佳答案楼层

我心飞翔410

网上收的资源我自己也不会呵呵  你看看第二列的公式的区别

zjdh

测试正常啊