在excel中怎样把汉字转换成拼音

自定义函数，借用VLOOKUP函数。
宏代码如下：

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

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/ev3effj3ryerfr2yef2.html