打开excel 点工具---点宏 -----点Visual Basic 编辑器
插入模块,点插入----点模块
将如下代码复制到刚才插入的模块中Public Function PY(TT As String) As VariantDim i%, temp$ PY = '' For i = 1 To Len(TT) temp = Asc(Mid$(TT, i, 1)) If temp > 255 Or temp < 0 Then PY = PY & pinyin(Mid$(TT, i, 1)) Else PY = PY & LCase(Mid$(TT, i, 1)) End If Next iEnd FunctionFunction pinyin(mystr As String) As Variant On Error Resume Next mystr = StrConv(mystr, vbNarrow) If Asc(mystr) > 0 Or Err.Number = 1004 Then pinyin1 = '' pinyin = Application.WorksheetFunction.VLookup(mystr, [{'啊','A';'八','B';'嚓','C';'搭','D';'蛾','E';'发','F';'噶','G';'铪','H';'击','J';'咔','K';'垃','L';'妈','M';'拿','N';'噢','O';'啪','P';'七','Q';'然','R';'仨','S';'他','T';'挖','W';'夕','X';'压','Y';'匝','Z'}], 2)End Function
在excel 单元格中输入函数 =PY(C2) 然后回车,就把C2中的文字首拼音显示出来了