在Excel中并没有自带这样的函数,可以实现提取汉字的首字母,需要我们进行编辑,下面我们介绍一下如何来实现这样的功能
工具/原料
电脑win7系统
Excel2007
方法/步骤
1、在Excel表格中有一句话“我是一只小小鸟”,下面我们将利用函数把每个字的首字母提取出来,
2、我们在键盘上敲击组合键【alt+f11】,在出现的界面里面,我们点击【插入】命令,在下拉菜单中点击【模块】命令,
3、然后在左侧的编辑栏里面,我们双击【模块】命令,右侧会出现编辑代码的窗口,
4、这是最重要的一步,我尺攵跋赈们需要输入的函数如下Functionpinyin(pAsString)AsStringi=Asc(p)SelectCaseiCase-20319皈其拄攥To-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=pEndSelectEndFunctionFunctiongetpy(str)Fori=1ToLen(str)getpy=getpy&pinyin(Mid(str,i,1))NextiEndFunction
5、关闭编辑函数界面,回到Excel表格编辑黢茕茚痔界面,我们直接在表格里面输入函数【=getpy(A1)】,A1是指文字的单元格位置
6、敲击回车我们可以看到出现了一串字母,他们分别是每个字拼音的首字母,