返回目录：office365
自定义来函数，借用VLOOKUP函数。源
宏代码zd如下：
Public Function MyFun(rng1 As Range) As String
Dim Len_rng1 As Integer
Dim aa As String
aa = ""
Len_rng1 = Len(rng1.Value)
For i = 1 To Len_rng1
A1 = Mid(rng1.Value, i, 1)
If aa = "" Then aa = Application.WorksheetFunction.VLookup(A1, Sheet2.Range("A:B"), 2, False) Else aa = aa & " " & Application.WorksheetFunction.VLookup(A1, Sheet2.Range("A:B"), 2, False)
Next
MyFun = aa
End Function
第一来步：创建自定义函数。代码如下：
Function pinyin(p As String) As String
i = Asc(p)
Select Case i
Case -20319 To -20318: pinyin = "a "
省略（源因有字数限制）
Case -10254 To -10254: pinyin = "zuo "
Case Else: pinyin = p
End Select
End Function
Function getpy(str)
For i = 1 To Len(str)
getpy = getpy & pinyin(Mid(str, i, 1))
Next i
End Function
第二步：在A列输入汉字。如图：
第三步：在B列输入公zhidao式。如图：
Excel内是可以把中文转换成为拼音的，但需要转换函数（函数可通过网络上面下载），下面给出具zd体操作方法：
所需材料：Excel、准备好的中文转拼音函数。
一、首先打开Excel软件，然后按Alt+F11打开Viaual Basic编辑器，点击工具栏“插入”，选项内点击“模块”。
二、这时把准备好的中文转拼音函数粘贴入该模块下，然后就可以关闭掉Viaual Basic编辑器。
三、回到Excel界面在需要转换的单元格内输入中文转拼音的公式（这回里需要根据下载的函数来输入对应的答公式，如下图的公式为=pinyin，而有一些公式则为=getpy，注意公式不要用错），按下回车键即可得到公式内所求单元格的拼音。
四、最后按住已转换完成单元格右下角向下拖动即可得到整列中文的拼音 。
软件版本：zhidaoOffice2013
方法如下：
1.Alt+F11，打开VBA编辑界面，插入模块，在模块中输入如下代码：回
Function pinyin(p As String) As String
i = Asc(p)
Select Case i
Case -20319 To -20318: pinyin = "a "
……（受字数限制，中间部分省略答）
Case -10254 To -10254: pinyin = "zuo "
Case Else: pinyin = p
End Select
End Function
Function py(x)
For i = 1 To Len(x)
py = py & pinyin(Mid(x, i, 1))
Next i
End Function
2.回到Excel中，输入公式如下：
=py（A1）
3.下拉填充得到结果如下：