想必现在有很多小伙伴对于在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
本文到此结束,希望对大家有所帮助。
标签:
X 关闭
X 关闭