1、首先百度搜索（新华字典Excel版）。如图所示。
2、点击链接进去下载，然后用Excel打开。然后删除CDEFGHI列。只留AB两列。
3、然后删除CDEFGHI列。只留AB两列，如图所示。
4、重新建立一张工作表，如下图，A列输入你要转换的汉字，B列为拼音，如图所示。
5、在图中B2单元格写入公式 =VLOOKUP(A2,Sheet2!A:B,2,0) .然后下拉填充所有汉字的拼音就都出来了，完成效果图。
温馨提示：答案为网友推荐，仅供参考
第1个回答 推荐于2017-09-29
单个汉字的话可以直接用公式，多个汉字的话vba更方便一些。
按住ALT依次按F11,I,M。将下面的代码粘贴到右侧窗口。
==========
Function PY(x)
On Error Resume Next
Application.Volatile
For i = 1 To Len(x)
PY = PY & Application.WorksheetFunction.HLookup(Mid(x, 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)
Next
End Function
==========
假设要转化的汉字在A列，B1输入公式 =PY(A1)向下填充即可。本回答被提问者和网友采纳
按住ALT依次按F11,I,M。将下面的代码粘贴到右侧窗口。
==========
Function PY(x)
On Error Resume Next
Application.Volatile
For i = 1 To Len(x)
PY = PY & Application.WorksheetFunction.HLookup(Mid(x, 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)
Next
End Function
==========
假设要转化的汉字在A列，B1输入公式 =PY(A1)向下填充即可。本回答被提问者和网友采纳
第2个回答 2008-12-31
呒 原来是一贴上去就会变
相似回答