開啟Excel->工具->宏->Viaual

Basic編輯器

在彈出來的視窗中對著VBAproject點右鍵->插入->模組

在右邊的空白欄中貼上以下內容：

Function

getpychar(char)

tmp = 65536 + Asc(char)

If (tmp >= 45217 And tmp <=

45252) Then

getpychar = "A"

ElseIf (tmp >= 45253 And tmp <= 45760)

Then

getpychar = "B"

ElseIf (tmp >= 45761 And tmp <= 46317)

Then

getpychar = "C"

ElseIf (tmp >= 46318 And tmp <= 46825)

Then

getpychar = "D"

ElseIf (tmp >= 46826 And tmp <= 47009)

Then

getpychar = "E"

ElseIf (tmp >= 47010 And tmp <= 47296)

Then

getpychar = "F"

ElseIf (tmp >= 47297 And tmp <= 47613)

Then

getpychar = "G"

ElseIf (tmp >= 47614 And tmp <= 48118)

Then

getpychar = "H"

ElseIf (tmp >= 48119 And tmp <= 49061)

Then

getpychar = "J"

ElseIf (tmp >= 49062 And tmp <= 49323)

Then

getpychar = "K"

ElseIf (tmp >= 49324 And tmp <= 49895)

Then

getpychar = "L"

ElseIf (tmp >= 49896 And tmp <= 50370)

Then

getpychar = "M"

ElseIf (tmp >= 50371 And tmp <= 50613)

Then

getpychar = "N"

ElseIf (tmp >= 50614 And tmp <= 50621)

Then

getpychar = "O"

ElseIf (tmp >= 50622 And tmp <= 50905)

Then

getpychar = "P"

ElseIf (tmp >= 50906 And tmp <= 51386)

Then

getpychar = "Q"

ElseIf (tmp >= 51387 And tmp <= 51445)

Then

getpychar = "R"

ElseIf (tmp >= 51446 And tmp <= 52217)

Then

getpychar = "S"

ElseIf (tmp >= 52218 And tmp <= 52697)

Then

getpychar = "T"

ElseIf (tmp >= 52698 And tmp <= 52979)

Then

getpychar = "W"

ElseIf (tmp >= 52980 And tmp <= 53640)

Then

getpychar = "X"

ElseIf (tmp >= 53689 And tmp <= 54480)

Then

getpychar = "Y"

ElseIf (tmp >= 54481 And tmp <= 62289)

Then

getpychar = "Z"

Else "如果不是中文，則不處理

getpychar = char

End

If

End Function

Function getpy(str)

For i = 1 To Len(str)

getpy

= getpy & getpychar(Mid(str, i, 1))

Next i

End

Function

********複製到此結束,本行不復制*******

現在轉換函式已編寫完成!關掉此編緝的視窗。

要在Excel中使用，方法如下：

A1

A2

中國 =getpy(A1)