EXCEL如何提取汉字首字母

《EXCEL如何提取汉字首字母》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、方法/步骤1.首先，打开Excel，同时按下Alt+F11键，打开VBE界面，如下图所示。在VBE界面中，单击图片中所示的左上角空白处，选择“插入“，”模块“。2.此时，就插入了一个模块，后面的代码就要放到这个模块中，保证右侧空白区域是模块代码的编辑区（最保险的做法是双击模块），然后执行下一步操作。1.将下面的代码全部复制粘贴到空白区域。Functionpinyin(pAsString)AsStringi=Asc(p)SelectCaseiCase-20319To-20284:pinyin="A"Case-20283To-19776:piny

2、in="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-15

3、640To-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:p

4、inyin="X"Case-11847To-11056:pinyin="Y"Case-11055To-2050:pinyin="Z"CaseElse:pinyin=pEndSelectEndFunctionFunctiongetpy(str)Fori=1ToLen(str)getpy=getpy&pinyin(Mid(str,i,1))NextiEndFunction1.然后关闭这个新界面，返回Excel，就可以像Excel自带的函数一样使用这个自定义的Getpy函数了，它只有一个参数，参数可以直接指定单元格，也可以直接输入字符。2.5需要注

5、意的是，Getpy函数，只返回汉字拼音的首字母，如果是其他的字母或者数据等非汉字文本，会返回原来的值，如下图所示：1.6好了，关于Excel中如何用函数实现提取汉字的首字母的经验就介绍到这里。如果有什么不明白的地方，可以联系作者。欢迎阅读作者的其他百度经验，提高Excel能力。END注意事项·这个自定义函数的原理是什么呢？其实很简单，就是通过判断汉字的ASCII码，来转换为指定的字母，然后再利用一个简单的单个汉字的提取，来实现对一串汉字提取首字母的功能。上面的函数是提取首字母大写，明白了这个道理，就可以很轻松地改为首字母小写了。·如果经常要用

6、到这个函数，可以将模块导入为加载项，然后加在到Excel中，这样就几乎相当于Excel自带的函数，随时可以使用了。关于加载项的设置，可以看一下我的另外一篇经验。