excel表格汉字转拼音首字母的方法.docx

《excel表格汉字转拼音首字母的方法.docx》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、问题，将excel表格中，以下关键词转换为拼音首字母很多朋友都会熟悉使用excel,有时候为了方便，需要把excel转换为拼音或者拼音首字母，接下来我就介绍一下怎么把单元格里的关键词变为首字母示例：杭州优视唯康近视眼矫正杭州优视唯康近视眼怎么办杭州优视唯康近视眼怎么恢复杭州优视唯康近视眼怎么治杭州优视唯康近视眼治疗杭州优视唯康近视怎么办方法如下：1.启动excel，按下ATl+F11,进入编辑选择插入→模块,弹出如下窗口复制以下代码到模块中代码：Functionhztopy(hzpyAsString)AsStringDimhzstringAsString,pystr

2、ingAsStringDimhzpysumAsInteger,hziAsInteger,hzpyhexAsIntegerhzstring=Trim(hzpy)hzpysum=Len(Trim(hzstring))pystring=""Forhzi=1Tohzpysumhzpyhex="&H"+Hex(Asc(Mid(hzstring,hzi,1)))SelectCasehzpyhexCase&HB0A1To&HB0C4:pystring=pystring+"A"Case&HB0C5To&HB2C0:pystring=pystring+"B"Case&HB2C1To&

3、HB4ED:pystring=pystring+"C"Case&HB4EETo&HB6E9:pystring=pystring+"D"Case&HB6EATo&HB7A1:pystring=pystring+"E"Case&HB7A2To&HB8C0:pystring=pystring+"F"Case&HB8C1To&HB9FD:pystring=pystring+"G"Case&HB9FETo&HBBF6:pystring=pystring+"H"Case&HBBF7To&HBFA5:pystring=pystring+"J"Case&HBFA6To&HC0AB:

4、pystring=pystring+"K"Case&HC0ACTo&HC2E7:pystring=pystring+"L"Case&HC2E8To&HC4C2:pystring=pystring+"M"Case&HC4C3To&HC5B5:pystring=pystring+"N"Case&HC5B6To&HC5BD:pystring=pystring+"O"Case&HC5BETo&HC6D9:pystring=pystring+"P"Case&HC6DATo&HC8BA:pystring=pystring+"Q"Case&HC8BBTo&HC8F5:pystri

5、ng=pystring+"R"Case&HC8F6To&HCBF9:pystring=pystring+"S"Case&HCBFATo&HCDD9:pystring=pystring+"T"Case&HEDC5:pystring=pystring+"T"Case&HCDDATo&HCEF3:pystring=pystring+"W"Case&HCEF4To&HD1B8:pystring=pystring+"X"Case&HD1B9To&HD4D0:pystring=pystring+"Y"Case&HD4D1To&HD7F9:pystring=pystring+"Z

6、"CaseElsepystring=pystring+Mid(hzstring,hzi,1)EndSelectNexthztopy=pystringEndFunction如图：点击右上角关闭按钮，关闭模块，返回到excel界面输入如下关键字：杭州优视唯康近视眼矫正杭州优视唯康近视眼怎么办杭州优视唯康近视眼怎么恢复杭州优视唯康近视眼怎么治杭州优视唯康近视眼治疗如图在B2中输入=hztopy(A2)回车下拉，关键词已被全部替换。如图好了已经针对A列中所有的单元格，在B列中顺利转换为首字母了谢谢合作，