單個漢字的話可以直接用公式,多個漢字的話vba更方便一些。
按住ALT依次按F11,I,M。將下面的程式碼貼上到右側視窗。
==========
FunctionPY(x)
OnErrorResumeNext
Application.Volatile
Fori=1ToLen(x)
PY=PY&Application.WorksheetFunction.HLookup(Mid(x,i,1),[{"吖","八","嚓","咑","鵽","發","猤","鉿","夻","咔","垃","嘸","旀","噢","妑","七","囕","仨","他","屲","夕","丫","帀";"A","B","C","D","E","F","G","H","J","K","L","M","N","O","P","Q","R","S","T","W","X","Y","Z"}],2)
Next
EndFunction
假設要轉化的漢字在A列,B1輸入公式=PY(A1)向下填充即可。
單個漢字的話可以直接用公式,多個漢字的話vba更方便一些。
按住ALT依次按F11,I,M。將下面的程式碼貼上到右側視窗。
==========
FunctionPY(x)
OnErrorResumeNext
Application.Volatile
Fori=1ToLen(x)
PY=PY&Application.WorksheetFunction.HLookup(Mid(x,i,1),[{"吖","八","嚓","咑","鵽","發","猤","鉿","夻","咔","垃","嘸","旀","噢","妑","七","囕","仨","他","屲","夕","丫","帀";"A","B","C","D","E","F","G","H","J","K","L","M","N","O","P","Q","R","S","T","W","X","Y","Z"}],2)
Next
EndFunction
==========
假設要轉化的漢字在A列,B1輸入公式=PY(A1)向下填充即可。