RevisedbyBLUEontheafternoonofDecember12,2020.在excel中把汉字转换成拼音只取首字母打开Excel->工具->宏->ViaualBasic编辑器在弹出来的窗口中对着VBAproject点右键->插入->模块下面会出现一个名为"模块1",点击在右边的空白栏中粘贴以下内容:Functionpinyin(pAsString)AsStringi=Asc(p)SelectCaseiCase-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=pEndSelectEndFunctionFunctiongetpy(str)Fori=1ToLen(str)getpy=getpy&pinyin(Mid(str,i,1))NextiEndFunction********复制到此结束,本行不复制*******现在转换MATCH_
word
word文档格式规范word作业纸小票打印word模板word简历模板免费word简历
_1714173877413_0已编写完成!关掉此编缉的窗口。要在Excel中使用,方法如下:A1A2中国=getpy(A1)