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

最佳经验

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

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

工具与材料

excel

步骤与方法

1/6
在电脑中打开要编辑的excel文档
2/6
按下Alt+F11键，打开VBE界面，如下面的图一样。在VBE界面中，单击图片中所示的左上角空白处，单击“插入“，”模块“
3/6
此时，就插入了一个模块，后面的代码就要放到这个模块中，保证右侧空白区域是模块代码的编辑区（最保险的做法是双击模块），然后执行下一步操作。
4/6
将下边的代码全部复制粘贴到空白区域。
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/6
随后关闭这个新界面，返回Excel，即可像Excel自带的函数一样使用这个自定义的Getpy函数了，它只有一个参数，参数可以直接指定单元格，也可以直接输入字符。
6/6
需要注意的是，Getpy函数，只返回汉字拼音的首字母，假如是其他的字母或者数据等非汉字文本，会返回原来的值，如图所示