- 1、本文档共4页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
excel汉字拼音首字母提取
方法一:VBA自定义函数=hztopy()
下面是一个VBA自定义函数,工具-宏-Visual Basic编辑器-,插入模块,在VBA编辑器里面-插入-模块-贴入下述代码,(按ALT+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
方法二:VBA自定义函数=getpy()
下面是一个VBA自定义函数,工具-宏-Visual Basic编辑器-,插入模块,在VBA编辑器里面-插入-模块-贴入上述代码,那么。
那么,比如在A2中有进退两难,则在B2中输入=getpy(A2),则会得到JTLN。
不过此法有时候也会出错,比如鑫、雯、奕等,就无法提取汉字拼音首字母,还有些字如皓、婷等被错提取为“Z”。
Function getpychar(char)
tmp = 65536 + Asc(
您可能关注的文档
- bfdydxk如何从面相看会疼爱女人的男人.doc
- BB一岁未满睡眠大有讲究.doc
- BF办有限责任公司收购业务指引(修订稿).doc
- BigData大数据重塑营销.doc
- Besidesexcept和apartfrom用法之异同.doc
- bird黑执事第二季“松下优也”片尾曲震撼罗马音标注片甲平假都有.doc
- BIOS紧急恢复盘无效后.docx
- BFS牛汇总算有个看多欧元的投行—澳大利亚联邦银行.doc
- Bjhfldn扩展语句考点知识清单.doc
- BA思想品德第三单元我们的朋友遍天下.doc
- 水利水电工程质量检测员继续教育系统基础考试试题及答案(各种收集).pdf
- 毕业论文设计模板.pdf
- 2025年云南省寻甸县第五中学高三下学期教学质量监测(一)数学试题试卷含解析.doc
- 2025年云南省玉溪市师院附中高三数学试题寒假周考试卷含解析.doc
- 2025年云南省玉溪市新平一中高三第一次教学质量监测(4月)数学试题含解析.doc
- 2025年云南省玉溪市新平一中高三下学期考前模拟考试数学试题含解析.doc
- 2025年云南省宣威市第四中学招生全国统一模拟考试数学试题含解析.doc
- 2025年云南省元江民中高三下学期二模(4月)数学试题含解析.doc
- 2025年云南省元江县民族中学高三质量检查数学试题含解析.doc
- 2025年云南省沾益县第四中学下学期期中考高三试卷数学试题含解析.doc
文档评论(0)