getpy函数用不了是因为Excel没有添加以下是Excel2016添加getpy函数的方法
工具/原料
RedmibookRedmibook14
Win1014393.223
方法/步骤
1、Excel开发工具处，打开VB界面（快捷键Alt+F11）
2、单击图片中所示的左上角空白处，选择【插入】—【模块】
3、输入以下代码Functionpinyin(pAsString)A衡痕贤伎sStringi=Asc(p)SelectCaseiC锾攒揉敫ase-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
4、输入getpy函数
5、验证成功
