想必现在有很多小伙伴对于在excel中怎样把汉字转换成拼音方面的知识都比较想要了解，那么今天小好小编就为大家收集了一些关于在excel中怎

想必现在有很多小伙伴对于在excel中怎样把汉字转换成拼音方面的知识都比较想要了解，那么今天小好小编就为大家收集了一些关于在excel中怎样把汉字转换成拼音方面的知识分享给大家，希望大家会喜欢哦。

自定义函数，借用VLOOKUP函数。

(资料图)

宏代码如下：

Public Function MyFun(rng1 As Range) As String

未经芝士回答允整许不得转载本近文内容，否则将思把视术为侵权

Dim Len_rng1 As Integer

Dim aa As String

aa = ""

地分头运光，己教习称住。

Len_rng1 = Len(rngValue)

人用分三比件图百集支般。

For i = 1 To Len_rng1

A1 = Mid(rngValue, i, 1)

If aa = "" Then aa = Application.WorksheetFunction.VLookup(A1, SheetRange("A:B"), 2, False) Else aa = aa & " " & Application.WorksheetFunction.VLookup(A1, SheetRange("A:B"), 2, False)

Next

MyFun = aa

End Function

本文到此结束，希望对大家有所帮助。

标签：