Excel汉语变拼音？1、首先在电脑桌面上打开excel文档。2、然后输入公式“=getpy(C2)”。3、此时就出现拼音了。4、接着选中D2单元格，向下拖动鼠标。5、所有姓名都自动生成拼音了。6、输入公式“=PROPER(D2)”，按回车确认，那么，Excel汉语变拼音？一起来了解一下吧。
不知道你会不会用VBA，如果会的话一下两个模块（现在是直接显示汉字的声母）稍微修改一下就可以实现你需要的功能，使用的时候像函数一样就可以了例如你需要A1中的汉字转换成拼音就直接用PY(A1)就可以实现。
Public Function PY(TT As String) As Variant '自定义函数，目的：把一组汉字变为一组汉字拼音的第一个字母。
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 i
End Function
Public Function pinyin(myStr As String) As Variant '自定义函数，目的：把单个汉字变为拼音的第一个字母。
On Error Resume Next
myStr = StrConv(myStr, vbNarrow)
If Asc(myStr) > 0 Or Err.Number = 1004 Then pinyin = ""
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
准备/材料：装有windows10的电脑一台，MicrosoftOffice家庭和学生版2007excel软纯敬件。
1、首先使用officeExcel2007打开文档；
2、然后在单元格D2中标记鼠标，输入公式"=getpy(C2)"，然后按回车键确认；
3、我们就看到姓名一栏汉语拼音就自动出现了；
4、选择单元猜坦格D2，将鼠标放在单元格的右下角，并在""出现时向下拖动鼠标；
5、这样，姓名一栏所有的汉字都以拼音做兆慎形式显示了。
Excel内是可以把中文转换成为拼音的，但需要转换函数（函数可通过网络上面），下面给出具体操作方法：
所需材料：Excel、准备好的中文转拼音函数。
一、首先打开Excel，然后按Alt+F11打开Viaual Basic编辑器，点击栏“插入”，选项内点击“模块”。
二、这时把准备好的中文转拼音函数粘贴入该模块下，然后就可以关闭掉Viaual Basic编辑器。
三、回到Excel界面在需要搏旁州转换的单元格内输入中文转拼音的公式（这里需要根据的函数来输入对应的公式，如下图的公式为=pinyin，而有一些公式则为=getpy，注意公启宴式不要用错），按下回车键即可得到公式内所求单元格的拼音。
四、最后按住已转换完成单基蔽元格右下角向下拖动即可得到整列中文的拼音 。
怎么把汉字转换成拼音？
有多个信空在线转换拼音滑行瞎的网站，将汉字粘贴到转换框带哪，就能得到结果：
zěn me bǎ hàn zì zhuǎn huàn chéng pīn yīn
网上找的，我自己没测试。
让人加分不厚道，助人为乐快乐之本
打开Excel->->宏->Viaual Basic编辑器
在弹出来的窗口中对着VBAproject点返首右键->插入->模块
下面会出现一个名为"模块1"，点击
在右边的空白栏中粘卜世竖贴以下内容：
''''''''''''''''''''''
'VBscript代码提供者：小白
'联系方法：
'E-mail:xiaobai@17560.net
'
'VBA代码转换者：惟惟
'联系方法：Email:wuweiyin@yeah.net
'个人博客：http://weiwei.blog.163.com
'如有不正确的地方型大，请提出来或是帮忙完善
'谢谢
''''''''''''''''''''''''''''''
Function getpychar(char)
tmp = 65536 + Asc(char)
If (tmp >= 45217 And tmp <= 45252) Then
getpychar = "A"
ElseIf (tmp >= 45253 And tmp <= 45760) Then
getpychar = "B"
ElseIf (tmp >= 45761 And tmp <= 46317) Then
getpychar = "C"
ElseIf (tmp >= 46318 And tmp <= 46825) Then
getpychar = "D"
ElseIf (tmp >= 46826 And tmp <= 47009) Then
getpychar = "E"
ElseIf (tmp >= 47010 And tmp <= 47296) Then
getpychar = "F"
ElseIf (tmp >= 47297 And tmp <= 47613) Then
getpychar = "G"
ElseIf (tmp >= 47614 And tmp <= 48118) Then
getpychar = "H"
ElseIf (tmp >= 48119 And tmp <= 49061) Then
getpychar = "J"
ElseIf (tmp >= 49062 And tmp <= 49323) Then
getpychar = "K"
ElseIf (tmp >= 49324 And tmp <= 49895) Then
getpychar = "L"
ElseIf (tmp >= 49896 And tmp <= 50370) Then
getpychar = "M"
ElseIf (tmp >= 50371 And tmp <= 50613) Then
getpychar = "N"
ElseIf (tmp >= 50614 And tmp <= 50621) Then
getpychar = "O"
ElseIf (tmp >= 50622 And tmp <= 50905) Then
getpychar = "P"
ElseIf (tmp >= 50906 And tmp <= 51386) Then
getpychar = "Q"
ElseIf (tmp >= 51387 And tmp <= 51445) Then
getpychar = "R"
ElseIf (tmp >= 51446 And tmp <= 52217) Then
getpychar = "S"
ElseIf (tmp >= 52218 And tmp <= 52697) Then
getpychar = "T"
ElseIf (tmp >= 52698 And tmp <= 52979) Then
getpychar = "W"
ElseIf (tmp >= 52980 And tmp <= 53640) Then
getpychar = "X"
ElseIf (tmp >= 53689 And tmp <= 54480) Then
getpychar = "Y"
ElseIf (tmp >= 54481 And tmp <= 62289) Then
getpychar = "Z"
Else '如果不是中文，则不处理
getpychar = char
End If
End Function
Function getpy(str)
For i = 1 To Len(str)
getpy = getpy & getpychar(Mid(str, i, 1))
Next i
End Function
********复制到此结束,本行不复制*******
现在转换函数已编写完成!关掉此编缉的窗口。
以上就是Excel汉语变拼音的全部内容，1、首先在自己电脑上，打开Excel一份表格。2、在打开的表格D1单元格上，输入转拼音的汉字，然后在D2单元格里输入=getpy(A2)公式。因为姓名在A列上，所以需要引用单元格选择A2。3、输入完公式选中好引用名字的单元格之后。
