EXCEL如何提取汉字首字母

方法/步骤1.首先，打开Excel，同时按下Alt+F11键，打开VBE界面，如下图所示。在VBE界面中，单击图片中所示的左上角空白处，选择“插入“，”模块“。2.此时，就插入了一个模块，后面的代码就要放到这个模块中，保证右侧空白区域是模块代码的编辑区（最保险的做法是双击模块），然后执行下一步操作。3.将下面的代码全部复制粘贴到空白区域。Functionpinyin(pAsString)AsStringi=Asc(p)SelectCaseiCase-20319To-20284:pinyin=ACase-20283To-19776:pinyin=BCase-19775To-19219:pinyin=CCase-19218To-18711:pinyin=DCase-18710To-18527:pinyin=ECase-18526To-18240:pinyin=FCase-18239To-17923:pinyin=GCase-17922To-17418:pinyin=HCase-17417To-16475:pinyin=JCase-16474To-16213:pinyin=KCase-16212To-15641:pinyin=LCase-15640To-15166:pinyin=MCase-15165To-14923:pinyin=NCase-14922To-14915:pinyin=OCase-14914To-14631:pinyin=PCase-14630To-14150:pinyin=QCase-14149To-14091:pinyin=RCase-14090To-13319:pinyin=SCase-13318To-12839:pinyin=TCase-12838To-12557:pinyin=WCase-12556To-11848:pinyin=XCase-11847To-11056:pinyin=YCase-11055To-2050:pinyin=ZCaseElse:pinyin=pEndSelectEndFunctionFunctiongetpy(str)Fori=1ToLen(str)getpy=getpy&pinyin(Mid(str,i,1))NextiEndFunction4.然后关闭这个新界面，返回Excel，就可以像Excel自带的函数一样使用这个自定义的Getpy函数了，它只有一个参数，参数可以直接指定单元格，也可以直接输入字符。5.5需要注意的是，Getpy函数，只返回汉字拼音的首字母，如果是其他的字母或者数据等非汉字文本，会返回原来的值，如下图所示：6.6好了，关于Excel中如何用函数实现提取汉字的首字母的经验就介绍到这里。如果有什么不明白的地方，可以联系作者。欢迎阅读作者的其他百度经验，提高Excel能力。END注意事项这个自定义函数的原理是什么呢？其实很简单，就是通过判断汉字的ASCII码，来转换为指定的字母，然后再利用一个简单的单个汉字的提取，来实现对一串汉字提取首字母的功能。上面的函数是提取首字母大写，明白了这个道理，就可以很轻松地改为首字母小写了。如果经常要用到这个函数，可以将模块导入为加载项，然后加在到Excel中，这样就几乎相当于Excel自带的函数，随时可以使用了。关于加载项的设置，可以看一下我的另外一篇经验。