Excel取出文字首字母Excel文字首字母
方法/步骤
1、打开excel点工具---点宏-----点VisualBasic编辑器
2、插入模块,点插入----点模块
3、将如下代码复制到刚才插入的模块中PublicFunctionPY(TTA衡痕贤伎sString)AsVariantDimi%,t髫潋啜缅emp$PY=""Fori=1ToLen(TT)temp=Asc(Mid$(TT,i,1))Iftemp>255Ortemp<0ThenPY=PY&pinyin(Mid$(TT,i,1))ElsePY=PY&LCase(Mid$(TT,i,1))EndIfNextiEndFunctionFunctionpinyin(mystrAsString)AsVariantOnErrorResumeNextmystr=StrConv(mystr,vbNarrow)IfAsc(mystr)>0OrErr.Number=1004Thenpinyin1=""pinyin=Application.WorksheetFunction.VLookup(mystr,[{"啊","A";"八","B";"嚓","C";"搭","D";"蛾","E";"发","F";"噶","G";"铪","H";"击","J";"咔","K";"垃","L";"妈","M";"拿","N";"噢","O";"啪","P";"七","Q";"然","R";"仨","S";"他","T";"挖","W";"夕","X";"压","Y";"匝","Z"}],2)EndFunction
4、在excel单元格中输入函数=PY(C2)然后回车,就把C2中的文字首拼音显示出来了