excel中文转拼音

Function pinyin(p As String) As Stringi = Asc(p)Select Case iCase -20319 To -20318: pinyin = "a"     Case -20317 To -20305: pinyin = "ai"    Case -20304 T…