엑셀 중국어 병음 변환, 함수로 쉽게 해결하는 방법

Function PinYin(ParamArray Range() As Variant)
 
'###############################################################
'오빠두엑셀 VBA 사용자지정함수 (https://www.oppadu.com)
'▶ PinYin 함수
'▶ 중국어 문장의 병음(발음)을 반환합니다. 중국어와 병음이 입력된 표를 참조하여 동작합니다.
'▶ 인수 설명
'_____________Range     : 중국어 또는 중국어가 입력된 셀, 범위입니다.
'###############################################################
 
Dim vRngs As Variant
Dim vRng As Variant
Dim sStr As String
Dim sChar As String: Dim sPinyin As String
Dim sResult As String
Dim WS As Worksheet
 
On Error GoTo EH:
 
'시트이름을 넣어주세요.
Set WS = ThisWorkbook.Worksheets("1500자")  '<-- 시트 이름을 변경합니다.
 
For Each vRngs In Range
    For Each vRng In vRngs
        sStr = vRng.Value
        For i = 1 To Len(sStr)
            sChar = Mid(sStr, i, 1)
            sPinyin = Application.WorksheetFunction.VLookup(sChar, WS.Range("A:B"), 2, False)
            sResult = sResult & sPinyin & " "
        Next
    Next
Next
 
PinYin = sResult
 
Exit Function
 
EH:
            sPinyin = sChar
            Resume Next
End Function