中文转拼音首字母超级详细版

---------此txt文件是我在实际工作中进行大量的中文转拼音中不断完善的结果--------
----------------------希望对大家有所帮助-------------------

1.打开Excel->工具->宏->Viaual Basic编辑器
2.在弹出来的窗口中对着VBAproject点右键->插入->模块
3.下面会出现一个名为"模块1"，点击
4.在右边的空白栏中粘贴以下内容：
5.保存该模板，关闭并返回excle.

Function pyzm(hzpy As String) As String
Dim hzstring As String, pystring As String
Dim hzpysum As Integer, hzi As Integer, hzpyhex As Integer
hzstring = Trim(hzpy)
hzpysum = Len(Trim(hzstring))
pystring = ""
For hzi = 1 To hzpysum
hzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1)))
Select Case hzpyhex
Case &HB0A1 To &HB0C4: pystring = pystring + "A"
Case &HEFA7: pystring = pystring + "A"
Case &HF2FC: pystring = pystring + "A"
Case &HE8F1: pystring = pystring + "A"
Case &HB0C5 To &HB2C0: pystring = pystring + "B"
Case &HF0E5: pystring = pystring + "B"
Case &HEBF7: pystring = pystring + "B"
Case &HE6DF: pystring = pystring + "B"
Case &HF7C6: pystring = pystring + "B"
Case &HDCD0: pystring = pystring + "B"
Case &HDDC9: pystring = pystring + "B"
Case &HE9C4: pystring = pystring + "B"
Case &HDFC1: pystring = pystring + "B"
Case &HEEE9: pystring = pystring + "B"
Case &HDDF2: pystring = pystring + "B"
Case &HDCEA: pystring = pystring + "B"
Case &H9794: pystring = pystring + "B"
Case &HE9DE: pystring = pystring + "B"
Case &HB2C1 To &HB4ED: pystring = pystring + "C"
Case &H85BC: pystring = pystring + "C"
Case &HDDC5: pystring = pystring + "C"
Case &HDCCA: pystring = pystring + "C"
Case &HF4F9: pystring = pystring + "C"
Case &HDCFB: pystring = pystring + "C"
Case &HB4EE To &HB6E9: pystring = pystring + "D"
Case &HF7BE: pystring = pystring + "D"
Case &HF1BC: pystring = pystring + "D"
Case &HF1B2: pystring = pystring + "D"
Case &HDFE1: pystring = pystring + "D"
Case &HDFD5: pystring = pystring + "D"
Case &HE0A4: pystring = pystring + "D"
Case &HF4FA: pystring = pystring + "D"
Case &HF1B0: pystring = pystring + "D"
Case &HF7EC: pystring = pystring + "D"
Case &HECD1: pystring = pystring + "D"
Case &HDDD0: pystring = pystring + "D"
Case &HDFB0: pystring = pystring + "D"
Case &HE0A9: pystring = pystring + "D"
Case &HE7E9: pystring = pystring +

"D"
Case &HF1F4: pystring = pystring + "D"
Case &HB6EA To &HB7A1: pystring = pystring + "E"
Case &HEBF1: pystring = pystring + "E"
Case &HDDAD: pystring = pystring + "E"
Case &HB7A2 To &HB8C0: pystring = pystring + "F"
Case &HF7C5: pystring = pystring + "F"
Case &HECB3: pystring = pystring + "F"
Case &HEBE8: pystring = pystring + "F"

Case &HDDCA: pystring = pystring + "F"
Case &HDFBB: pystring = pystring + "F"
Case &HDCF2: pystring = pystring + "F"
Case &HF5FA: pystring = pystring + "F"
Case &HB8C1 To &HB9FD: pystring = pystring + "G"
Case &HF2A2: pystring = pystring + "G"
Case &HF4FB: pystring = pystring + "G"
Case &HD8BA: pystring = pystring + "G"
Case &HF4FB: pystring = pystring + "G"
Case &HEBF5: pystring = pystring + "G"
Case &HEBD7: pystring = pystring + "G"
Case &HEBC5: pystring = pystring + "G"
Case &HF7C0: pystring = pystring + "G"
Case &HDCD5: pystring = pystring + "G"
Case &HF0E1: pystring = pystring + "G"
Case &HF2BC: pystring = pystring + "G"
Case &HE8DB: pystring = pystring + "G"
Case &HDEBB: pystring = pystring + "G"
Case &HEBD2: pystring = pystring + "G"
Case &HEEDC: pystring = pystring + "G"
Case &HE9CF: pystring = pystring + "G"
Case &HF6D9: pystring = pystring + "G"
Case &HDFC9: pystring = pystring + "G"
Case &HEFD3: pystring = pystring + "G"
Case &HB9FE To &HBBF6: pystring = pystring + "H"
Case &HF5D7: pystring = pystring + "H"
Case &HF6D7: pystring = pystring + "H"
Case &HDEBD: pystring = pystring + "H"
Case &HDCEE: pystring = pystring + "H"
Case &HDDEF: pystring = pystring + "H"
Case &HE7FA: pystring = pystring + "H"
Case &HDAAD: pystring = pystring + "H"
Case &HDCF6: pystring = pystring + "H"
Case &HBBF7 To &HBFA5: pystring = pystring + "J"
Case &HEBD6: pystring = pystring + "J"
Case &HEBCE: pystring = pystring + "J"
Case &HEBEC: pystring = pystring + "J"
Case &HEAAA: pystring = pystring + "J"
Case &HDCB8: pystring = pystring + "J"
Case &HDDF0: pystring = pystring + "J"
Case &HEEC3: pystring = pystring + "J"
Case &HE9D9: pystring = pystring + "J"
Case &HF2BB: pystring = pystring + "J"
Case &HDCB4: pystring = pystring + "J"
Case &HF6C4: pystring = pystring + "J"

Case &HEBC2: pystring = pystring + "J"
Case &HBFA6 To &HC0AB: pystring = pystring + "K"
Case &HF7C5: pystring = pystring + "K"
Case &HF367: pystring = pystring + "K"
Case &HD8DC: pystring = pystring + "K"
Case &HF2A4: pystring = pystring + "K"
Case &HDEA2: pystring = pystring + "K"
Case &HF5AB: pystring = pystring + "K"
Case &HD8D1: pystring = pystring + "K"
Case &H8554: pystring = pystring + "K"
Case &HE0AD: pystring = pystring + "K"
Case &HC0AC To &HC2E7: pystring = pystring + "L"
Case &HF0FC: pystring = pystring + "L"
Case &HDEBC: pystring = pystring + "L"
Case &HE9AC: pystring = pystring + "L"
Case &HDFCA: pystring = pystring + "L"
Case &HDCDF: pystring = pystring + "L"
Case &HE9B5: pystring = pystring + "L"
Case &HDCC2: pystring = pystring + "L"
Case
&HF2C3: pystring = pystring + "L"
Case &HDBDE: pystring = pystring + "L"
Case &HDDB9: pystring = pystring + "L"
Case &HDFF8: pystring = pystring + "L"
Case &HE9AD: pystring = pystring + "L"
Case &HF1AA: pystring = pystring + "L"
Case &HEDD1: pystring = pystring + "L"
Case &HDDE4: pystring = pystring + "L"
Case &HE3B6: pystring = pystring + "L"
Case &HDDFC: pystring = pystring + "L"
Case &HE263: pystring = pystring + "L"
Case &HC2E8 To &HC4C2: pystring = pystring + "M"
Case &HEEE2: pystring = pystring + "M"
Case &HDFE4: pystring = pystring + "M"
Case &HE0D7: pystring = pystring + "M"
Case &HF2FA: pystring = pystring + "M"
Case &HEDE6: pystring = pystring + "M"
Case &HE8A3: pystring = pystring + "M"
Case &HC4C3 To &HC5B5: pystring = pystring + "N"
Case &HF2A8: pystring = pystring + "N"
Case &HDDC1: pystring = pystring + "N"
Case &HEBE5: pystring = pystring + "N"
Case &HD8A5: pystring = pystring + "N"
Case &HE0AB: pystring = pystring + "N"
Case &HF1F7: pystring = pystring + "N"
Case &HC5B6 To &HC5BD: pystring = pystring + "O"
Case &HC5BE To &HC6D9: pystring = pystring + "P"
Case &HDFDF: pystring = pystring + "P"
Case &HF3AA: pystring = pystring + "P"
Case &HE8C1: pystring = pystring + "P"
Case &HE8CB: pystring = pystring + "P"
Case &HE7EA: pystring = pystring + "P"
Case &HF1B1: pystring = pystring + "P"
Case &HE3FA: pystring = pystring + "P"

Case &HE0D1: pystring = pystring + "P"
Case &HDDE5: pystring = pystring + "P"
Case &HC6DA To &HC8BA: pystring = pystring + "Q"
Case &HF1B7: pystring = pystring + "Q"
Case &HF7C4: pystring = pystring + "Q"
Case &HF4C7: pystring = pystring + "Q"
Case &HEDAC: pystring = pystring + "Q"
Case &HDCCE: pystring = pystring + "Q"
Case &HE0BA: pystring = pystring + "Q"
Case &HE8BD: pystring = pystring + "Q"
Case &HDCCD: pystring = pystring + "Q"
Case &HDCCB: pystring = pystring + "Q"
Case &HDBCF: pystring = pystring + "Q"
Case &HD9BB: pystring = pystring + "Q"
Case &HE1AA: pystring = pystring + "Q"
Case &HECEE: pystring = pystring + "Q"
Case &HDEAD: pystring = pystring + "Q"
Case &HC8BB To &HC8F5: pystring = pystring + "R"
Case &HE8E3: pystring = pystring + "R"
Case &HE9C5: pystring = pystring + "R"
Case &HF7D7: pystring = pystring + "R"
Case &HDEB8: pystring = pystring + "R"
Case &HDEA8: pystring = pystring + "R"
Case &HF7B7: pystring = pystring + "R"
Case &HC8F6 To &HCBF9: pystring = pystring + "S"
Case &HF4C8: pystring = pystring + "S"
Case &HF0DE: pystring = pystring + "S"
Case &HE0E7: pystring = pystring + "S"
Case &HE9A9: pystring = pystring + "S"
Case &HF7EA: pystring = pystring + "
S"
Case &HF6E8: pystring = pystring + "S"
Case &HCBFA To &HCDD9: pystring = pystring + "T"
Case &HEDC5: pystring = pystring + "T"
Case &HEED1: pystring = pystring + "T"
Case &HEBC4: pystring = pystring + "T"
Case &HD9A2: pystring = pystring + "T"
Case &HDDCB: pystring = pystring + "T"
Case &HDDE3: pystring = pystring + "T"
Case &HCDDA To &HCEF3: pystring = pystring + "W"
Case &HDEB1: pystring = pystring + "W"
Case &HF2DA: pystring = pystring + "W"
Case &HEBBF: pystring = pystring + "W"
Case &HECD0: pystring = pystring + "W"
Case &HEBE4: pystring = pystring + "W"
Case &HCEF4 To &HD1B8: pystring = pystring + "X"
Case &HF5A3: pystring = pystring + "X"
Case &HE1E3: pystring = pystring + "X"
Case &HE4E5: pystring = pystring + "X"
Case &HDEBA: pystring = pystring + "X"
Case &HE7D3: pystring = pystring + "X"
Case &HE5D0: pystring = pystring + "X"
Case &HDEAF: pystring = pystring + "X"
Case &HD867: pystring = pystring + "X"

Case &HDDB2: pystring = pystring + "X"
Case &HF2D9: pystring = pystring + "X"
Case &HDCE7: pystring = pystring + "X"
Case &HDCC8: pystring = pystring + "X"
Case &HDCBA: pystring = pystring + "X"
Case &HF0EF: pystring = pystring + "X"
Case &HDDD9: pystring = pystring + "X"
Case &HD1B9 To &HD4D0: pystring = pystring + "Y"
Case &HF2CA: pystring = pystring + "Y"
Case &HF6B8: pystring = pystring + "Y"
Case &HDFC5: pystring = pystring + "Y"
Case &HDEB2: pystring = pystring + "Y"
Case &HDCBF: pystring = pystring + "Y"
Case &HF0F6: pystring = pystring + "Y"
Case &HDCD3: pystring = pystring + "Y"
Case &HE9DA: pystring = pystring + "Y"
Case &HDDC7: pystring = pystring + "Y"
Case &HF4FD: pystring = pystring + "Y"
Case &HE3D0: pystring = pystring + "Y"
Case &HD4D1 To &HD7F9: pystring = pystring + "Z"
Case &HF5A5: pystring = pystring + "Z"
Case &HDCC6: pystring = pystring + "Z"
Case &HE8D7: pystring = pystring + "Z"
Case &HDFF2: pystring = pystring + "Z"
Case &HF6A4: pystring = pystring + "Z"
Case &HE8D9: pystring = pystring + "Z"
Case &HE9AB: pystring = pystring + "Z"
Case &HF4F7: pystring = pystring + "Z"
Case &HDCEF: pystring = pystring + "Z"
Case &HF2CE: pystring = pystring + "Z"
Case &HF3C3: pystring = pystring + "Z"
Case &HEBEA: pystring = pystring + "Z"
Case Else
pystring = pystring + Mid(hzstring, hzi, 1)
End Select
Next
pyzm = pystring
End Function