excel表格汉字转拼音首字母的方法VIP专享

问题，将 excel 表格中，以下关键词转换为拼音首字母很多朋友都会熟悉使用 excel，有时候为了方便，需要把 excel 转换为拼音或者拼音首字母,接下来我就介绍一下怎么把单元格里的关键词变为首字母示例：杭州优视唯康近视眼矫正杭州优视唯康近视眼怎么办杭州优视唯康近视眼怎么恢复杭州优视唯康近视眼怎么治杭州优视唯康近视眼治疗杭州优视唯康近视怎么办方法如下：1。启动 excel，按下 ATl+F11，进入编辑选择插入→模块，弹出如下窗口复制以下代码到模块中代码：Function hztopy(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 ＆HB0C5 To ＆HB2C0: pystring = pystring + ”B” Case &HB2C1 To ＆HB4ED: pystring = pystring + "C" Case ＆HB4EE To ＆HB6E9: pystring = pystring + ”D” Case &HB6EA To &HB7A1： pystring = pystring + ”E” Case ＆HB7A2 To &HB8C0： pystring = pystring + "F" Case &HB8C1 To ＆HB9FD： pystring = pystring + "G" Case &HB9FE To &HBBF6： pystring = pystring + ”H” Case &HBBF7 To ＆HBFA5: pystring = pystring + ”J” Case &HBFA6 To ＆HC0AB： pystring = pystring + ”K" Case &HC0AC To &HC2E7: pystring = pystring + ”L” Case ＆HC2E8 To ＆HC4C2: pystring = pystring + ”M” Case &HC4C3 To &HC5B5: pystring = pystring + "N” Case ＆HC5B6 To ＆HC5BD： pystring = pystring + ”O" Case ＆HC5BE To ＆HC6D9： pystring = pystring + "P" Case &HC6DA To ＆HC8BA: pystring = pystring + ”Q” Case ＆HC8BB To ＆HC8F5: pystring = pystring + "R" Case ＆HC8F6 To ＆HCBF9： pystring = pystring + "S” Case ＆HCBFA To ＆HCDD9： pystring = pystring + "T" Case ＆HEDC5: pystring = pystring + "T” Case &HCDDA To &HCEF3： pystring = pystring + ”W” Case &HCEF4 To &HD1B8： pystring = pystring + "X" Case ＆HD1B9 To ＆HD4D0： pystring = pystring + ”Y" Case &HD4D1 To ＆HD7F9: pystring = pystring + "Z" Case Else pystring = pystring + Mid(hzstring, hzi， 1) End Select Next hztopy = pystringEnd Function如图：点击右上角关闭按钮，关闭模块，返回到 excel 界面输入如下关键字：杭州优视唯康近视眼矫正杭州优视唯康近视眼怎么办杭州优视唯康近视眼怎么恢复杭州优视唯康近视眼怎么治杭州优视唯康近视眼治疗如图在 B2 中输入=hztopy(A2）回车下拉，关键词已被全部替换。如图好了已经针对 A 列中所有的单元格,在 B 列中顺利转换为首字母了谢谢合作，