Excel中如何用函数实现提取汉字的首字母推荐

阅读：29次时间：2019-04-25 18:33:38来源：用户

最佳经验

由作者撰写原创经验并推荐置顶

有一些场合，要用到汉字的首字母缩写，而Excel中并没有这样一个函数，能够直接提取汉字的首字母，不过拓展性极强大的VBA给提供了无限的可能，今天就在这里介绍一下，如何用自定义函数，来实现提取汉字首字母的功能，以下内容是由微蓝经验网用户发布Excel中如何用函数实现提取汉字的首字母，希望对于用户有一定帮助，为朋友进行解决疑惑，如若想了解更多相关内容，可以向底部移动了解更多与本教程文章相关解决经验方法！

工具与材料

excel

步骤与方法

1
在电脑中打开要编辑的excel文档
技巧处理意思区别方法过程效果经验意义原理用途做法攻略常识使用用法详解注意事项步骤图解含义窍门妙招。
2
按下Alt+F11键，打开VBE界面，如下面的图一样。在VBE界面中，单击图片中所示的左上角空白处，单击“插入“，”模块“
3
此时，就插入了一个模块，后面的代码就要放到这个模块中，保证右侧空白区域是模块代码的编辑区（最保险的做法是双击模块），然后执行下一步操作。
4
将下边的代码全部复制粘贴到空白区域。
Functionpinyin(pAsString)AsString
i=Asc(p)
SelectCasei
Case-20319To-20284:pinyin="A"
Case-20283To-19776:pinyin="B"
Case-19775To-19219:pinyin="C"
Case-19218To-18711:pinyin="D"
Case-18710To-18527:pinyin="E"
Case-18526To-18240:pinyin="F"
Case-18239To-17923:pinyin="G"
Case-17922To-17418:pinyin="H"
Case-17417To-16475:pinyin="J"
Case-16474To-16213:pinyin="K"
Case-16212To-15641:pinyin="L"
Case-15640To-15166:pinyin="M"
Case-15165To-14923:pinyin="N"
Case-14922To-14915:pinyin="O"
Case-14914To-14631:pinyin="P"
Case-14630To-14150:pinyin="Q"
Case-14149To-14091:pinyin="R"
Case-14090To-13319:pinyin="S"
Case-13318To-12839:pinyin="T"
Case-12838To-12557:pinyin="W"
Case-12556To-11848:pinyin="X"
Case-11847To-11056:pinyin="Y"
Case-11055To-2050:pinyin="Z"
CaseElse:pinyin=p
EndSelect
EndFunction
Functiongetpy(str)
Fori=1ToLen(str)
getpy=getpy&pinyin(Mid(str,i,1))
Nexti
EndFunction
5
随后关闭这个新界面，返回Excel，即可像Excel自带的函数一样使用这个自定义的Getpy函数了，它只有一个参数，参数可以直接指定单元格，也可以直接输入字符。
6
需要注意的是，Getpy函数，只返回汉字拼音的首字母，假如是其他的字母或者数据等非汉字文本，会返回原来的值，如图所示