excel提取汉字的拼音首字母集锦

PINYIN BJSXBZZTCDTWZXGMTDKFXM XBJYWCSDTDFKZLXM XBJYWCEDTDFKZLXM XBJYWCSDTDFKZLXM（Y）BJSTBZSTGCZSPXGMTDKFXM JSZXTCWDBJJHZSTDKKXM BJSSJZSJCDPSXGMTDKFXM BJSSLXZYLCSJPPXGMTDKFXM BJSDYZXFCDZBXGMTDKF NYXBJPZXXWCTDZLXM DFXGDXYXCBJLLZTDKFXM BJSDHXJGCGJYKDLBXGMTDKFXM ZCQBJZGXZCHCDKF BJSQXXSKCHCPXGMTDKFXM XBJYYZCTDFKXM（E）XBJYYZCTDFKXM（S）BJSXBZZTCSJBHXGMTDKFXM XXXGCZDSC，XHC，QJC，BJLC，HCD BJSHZJZXCCMZSXGMTDKFXM BJSDYZGFCQGPXGMTDKF BJSTBZXWCHNBYKXGMTDKFXM BJSSLXZYFCZJYDXGMTDKFXM BJSLSZLSPCMWTXGMTDKFXM BJSLSZLHCMYPXGMTDKFXM BJSDHXQGCMSKXGMTDKFXM BJSASXXKCHSPXGMTDKF BJSSLXZYLCGJPPXGMTDKFXM BJSSLXZYLCDJMTXGMTDKFXM BJSDYZHTCYPDSXGMTDKF BJSQXXXRCJDSXGMTDKFXM BJSASXTZCZJPXGMTDKF BJSDYZHTCXSBXGMTDKF BJSQXXFLCHYSDXGMTDKFXM BJSSJZSJCSNDXGMTDKFXM BJSBZZZZCDSCXGMTDKFXM HYSBSXDZCBBJQTTDKFXM WNSLWQNSXNMCBJZTDKFXM BJSXBZHWCGJWXGMTDKFXM BJSXBZHWCHGGXGMTDKFXM BJSXBZSTCSJWXGMTDKFXM BJSXBZSTCBBSXGMTDKFXM BJSXBZSTCLJWXGMTDKFXM BJSXBZZTCMFXGMTDKFXM BJSQXXFLCFJDXGMTDKFXM BJSDYZHTCCDXGMTDKFBJSDYZYQCHLSXGMTDKF BJSCCBZHSCXDKXGMTDKFXM BJSCCBZZGCGJDDGMTDKFXM BJSTBZXWCPZSXGMTDKFXM BJSTBZSTGCZJDPZXGMTDKFXM XBJYWCLDTDFKZLXM（E）XBJYQCWDTDFKZLXM XBJYBCYDTDFKZLXM XBJYNKSTDFKZLXM XBJYBCYDTDFKZLXMY XBJYNKSTDFKZLXMY XBJYLCLDTDFKZLXM XBJYWCLDTDFKZLXM BJSHGTZDBCYZZXGMTDKFXM BJSHGTZDBCHLZXGMTDKFXM BJSHGTZXHCYJFXGMTDKFXM BJSHGTZXHCBFSXGMTDKFXM BJSXBZSTCXLSXGMTDKFXM BJSQXXFLCWJDPXGMTDKFXM BJSXBZSTCDMPXGMTDKFXM BJSSLXZSLCMGDLBXGMTDKFXM GDXXHZBJMCTDFK（Y）YJZZXDBXBJCTDKFXM BJSASXZZCJZZHJDWZXGMTDKF BJSSLXZYFCJJPZXGMTDKFXM XBJYQCSDTDFKZLXM BJSQXXXRCWLSXGMTDKFXM BJSDYZXFCWPFPZXGMTDKF BJSDYZXFCWJFPZXGMTDKF BJSQXXXRCWLSSXGMTDKFXM BJSDYZXFCSJFXGMTDKF BJSSLXZLFCDTLZXGMTDKFXM BJSDYZXFCCKTXGMTDKF BJSDYZXFCGJFXGMTDKF HYXBJZQGHPZDQTQFK BJSTBQZZXCGBXGMTDKFXM BJSDHXJGCDHSXGMTDKFXM BJSDHXLLCDDEXGMTDKFXM BJSLSZXZCYJPXGMTDKFXM BJSLSZXZCLJDDXGMTDKFXM BJSLSZXZCZZLXGMTDKFXM BJSLSZSNTCWJBHXGMTDKFXM BJSLSZLSPCMCBHXGMTDKFXM BJSLSZLHCSLPXGMTDKFXM BJSDHXQGCMBPXGMTDKFXM BJSCHZMLCLFYXGMTDKFXM BJSGLZGLCDPPXGMTDKFXMBJSCHZMLCSYZYSBXGMTDKFXM BJSCHZSHCSZCSXGMTDKFXM BJSCHZTFCBZJTBBXGMTDKFXM BJSHZJZPJZCSCYKXGMTDKFXM BJSHZJZXCCGJLXGMTDKFXM BJSHZJZXCCLTWXGMTDKFXM BJSHZJZHYCYJWXGMTDKFXM BJSBZZYKCBRCXGMTDKFXM BJSBZZZCCHJFXGMTDKFXM BJSBZZZCCYJXGMTDKFXM BJSBZZDXCMZSXGMTDKFXM BJPZYQCTDZLXM BJSXBZHWCMBAXGMTDKFXM XBJYLCSDTDFKZLXM BJZWACJCZFKZLXM BJSQXXSKCXHPXGMTDKFXM BJSQXXSKCWPFXGMTDKFXM BJSQXXSKCZJFXGMTDKFXM BJSQXXSKCGDYKXGMTDKFXM BJSDPZSBCSBDLCXGMTDKFXM BJSDPZLHCDWZXGMTDKFXM BJSDPZGMCDPZXGMTDKFXM BJSDPZZXCDLCXGMTDKFXM BJSDPZSBCMCPXGMTDKFXM BJSHGTZDPZCDHZPDXGMTDKFXM BJSHGTZDPZCSPEDXGMTDKFXM BJSHGTZDBCZCBHXGMTDKFXM BJSHGTZANZCDMTXGMTDKFXM WAXBJZJXC、SKXMGCTDKFXM XBJYWCSDTDFKZLXM（E）XBJYWCSDTDFKZLXM（S）XBJYWCWDTDFKZLXM XBJYWCBDTDFKZLXM BJSTBQZDZSCSZYXGMTDKFXM BJSTBQZWYSCYBBXGMTDKFXM BJSTBQZWYSCDPLJDDXGMTDKFXM BJSTBQZWYSCDPMJDDXGMTDKFXM BJSQXXZTCMZGYXGMTDKFXM BJSQXXFLCTLSYKXGMTDKFXM BJSQXXFLCHSDXGMTDKFXM BJSSJZDZCNCXGMTDKFXM BJSDYZXFCLJWXGMTDKF BJSTBZXJCLJDTXGMTDKFXM XBJYYZCTDFKXM（Y）XBJYWCLDTDFKZLXM（Y）LNSDDSDGSBJZ、MJDZTDZLXM XBJYQCEDTDFKZLXMBJSASXYKTCZJBHXGMTDKF BJSDYZGFCMMSXGMTDKF BJSSJZSJCMJDXGMTDKFXM BJSDYZGFCXXSXGMTDKF BJSDYZGFCDJFXGMTDKF BJSDYZGFCZJFXGMTDKF BJSSLXZSLCMCBXGMTDKFXM BJSSLXZSLCAZYXGMTDKFXM BJSSJZSJCHBTXGMTDKFXM BJSDYZGFCDSXGMTDKF GDXXHZBJMCTDFK（E）BJXMGZTDZLXM CHXBJXXFCCTDFKZLXM BJSLSZSNTCLSSXGMTDKFXM BJSDHXGDHCSGJXGMTDKFXM XXXBLTZBJBCHCDKF2007.159 BJSDHXKLCLJDLBXGMTDKFXM BJSDHXLLCDLBXGMTDKFXM NBJJKFQBHZXBJIIQTDKFXM BJSQXXSKCSDWXGMTDKFXM BJSASXMLCLJDSXGMTDKF BJSDYZHTCHSWXGMTDKF BJSSLXZLFCYJFXGMTDKFXM BJSDYZHTCBJPZXGMTDKF BJSQXXQLGCDPZXGMTDKFXM BJSSLXZLFCSGZXGMTDKFXM BJSDYZHTCPZXGMTDKF BJSASXMWCXTLXGMTDKF BJSQXXQLGCSLPXGMTDKFXM BJSSLXZCYCSLXGMTDKFXM BJSQXXQLGCGDSXGMTDKFXM BJSDYZMWCMASXGMTDKF BJSLSZXZCDHPZXGMTDKFXM AHSLQXFXJXBJLCXYZTDFKXM YCSBJZHPCGYLBCGDXM（Y2010-1）BJSHGTZANZCSGXGMTDKFXM BJSHGTZDPZCWJWZXGMTDKFXM BJSXBZHWCMJXGMTDKFXM BJSXBZZTCMYSXGMTDKFXM BJSXBZHWCSZYKXGMTDKFXM BJSXBZHWCZJFXGMTDKFXM BJSXBZZTCDPXGMTDKFXM BJSXBZZTCWZTXGMTDKFXM LZXLJZ、BJXTDCBGDXM BJSDYZYQCSLPPXGMTDKF ZYSMLXSBJBNTZLXMYCZCJYCJBJBNTZLXM LCXHBZBJCTDFKXM BJXQSXMWCTDZLXMJBXX_XMMC毕节市小坝镇中屯村大塘湾子小规模土地开发项目襄北监狱五场三队土地复垦整理项目襄北监狱五场二队土地复垦整理项目襄北监狱五场四队土地复垦整理项目（一）毕节市田坝镇沙炭沟村钟山坡小规模土地开发项目界首镇兴田村委第八经济合作社土地开垦项目毕节市生机镇生机村大坡上小规模土地开发项目毕节市撒拉溪镇杨柳村孙家皮坡小规模土地开发项目毕节市大银镇新丰村打荞坝小规模土地开发宁远县柏家坪镇小新屋村土地整理项目大方县高店乡营兴村保鸡落梁子土地开发项目毕节市大河乡鸡姑村高家丫口大老包小规模土地开发项目周村区北郊镇固玄庄村荒草地开发毕节市千溪乡沙垮村花厂坪小规模土地开发项目襄北监狱养殖场土地复垦项目（二）襄北监狱养殖场土地复垦项目（三）毕节市小坝镇中屯村苏家背后小规模土地开发项目西乡县高川镇大树村，薛河村，前进村，八角楼村，荒草地开发2005.31毕节市海子街镇西冲村梅子山小规模土地开发项目毕节市大银镇高峰村青杠坪小规模土地开发毕节市田坝镇兴旺村黄纳坝丫口小规模土地开发项目毕节市撒拉溪镇永丰村朱家岩洞小规模土地开发项目毕节市梨树镇梨树坪村麻窝头小规模土地开发项目毕节市梨树镇联合村庙右坡小规模土地开发项目毕节市大河乡青杠村木梳块小规模土地开发项目毕节市阿市乡雄垮村火烧坡小规模土地开发毕节市撒拉溪镇杨柳村顾家皮坡小规模土地开发项目毕节市撒拉溪镇杨柳村邓家麻塘小规模土地开发项目毕节市大银镇黄塘村窑坪大山小规模土地开发毕节市千溪乡兴荣村叫点山小规模土地开发项目毕节市阿市乡头庄村曾家坡小规模土地开发毕节市大银镇黄塘村谢山包小规模土地开发毕节市千溪乡法朗村火焰山顶小规模土地开发项目毕节市生机镇生机村杀牛洞小规模土地开发项目毕节市八寨镇钟寨村大石场小规模土地开发项目华阴市北社乡东栅村坝北九区滩涂地开发项目渭南市临渭区南师乡南马村卞家组土地开发项目毕节市小坝镇河尾村郭家湾小规模土地开发项目毕节市小坝镇河尾村河拐拐小规模土地开发项目毕节市小坝镇水塘村沈家湾小规模土地开发项目毕节市小坝镇水塘村包包上小规模土地开发项目毕节市小坝镇水塘村刘家湾小规模土地开发项目毕节市小坝镇中屯村墓坟小规模土地开发项目毕节市千溪乡法朗村樊家地小规模土地开发项目毕节市大银镇黄塘村川洞小规模土地开发毕节市大银镇羊桥村猴老山小规模土地开发毕节市长春堡镇滑石村硝洞口小规模土地开发项目毕节市长春堡镇垭关村官家大地规模土地开发项目毕节市田坝镇兴旺村坪子上小规模土地开发项目毕节市田坝镇沙炭沟村朱家大坪子小规模土地开发项目襄北监狱五场六队土地复垦整理项目（二）襄北监狱七场五队土地复垦整理项目襄北监狱八场一队土地复垦整理项目襄北监狱农科所土地复垦整理项目襄北监狱八场一队土地复垦整理项目一襄北监狱农科所土地复垦整理项目一襄北监狱六场六队土地复垦整理项目襄北监狱五场六队土地复垦整理项目毕节市何官屯镇大坝村岩嘴嘴小规模土地开发项目毕节市何官屯镇大坝村横梁子小规模土地开发项目毕节市何官屯镇新华村余家坟小规模土地开发项目毕节市何官屯镇新华村宝峰寺小规模土地开发项目毕节市小坝镇水塘村小岭上小规模土地开发项目毕节市千溪乡法郎村王家大坡小规模土地开发项目毕节市小坝镇水塘村洞门坡小规模土地开发项目毕节市撒拉溪镇沙乐村毛狗洞老包小规模土地开发项目广德县新杭镇百家庙村土地复垦（一）印江自治县刀坝乡白金村土地开发项目毕节市阿市乡中寨村旧寨组何家洞湾子小规模土地开发毕节市撒拉溪镇永丰村金家坪子小规模土地开发项目襄北监狱七场三队土地复垦整理项目毕节市千溪乡兴荣村望朗石小规模土地开发项目毕节市大银镇新丰村王婆坟坪子小规模土地开发毕节市大银镇新丰村汪家坟坪子小规模土地开发毕节市千溪乡兴荣村望朗石山小规模土地开发项目毕节市大银镇新丰村申家坟小规模土地开发毕节市撒拉溪镇龙凤村大塘梁子小规模土地开发项目毕节市大银镇新丰村刺枯塘小规模土地开发毕节市大银镇新丰村关家坟小规模土地开发怀远县包集镇清沟河潘圩段弃土区复垦毕节市田坝桥镇螃蟹村沟边小规模土地开发项目毕节市大河乡鸡姑村大火山小规模土地开发项目毕节市大河乡拉罗村洞洞儿小规模土地开发项目毕节市梨树镇新寨村余家坡小规模土地开发项目毕节市梨树镇新寨村罗家大地小规模土地开发项目毕节市梨树镇新寨村桦槁林小规模土地开发项目毕节市梨树镇水牛屯村武家背后小规模土地开发项目毕节市梨树镇梨树坪村煤场背后小规模土地开发项目毕节市梨树镇联合村杉林坡小规模土地开发项目毕节市大河乡青杠村马豹坪小规模土地开发项目毕节市岔河镇木来村漏风丫小规模土地开发项目毕节市戈乐镇戈乐村大偏坡小规模土地开发项目毕节市岔河镇木来村十一组圆山包小规模土地开发项目毕节市岔河镇双华村三组茶山小规模土地开发项目毕节市岔河镇塘丰村八组积塘包包小规模土地开发项目毕节市海子街镇彭家寨村三叉丫口小规模土地开发项目毕节市海子街镇西冲村公鸡岭小规模土地开发项目毕节市海子街镇西冲村烂田湾小规模土地开发项目毕节市海子街镇红堰村扬家湾小规模土地开发项目毕节市八寨镇岩口村帮人场小规模土地开发项目毕节市八寨镇中厂村韩家坟小规模土地开发项目毕节市八寨镇中厂村营脚小规模土地开发项目毕节市八寨镇大兴村苗子山小规模土地开发项目北集坡镇阳泉村土地整理项目毕节市小坝镇河尾村毛稗凹小规模土地开发项目襄北监狱六场四队土地复垦整理项目北极镇旺安村旧村庄复垦整理项目毕节市千溪乡沙垮村小黄坡小规模土地开发项目毕节市千溪乡沙垮村王婆坟小规模土地开发项目毕节市千溪乡沙垮村张家坟小规模土地开发项目毕节市千溪乡沙垮村古洞丫口小规模土地开发项目毕节市对坡镇石板村石板大老厂小规模土地开发项目毕节市对坡镇乐海村大窝子小规模土地开发项目毕节市对坡镇嘎木村大坪子小规模土地开发项目毕节市对坡镇中心村大老厂小规模土地开发项目毕节市对坡镇石板村毛草坪小规模土地开发项目毕节市何官屯镇大坪子村大海子平地小规模土地开发项目毕节市何官屯镇大坪子村山瓢儿地小规模土地开发项目毕节市何官屯镇大坝村猪场背后小规模土地开发项目毕节市何官屯镇阿哪寨村大麻塘小规模土地开发项目万安县百加镇九贤村、韶口乡梅岗村土地开发项目襄北监狱五场四队土地复垦整理项目（二）襄北监狱五场四队土地复垦整理项目（三）襄北监狱五场五队土地复垦整理项目襄北监狱五场八队土地复垦整理项目毕节市田坝桥镇店子上村狮子岩小规模土地开发项目毕节市田坝桥镇弯腰树村圆包包小规模土地开发项目毕节市田坝桥镇弯腰树村大坡李家大地小规模土地开发项目毕节市田坝桥镇弯腰树村大坡糜家大地小规模土地开发项目毕节市千溪乡中屯村苗子滚岩小规模土地开发项目毕节市千溪乡法朗村糖梨树丫口小规模土地开发项目毕节市千溪乡法朗村黄沙地小规模土地开发项目毕节市生机镇大寨村牛场小规模土地开发项目毕节市大银镇新丰村罗家湾小规模土地开发毕节市田坝镇先进村罗家大塘小规模土地开发项目襄北监狱养殖场土地复垦项目（一）襄北监狱五场六队土地复垦整理项目（一）辽宁省丹东市东港市北井子、马家店镇土地整理项目襄北监狱七场二队土地复垦整理项目保靖县大妥乡甘溪村土地复垦项目毕节市阿市乡丫口田村郑家背后小规模土地开发毕节市大银镇高峰村冒冒山小规模土地开发毕节市生机镇生机村梅家地小规模土地开发项目毕节市大银镇高峰村星秀石小规模土地开发毕节市大银镇高峰村丁家坟小规模土地开发毕节市大银镇高峰村朱家坟小规模土地开发毕节市撒拉溪镇双龙村茅草坝小规模土地开发项目毕节市撒拉溪镇双龙村凹子岩小规模土地开发项目毕节市生机镇生机村河坝头小规模土地开发项目毕节市大银镇高峰村大山小规模土地开发广德县新杭镇百家庙村土地复垦（二）保靖县毛沟镇土地整理项目淳化县卜家乡西奉村村土地复垦整理项目毕节市梨树镇水牛屯村螺丝山小规模土地开发项目毕节市大河乡官代河村山根脚小规模土地开发项目西乡县白龙塘镇白家坝村荒草地开发2007.159毕节市大河乡柯罗村刘家大老包小规模土地开发项目毕节市大河乡拉罗村大老包小规模土地开发项目南堡经济开发区滨海镇西北街II区土地开发项目毕节市千溪乡沙垮村沙地弯小规模土地开发项目毕节市阿市乡木拉村刘家大山小规模土地开发毕节市大银镇黄塘村火石湾小规模土地开发毕节市撒拉溪镇龙凤村杨家坟小规模土地开发项目毕节市大银镇黄塘村百家坪子小规模土地开发毕节市千溪乡千朗沟村大坪子小规模土地开发项目毕节市撒拉溪镇龙凤村三锅庄小规模土地开发项目毕节市大银镇黄塘村坪子小规模土地开发毕节市阿市乡麻窝村谢土岭小规模土地开发毕节市千溪乡千朗沟村松林坡小规模土地开发项目毕节市撒拉溪镇朝营村松林小规模土地开发项目毕节市千溪乡千朗沟村鬼打山小规模土地开发项目毕节市大银镇木瓦村马鞍山小规模土地开发毕节市梨树镇新寨村大汗坪子小规模土地开发项目安徽省临泉县范兴集乡半截楼村小于庄土地复垦项目阳春市八甲镇黄坡村果园岭补充耕地项目（阳2010-1）毕节市何官屯镇阿哪寨村深沟小规模土地开发项目毕节市何官屯镇大坪子村文家湾子小规模土地开发项目毕节市小坝镇河尾村庙脚小规模土地开发项目毕节市小坝镇中屯村蚂蚁山小规模土地开发项目毕节市小坝镇河尾村狮子丫口小规模土地开发项目毕节市小坝镇河尾村赵家坟小规模土地开发项目毕节市小坝镇中屯村大坡小规模土地开发项目毕节市小坝镇中屯村湾子头小规模土地开发项目临猗县临晋镇、北景乡土地储备耕地项目毕节市大银镇羊桥村杉林皮坡小规模土地开发张掖市民乐县三堡基本农田整理项目东阳市江北街道原冰塘村造田造地项目禹村镇程家峪村基本基本农田整理项目洛川县槐柏镇贝郊村土地复垦项目保靖县清水乡马王村土地整理项目。

打开Excel->工具->宏->Viaual Basic编辑器在弹出来的窗口中对着VBAproject点右键->插入->模块下面会出现一个名为"模块1"，点击在右边的空白栏中粘贴以下内容：Function pinyin(p As String) As Stringi = Asc(p)Select Case iCase -20319 To -20284: pinyin = "A"Case -20283 To -19776: pinyin = "B"Case -19775 To -19219: pinyin = "C"Case -19218 To -18711: pinyin = "D"Case -18710 To -18527: pinyin = "E"Case -18526 To -18240: pinyin = "F"Case -18239 To -17923: pinyin = "G"Case -17922 To -17418: pinyin = "H"Case -17417 To -16475: pinyin = "J"Case -16474 To -16213: pinyin = "K"Case -16212 To -15641: pinyin = "L"Case -15640 To -15166: pinyin = "M"Case -15165 To -14923: pinyin = "N"Case -14922 To -14915: pinyin = "O"Case -14914 To -14631: pinyin = "P"Case -14630 To -14150: pinyin = "Q"Case -14149 To -14091: pinyin = "R"Case -14090 To -13319: pinyin = "S"Case -13318 To -12839: pinyin = "T"Case -12838 To -12557: pinyin = "W"Case -12556 To -11848: pinyin = "X"Case -11847 To -11056: pinyin = "Y"Case -11055 To -2050: pinyin = "Z"Case Else: pinyin = pEnd SelectEnd FunctionFunction getpy(str)For i = 1 To Len(str)getpy = getpy & pinyin(Mid(str, i, 1))Next iEnd Function********复制到此结束,本行不复制*******现在转换函数已编写完成!关掉此编缉的窗口。

方法一：VBA自定义函数"=hztopy（）"下面是一个VBA自定义函数，工具->宏->Visual Basic编辑器->，插入模块,在VBA编辑器里面->插入->模块->贴入下述代码，（按ALT＋F11，插入模块，在右面窗口中粘贴下面代码）那么，比如在A3中有"进退两难"，则在B3中输入"=hztopy（A3）"，则会得到"JTLN"。

不过此法有时候也会出错，比如"皓、鑫、婷、雯、奕"等，就无法提取汉字拼音首字母。

Function hztopy(hzpy As String) As StringDim hzstring As String, pystring As StringDim hzpysum As Integer, hzi As Integer, hzpyhex As Integerhzstring = Trim(hzpy)hzpysum = Len(Trim(hzstring))pystring = ""For hzi = 1 To hzpysumhzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1)))Select Case hzpyhexCase &HB0A1 To &HB0C4: pystring = pystring + "A"Case &HB0C5 To &HB2C0: pystring = pystring + "B"Case &HB2C1 To &HB4ED: pystring = pystring + "C"Case &HB4EE To &HB6E9: pystring = pystring + "D"Case &HB6EA To &HB7A1: pystring = pystring + "E"Case &HB7A2 To &HB8C0: pystring = pystring + "F"Case &HB8C1 To &HB9FD: pystring = pystring + "G"Case &HB9FE To &HBBF6: pystring = pystring + "H"Case &HBBF7 To &HBFA5: pystring = pystring + "J"Case &HBFA6 To &HC0AB: pystring = pystring + "K"Case &HC0AC To &HC2E7: pystring = pystring + "L"Case &HC2E8 To &HC4C2: pystring = pystring + "M"Case &HC4C3 To &HC5B5: pystring = pystring + "N"Case &HC5B6 To &HC5BD: pystring = pystring + "O"Case &HC5BE To &HC6D9: pystring = pystring + "P"Case &HC6DA To &HC8BA: pystring = pystring + "Q"Case &HC8BB To &HC8F5: pystring = pystring + "R"Case &HC8F6 To &HCBF9: pystring = pystring + "S"Case &HCBFA To &HCDD9: pystring = pystring + "T"Case &HEDC5: pystring = pystring + "T"Case &HCDDA To &HCEF3: pystring = pystring + "W"Case &HCEF4 To &HD1B8: pystring = pystring + "X"Case &HD1B9 To &HD4D0: pystring = pystring + "Y"Case &HD4D1 To &HD7F9: pystring = pystring + "Z"Case Elsepystring = pystring + Mid(hzstring, hzi, 1)End SelectNexthztopy = pystringEnd Function方法二：VBA自定义函数"=getpy()"下面是一个VBA自定义函数，工具->宏->Visual Basic编辑器->，插入模块,在VBA编辑器里面->插入->模块->贴入上述代码，那么。

使用E x c e l快速获取姓名拼音The final edition was revised on December 14th, 2020.使用Excel快速获取姓名拼音召开会议或进行系统成员管理时，可能会需要批量获取姓名的汉语拼音，使用以下方法可以一劳永逸：1、新建一电子表格文件，内含两张表，一张命名为“转译”，一张命名为“资料”。

2、将以下内容粘至资料表的A1单元格（将会布满资料表的A1:B23单元格。

如果不好用鼠标选择，可将鼠标点在第一汉字前，按住Shift+向下键直到选完，然后按Ctrl+C复制，粘贴时右击鼠标后选择弹出的粘贴菜单的右侧那个去掉格式的按钮粘贴）吖 A八 B擦 C耷 D婀 E发 F噶G哈H肌J喀K垃L妈M拿N啪P期Q然R撒S塌T挖W西X压Y匝Z3、将以下资料粘至资料表的D1单元格（将会布满资料表的D1:E400单元格）吖 a安an肮ang凹ao八ba掰bai班ban邦bang包bao杯bei奔ben伻beng边bian 标biao 瘪bie 邠bin 冰bing 拨bo钸bu擦ca偲cai 参can 仓cang 糙cao 册ce参cen 噌ceng 叉cha 拆chai 觇chan 伥chang 抄chao 车che 抻chen 柽cheng充chong 抽chou 出chu欻chua 揣chuai 川chuan 窗chuang 吹chui 春chun 逴chuo 刺ci匆cong 凑cou粗cu汆cuan 崔cui村cun搓cuo咑da呆dai丹dan当dang 刀dao扽den 灯deng 氐di 嗲dia 掂dian 刁diao 爹die 丁ding 丢diu 东dong 兜dou 阇du 端duan 堆dui 吨dun 多duo 屙 e欸ei 奀en 鞥eng 儿er 发fa 帆fan飞fei 分fen 丰feng 佛fo缶fou 夫fu旮ga该gai 干gan 冈gang 皋gao 戈ge给gei 根gen 更geng 工gong 勾gou 估gu瓜gua 乖guai 关guan 光guang 归gui郭guo 哈ha孩hai 顸han 夯hang 蒿hao 呵he黑hei 痕hen 亨heng 轰hong 齁hou 乎hu花hua 怀huai 欢huan 肓huang 灰hui 昏hun 豁huo 几ji加jia 戋jian交jiao 节jie 巾jin 茎jing 垧jiong 纠jiu 居ju捐juan 撅jue 军jun 咔ka开kai 刊kan 康kang 尻kao 坷ke肯ken 阬keng 空kong 抠kou 刳ku夸kua 蒯kuai匡kuang 亏kui 坤kun 扩kuo 垃la来lai 兰lan 啷lang 捞lao 乐le勒lei 棱leng 黎li边lian 良liang 撩liao 咧lie 拎lin 令ling 溜liu 龙long 搂lou 撸lu抡lun 罗luo 驴lv 掠lve 妈ma 埋mai 嫚man 牤mang 猫mao 么me 没mei 闷men 蒙meng 咪mi 眠mian 喵miao 民min 名ming 谬miu 摸mo 哞mou 毪mu 那na囡nan 囊nang 孬nao 哪ne哪nei 恁nen 能neng 妮ni拈nian 酿niang 鸟niao 捏nie 您nin 宁ning 妞niu 农nong 耨nou 奴nu暖nuan 挪nuo 女nv疟nve 区ou拍pai 潘pan 乓pang 抛pao 呸pei 喷pen 烹peng 丕pi片pian 票piao 氕pie 拚pin 乒ping 钋po剖pou 仆pu七qi掐qia 千qian 强qiang 悄qiao 切qie 钦qin銎qiong 丘qiu 区qu悛quan 炔que 囷qun 蚺ran 嚷rang 饶rao 若re人ren 扔reng 日ri戎rong 柔rou 如ru阮ruan 蕤rui 闰run 若ruo 撒sa腮sai 三san搔sao色se森sen僧seng 杀sha筛shai 山shan 伤shang 捎shao 奢she申shen 升sheng 尸shi收shou 书shu刷shua 衰shuai 闩shuan 双shuang 谁shui 吮shun 说shuo 司si叟sou 苏su 狻suan 尿sui 孙sun 莎suo 他ta 台tai 坍tan 汤tang 涛tao 忑te 疼teng 体ti 天tian 佻tiao 帖tie 厅ting 恫tong 偷tou 凸tu 湍tuan 忒tui托tuo 挖wa歪wai 弯wan 汪wang 危wei 温wen 翁weng 挝wo乌wu夕xi虾xia 仙xian 乡xiang 肖xiao 些xie 心xin 兴xing 凶xiong 休xiu 需xu轩xuan 削xue丫ya 咽yan 央yang 幺yao 耶ye 一yi 因yin 应ying 庸yong 优you 迂yu 鸢yuan 曰yue 晕yun 扎za 灾zai 簪zan 赃zang 遭zao 则ze 贼zei 怎zen 曾zeng沾zhan 张zhang 钊zhao 折zhe这zhei 贞zhen 争zheng 之zhi中zhong 州zhou 朱zhu抓zhua 拽zhuai 专zhuan 庄zhuang 隹zhui 屯zhun 拙zhuo 孖zi宗zong 邹zou苴zu尊zun作zuo4、在将以下内容分别粘进转译表的A1～C1单元格中：姓名（2～4汉字，无空格）简拼全拼5、将以下公式粘进转译表的B2单元格并回车，以获得得姓名的简拼，注意不要多复制：=IF(LEN(A2)=2,LOOKUP(LEFT(A2,1),资料!$A$1:$B$23)&LOOKUP(RIGHT(A2,1),资料!$A$1:$B$23),IF(LEN(A2)=3,LOOKUP(LEFT(A2,1),资料!$A$1:$B$23)&LOOKUP(MID(A2,2,1),资料!$A$1:$B$23)&LOOKUP(RIGHT(A2,1),资料!$A$1:$B$23),IF(LEN(A2)=4,LOOKUP(LEFT(A2,1),资料!$A$1:$B$23)&LOOKUP(MID(A2,2,1),资料!$A$1:$B$23)&LOOKUP(MID(A2,3,1),资料!$A$1:$B$23)&LOOKUP(RIGHT(A2,1),资料!$A$1:$B$23),"请查检查姓名")))6、将以下公式粘进转译表的C2单元格并回车，以获得姓名的全拼：=IF(LEN(A2)=2,PROPER(LOOKUP(LEFT(A2,1),资料!$D$1:$E$400))&PROPER(LOOKUP(RIGHT(A2,1),资料!$D$1:$E$400)),IF(LEN(A2)=3,PROPER(LOOKUP(LEFT(A2,1),资料!$D$1:$E$400))&PROPER(LOOKUP(MID(A2,2,1),资料!$D$1:$E$400)),IF(LEN(A2)=4,PROPER(LOOKUP(LEFT(A2,1),资料!$D$1:$E$400))&PROPER(LOOKUP(MID(A2,2,1),资料!$D$1:$E$400))&PROPER(LOOKUP(MID(A2,3,1),资料!$D$1:$E$400))&PROPER(LOOKUP(RIGHT(A2,1),资料!$D$1:$E$400)),"请查检查姓名")))7、现在可以在A2开始的A列中输入汉字姓名了，最后根据需要向下填充公式即可。

使用Excel快速获取拼音召开会议或进行系统成员管理时，可能会需要批量获取的汉语拼音，使用以下方法可以一劳永逸：1、新建一电子表格文件，内含两张表，一张命名为“转译”，一张命名为“资料”。

2、将以下内容粘至资料表的A1单元格〔将会布满资料表的A1:B23单元格。

如果不好用鼠标选择，可将鼠标点在第一汉字前，按住Shift+向下键直到选完，然后按Ctrl+C复制，粘贴时右击鼠标后选择弹出的粘贴菜单的右侧那个去掉格式的按钮粘贴〕吖 A八 B擦 C耷 D婀 E发 F噶G哈H肌J喀K垃L妈M哦O啪P期Q然R撒S塌T挖W西X压Y匝Z3、将以下资料粘至资料表的D1单元格〔将会布满资料表的D1:E400单元格〕吖 a安an肮ang凹ao八ba掰bai班ban邦bang包bao奔ben 伻beng 逼bi 边bian 标biao 瘪bie 邠bin 冰bing 拨bo 钸bu 擦ca 偲cai 参can 仓cang 糙cao 册ce 参cen 噌ceng 叉cha 拆chai 觇chan伥chang 抄chao 车che抻chen 柽cheng 吃chi充chong 抽chou 出chu欻chua 揣chuai 川chuan 窗chuang 吹chui 春chun 逴chuo 刺ci匆cong 凑cou粗cu汆cuan 崔cui村cun 搓cuo 咑da 呆dai 丹dan 当dang 刀dao 得de 扽den 灯deng 氐di 嗲dia 掂dian 刁diao 爹die 丁ding 丢diu 东dong 兜dou 阇du 端duan 堆dui吨dun 多duo 屙 e欸ei 奀en 鞥eng 儿er 发fa 帆fan 方fang 飞fei 分fen 丰feng 佛fo 缶fou 夫fu 旮ga 该gai 干gan 冈gang 皋gao 戈ge给gei 根gen 更geng 工gong 勾gou 估gu瓜gua 乖guai 关guan 光guang 归gui 衮gun 郭guo 哈ha孩hai 顸han 夯hang 蒿hao 呵he黑hei 痕hen 亨heng轰hong 齁hou 乎hu花hua 怀huai 欢huan 肓huang 灰hui 昏hun 豁huo 几ji加jia 戋jian 江jiang 交jiao 节jie 巾jin 茎jing 坰jiong 纠jiu 居ju捐juan撅jue 军jun 咔ka开kai 刊kan 康kang 尻kao 坷ke肯ken 阬keng 空kong 抠kou 刳ku夸kua 蒯kuai 宽kuan 匡kuang 亏kui 坤kun 扩kuo 垃la来lai兰lan 啷lang 捞lao 乐le勒lei 棱leng 黎li边lian 良liang 撩liao 咧lie 拎lin 令ling 溜liu 龙long 搂lou 撸lu峦luan 抡lun 罗luo 驴lv掠lve埋mai 嫚man 牤mang 猫mao 么me 没mei 闷men 蒙meng 咪mi 眠mian 喵miao 民min 名ming 谬miu 摸mo 哞mou 毪mu 那na 乃nai 囡nan 囊nang哪ne哪nei 恁nen 能neng 妮ni拈nian 酿niang 鸟niao 捏nie 您nin 宁ning 妞niu 农nong 耨nou 奴nu暖nuan 挪nuo 女nv疟nve 区ou叭pa拍pai 潘pan 乓pang 抛pao 呸pei 喷pen 烹peng 丕pi片pian 票piao 氕pie 拚pin 乒ping 钋po剖pou 仆pu七qi掐qia 千qian 强qiang 悄qiao 切qie钦qin 青qing 銎qiong 丘qiu 区qu悛quan 炔que 囷qun 蚺ran 嚷rang 饶rao 假设 re人ren 扔reng 日ri戎rong 柔rou 如ru阮ruan 蕤rui 闰run 假设 ruo撒sa腮sai 三san 丧sang 搔sao 色se森sen 僧seng 杀sha 筛shai 山shan 伤shang 捎shao 奢she 申shen 升sheng 尸shi 收shou 书shu 刷shua 衰shuai 闩shuan双shuang 谁shui 吮shun 说shuo 司si忪song 叟sou苏su狻suan 尿sui孙sun莎suo他ta台tai坍tan汤tang 涛tao忑te疼teng 体ti天tian 佻tiao帖tie 厅ting 恫tong 偷tou 凸tu湍tuan 忒tui 吞tun 托tuo 挖wa歪wai 弯wan 汪wang 危wei 温wen 翁weng 挝wo乌wu夕xi虾xia 仙xian 乡xiang肖xiao 些xie 心xin 兴xing 凶xiong 休xiu 需xu轩xuan 削xue 薰xun 丫ya咽yan 央yang 幺yao 耶ye一yi因yin 应ying 庸yong 优you 迂yu鸢yuan曰yue 晕yun 扎za灾zai 簪zan 赃zang 遭zao 则ze贼zei 怎zen 曾zeng 扎zha 侧zhai 沾zhan 张zhang 钊zhao 折zhe 这zhei 贞zhen 争zheng 之zhi 中zhong州zhou朱zhu抓zhua拽zhuai专zhuan庄zhuang隹zhui屯zhun拙zhuo孖zi宗zong邹zou苴zu钻zuan羧zui尊zun作zuo4、在将以下内容分别粘进转译表的A1～C1单元格中：〔2～4汉字，无空格〕简拼全拼5、将以下公式粘进转译表的B2单元格并回车，以获得得的简拼，注意不要多复制：=IF(LEN(A2)=2,LOOKUP(LEFT(A2,1),资料!$A$1:$B$23)&LOOKUP(RIGHT(A2,1),资料!$A$1:$B$23),IF(LEN(A2)=3,LOOKUP(LEFT(A2,1),资料!$A$1:$B$23)&LOOKUP(MID(A2,2,1),资料!$A$1:$B$23)&LOOKUP(RIGHT(A2,1),资料!$A$1:$B$23),IF(LEN(A2)=4,LOOKUP(LEFT(A2,1),资料!$A$1:$B$23)&LOOKUP(MID(A2,2,1),资料!$A$1:$B$23)&LOOKUP(MID(A2,3,1),资料!$A$1:$B$23)&LOOKUP(RIGHT(A2,1),资料!$A$1:$B$23),"请查检查")))6、将以下公式粘进转译表的C2单元格并回车，以获得的全拼：=IF(LEN(A2)=2,PROPER(LOOKUP(LEFT(A2,1),资料!$D$1:$E$400))&PROPER(LOOKUP(RIGHT(A2,1),资料!$D$1:$E$400)),IF(LEN(A2)=3,PROPER(LOOKUP(LEFT(A2,1),资料!$D$1:$E$400))&PROPER(LOOKUP(MID(A2,2,1),资料!$D$1:$E$400))&PROPER(LOOKUP(RIGHT(A2,1),资料!$D$1:$E$400)),IF(LEN(A2)=4,PROPER(LOOKUP(LEFT(A2,1),资料!$D$1:$E$400))&PROPER(LOOKUP(MID(A2,2,1),资料!$D$1:$E$400))&PROPER(LOOKUP(MID(A2,3,1),资料!$D$1:$E$400))&PROPER(LOOKUP(RIGHT(A2,1),资料!$D$1:$E$400)),"请查检查")))7、现在可以在A2开始的A列中输入汉字了，最后根据需要向下填充公式即可。

excel姓名首字母缩写
1、首先我们打开excel表，再将员工的姓名输入到表中。

2、再用鼠标选择所有需要提取字母的名字，通过Ctrl+C复制。

3、再打开word文档，将刚刚复制好的姓名，无格式粘贴到word中
4、姓名复制到word文档后，鼠标全选姓名，在顶部开始菜单中找到“拼音指南”并鼠标点击。

5、弹出“拼音指南”对话框后，我们可以看到预览中，在文字上方已经显示了拼音，再点击确定按钮，我们就可以看到word文档中的姓名上方已经添加了拼音了。

6、接下来，我们鼠标全选姓名，将添加好拼音的姓名复制回excel表中。

7、姓名复制到excel后，我们就要提取姓名中第一个汉字的首字母了，鼠标选中D3单元格，输入函数公式
=LEFT(PHONETIC(C3),1)，按Enter回车键，我们就把姓名中的第一个汉字首字母提取出来了。

8、然后鼠标选中D3单元格，将鼠标放至D3单元格下方，出现黑色十字架后，双击鼠标，就快速把其余姓名的第一个汉字的首字母提取出来了。

1. 在数据源的右边分别命名新的两列为“中文名”和“英文名”，然后将数据源复制到“中文名”这一列。

2. 为了确保英文名字可以连在一起，这里我们在有空格的英文名字中间添加一个“-”。

选择“中文名”下所有数据源，按Ctrl+F，点击“替换”，在“查找内容”输入空格，“替换为”输入“-”，点击“全部替换”。

3. 光标放在“中文名”和“英文名”的界线中间，然后将“中文名”的列宽缩小至第一个汉字的距离。

4. 在菜单栏的“开始”找到排序，选择“内容重排”，然后就会将中英文分开。

5. 将“中文名”的数据复制到“英文名”列下。

6. 选择“中文名”的数据源，在菜单栏的“数据”，点击“筛选”。

7. 点击数据源的筛选图标，找到“文本筛选”，选择“自定义筛选”。

8. 选择“小于或等于”，后面框内输入一个汉字“吖”，这样筛选的时候就会避免把中文字筛掉。

9. 选择所有的英文，然后按Delete键，这样就只留下了中文字。

点击筛选器图标，点击“从“中文名”清除筛选”。

10. 同理在“英文名”这一列，自定义筛选，选择“大于或等于”，同样输入之前的汉字“吖”，这样就会把汉字显示出来。

同样，选择所有的中文字，按Delete键删除，然后点击筛选器图标，点击“从“英文名”清除筛选”。

11. 回到菜单栏“数据 > 筛选”，撤销一下。

在中文名这一列，选择所有数据源，回到菜单栏的“开始”，点击排序的图标，选择“内容重排”，这样会把所有的中文名字组合到一起。

12. 接下来我们要把空格去除，选择中文名的数据源，按住F5定位，选择定位条件“空值”，然后右击鼠标，选择“删除 > 下方单元格上移”。

同理在“英文名”列下按照同样的操作完成即可。

excel_汉字转换成拼音简拼(只取首字母)名称转换为首字母(VBA自定义函数)1，打开EXCEL2，按ALT+F11，单击插入-插入模块，在右窗口粘贴以下代码，直接关闭窗口3，输入公式=hztopy(A1)，填充所有单元格4，选择所有缩写，复制-粘贴特殊值(因为它是自定义函数，只有结果可以显示在当前文件中，而其他计算机显示错误是因为5.使用条件格式检索包含中文字符的单元格:首先单击一个单元格(设置为D5)。

条件格式-新格式规则-使用公式确定要格式化的单元格:在下面的对话框中输入公式= LEMB(D5)> LEN(D5)，自己设置格式，确认后退出，然后用单元格的格式刷所有单元格汉字外观的格式设置为6。

选择自定义排序-按“单元格颜色”排序-排序“无单元格颜色”和“底部”-确定7，手动将汉字改写成相应的字母8、检查复音字符注意:上述方法只能在当前文件夹中使用。

如何保存宏以便自定义函数可以在所有文件夹中使用？1.创建新的EXCEL2。

按ALT+F11，单击插入-插入模块，并在右侧窗口中粘贴以下代码。

直接关闭窗口3，另存为-其他格式-文件名更改为宏名，保存类型选择” EXCEL加载项(*，xlam)”，文件将自动保存在c: \ \用户\ \ 111 \ \ appdata \ \ road ing \ \ Microsoft \ \ addins文件夹中4.打开需要工作的EXL，然后单击开始-扩展选项-加载项-转到(G)...-选择上面保存的宏名-确定这样，在这台计算机的所有EXCEL中，可以直接使用自定义公式。

代码(只复制星号的内容)* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *函数Hz topy(hzpy As String)As String Dim hzstring As String，py String As StringDim hzpy sum As Integer，hzi As Integer，hzpyhex As Integer hzstring = Trim(hzpy)hzpy sum = Len(Trim(hzstring))py String = \For hzi = 1 To hzpy sumhzpyhex = \ Select Case hzpyhexCase & HB 案例&HB2C1至&HB4ED: pystring = pystring + \案例&HB4EE至&HB6E9: pystring = pystring + \案例&HB6EA至&HB7A1: pystring = pystring + \案例&HB7A2至&HB8C0: pystring = pystring + \案例&HB8C1至&HB9FD: pystring = pystring + \案例&HB9FE至&HBBF6: pystring = pystring + \案例&HBBF7至&HBFA5: pystring = pystring 案例&HC2E8至&HC4C2: pystring = pystring + \案例&HC4C3至&HC5B5: pystring = pystring + \案例&HC5B6至&HC5BD:pystring = pystring + \案例&HC5BE至&HC6D9: pystring = pystring + \案例&HC6DA至&HC8BA: pystring = pystring + \案例&HC8BB至&HC8F5: pystring = pystring + \案例&HC8F6至&HCBF9: pystring = pystringCase & HCDDA To & HCEF3:py string = py string+\ Case & HCEF4 To & HD1B 8:py string = py string+\ Case & HD1B 9 To & HD4D 0:py string = py string+\ Case & HD4D 1 To & HD7F 9:py string = py string+\ Case Elsepy string = py string+Mid(Hz string，hzi，1)结束选择下一个hztopy = pystring结束。

名字转换为‎首字母（VBA自定‎义函数）1、打开EXC‎E L2、按 ALT+F11 ，点击插入-插入模块，在右面窗口‎中粘贴下面‎代码，直接关闭窗‎口3、输入公式=hztop‎y(A1)，填充所有单‎元格4、选中所有缩‎写，复制-选择性粘贴‎-数值（因为是自定‎义函数，只有在当前‎文件中可以‎显示结果，其他电脑因‎没有公式而‎显示错误）5、使用条件格‎式，检索出含有‎汉字的单元‎格:先点中一个‎单元格（设为D5），条件格式-新建格式规‎则-使用公式确‎定要设置格‎式的单元格‎：在下面对话‎框中输入公‎式=LENB(D5)>LEN(D5)，自己设置格‎式，确定后退出‎，再把该单元‎格的格式用‎格式刷刷所‎有单元格。

有汉字的出‎现所设格式‎6、选择自定义‎排序-排序依据“单元格颜色‎”-次序“无单元格颜‎色”“在底端”-确定。

7、将汉字手动‎改写为相应‎的字母。

8、核对多音字‎。

注：以上方法只‎可以在当前‎文件夹使用‎，如何将宏保‎存，使自定义函‎数可以在所‎有文件夹中‎使用1、新建一个E‎X CEL2、按 ALT+F11 ，点击插入-插入模块，在右面窗口‎中粘贴下面‎代码，直接关闭窗‎口3、另存为-其他格式-文件名改为‎宏名称、保存类型选‎择“EXCEL‎加载宏（*,xlam）”,文件将自动‎保存在C:\Users‎\111\AppDa‎t a\Roami‎n g\Micro‎s oft\AddIn‎s文件夹。

4、打开需要工‎作的EXL‎E L，点击开始-EXCEL‎选项-加载项-转到（G）...-选中上面保‎存的宏名称‎-确定。

这样，在该电脑的‎所有EXC‎E L中，都可以直接‎使用自定义‎公式。

代码(只复制星号‎内的内容)******************************************************************************* Funct‎i on hztop‎y(hzpy As Strin‎g) As Strin‎gDim hzstr‎i ng As Strin‎g, pystr‎i ng As Strin‎gDim hzpys‎u m As Integ‎e r, hzi As Integ‎e r, hzpyh‎e x As Integ‎e rhzstr‎i ng = Trim(hzpy)hzpys‎u m = Len(Trim(hzstr‎i ng))pystr‎i ng = ""For hzi = 1 To hzpys‎u mhzpyh‎e x = "&H" + Hex(Asc(Mid(hzstr‎i ng, hzi, 1)))Selec‎t Case hzpyh‎e xCase &HB0A1‎To &HB0C4‎: pystr‎i ng = pystr‎i ng + "A"Case &HB0C5‎To &HB2C0‎: pystr‎i ng = pystr‎i ng + "B"Case &HB2C1‎To &HB4ED‎: pystr‎i ng = pystr‎i ng + "C"Case &HB4EE‎To &HB6E9‎: pystr‎i ng = pystr‎i ng + "D"Case &HB6EA‎To &HB7A1‎: pystr‎i ng = pystr‎i ng + "E"Case &HB7A2‎To &HB8C0‎: pystr‎i ng = pystr‎i ng + "F"Case &HB8C1‎To &HB9FD‎: pystr‎i ng = pystr‎i ng + "G"Case &HB9FE‎To &HBBF6‎: pystr‎i ng = pystr‎i ng + "H"Case &HBBF7‎To &HBFA5‎: pystr‎i ng = pystr‎i ng + "J"Case &HBFA6‎To &HC0AB‎: pystr‎i ng = pystr‎i ng + "K"Case &HC0AC‎To &HC2E7‎: pystr‎i ng = pystr‎i ng + "L"Case &HC2E8‎To &HC4C2‎: pystr‎i ng = pystr‎i ng + "M"Case &HC4C3‎To &HC5B5‎: pystr‎i ng = pystr‎i ng + "N"Case &HC5B6‎To &HC5BD‎: pystr‎i ng = pystr‎i ng + "O"Case &HC5BE‎To &HC6D9‎: pystr‎i ng = pystr‎i ng + "P"Case &HC6DA‎To &HC8BA‎: pystr‎i ng = pystr‎i ng + "Q"Case &HC8BB‎To &HC8F5‎: pystr‎i ng = pystr‎i ng + "R"Case &HC8F6‎To &HCBF9‎: pystr‎i ng = pystr‎i ng + "S"Case &HCBFA‎To &HCDD9‎: pystr‎i ng = pystr‎i ng + "T"Case &HEDC5‎: pystr‎i ng = pystr‎i ng + "T"Case &HCDDA‎To &HCEF3‎: pystr‎i ng = pystr‎i ng + "W"Case &HCEF4‎To &HD1B8‎: pystr‎i ng = pystr‎i ng + "X"Case &HD1B9‎To &HD4D0‎: pystr‎i ng = pystr‎i ng + "Y"Case &HD4D1‎To &HD7F9‎: pystr‎i ng = pystr‎i ng + "Z"Case Elsep ystr‎i ng = pystr‎i ng + Mid(hzstr‎i ng, hzi, 1)End Selec‎tNexthztop‎y = pystr‎i ngEnd Funct‎i on*******************************************************************************。

excel查找函数应用：如何提取姓名的拼音首字母编按：哈喽，大家好！如果此刻让你快速提取汉字拼音的首字母，你会怎么做呢？相信大多数小伙伴面对这个问题时，都会蒙圈，可能会想“这应该得用VBA解决吧，函数应该不行吧。

”其实呀，这个问题用大家都会的VLOOKUP函数就能搞定，赶紧来看看吧！例如A列是员工姓名，需要在B列填写对应的拼音首字母：如果遇上这种问题该怎么办？用户来说，难道真的只能一个一个手动输入吗？实际上使用一个大家都非常熟悉的VLOOKUP函数也是可以搞定这个问题的，不过公式嘛，就有点吓人，是这个样子的：看到这个公式是不是都蒙圈了。

可千万不要被这个表面上看起来很夸张的公式吓到，我们换一种写法，也许你就看明白了。

怎么样，这个公式是不是有点看明白了。

与第一个公式的区别就在于，后面这个公式是把VLOOKUP的第二参数放在单元格区域中了，公式的本质并没有什么区别。

因为名单中的姓名都不超过三个字，所以先用MID函数将每个字单独提取出来，使用VLOOKUP得到每个字的拼音首字母，再把三个VLOOKUP函数用&连接起来。

因此公式的核心其实是=VLOOKUP(MID(A2,1,1),$D$1:$E$24,2)。

对于VLOOKUP函数的用法，大家应该都比较熟悉了，格式是：VLOOKUP（查找值,查找区域,在第几列找,怎么找）。

在本例中，要重点说明的有下面几个要点：1.第一参数可以使用公式，本例中分别使用MID(A2,1,1)、MID(A2,2,1)和MID(A2,3,1)作为查找值；2.本例中的VLOOKUP函数只用了三个参数，同时省略了第三参数2后面的逗号，这种写法表示使用了VLOOKUP函数模糊匹配，与第四参数为1的功能相同；3.关于省略VLOOKUP函数最后一个参数的意义，一定要注意一点，省略参数而不省略逗号时，表示精确匹配，与第四参数为0的功能相同；4.有时候为了避免使用单元格区域作为查找区域，第二参数可以使用常量数组的方式，本例中开头的公式就是用到了常量数组。

方法一：VBA自定义函数"=hztopy（）"下面是一个VBA自定义函数，工具->宏->Visual Basic编辑器->，插入模块,在VBA编辑器里面->插入->模块->贴入下述代码，（按ALT＋F11，插入模块，在右面窗口中粘贴下面代码）那么，比如在A3中有"进退两难"，则在B3中输入"=hztopy（A3）"，则会得到"JTLN"。

不过此法有时候也会出错，比如"皓、鑫、婷、雯、奕"等，就无法提取汉字拼音首字母。

Function hztopy(hzpy As String) As StringDim hzstring As String, pystring As StringDim hzpysum As Integer, hzi As Integer, hzpyhex As Integerhzstring = Trim(hzpy)hzpysum = Len(Trim(hzstring))pystring = ""For hzi = 1 To hzpysumhzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1)))Select Case hzpyhexCase &HB0A1 To &HB0C4: pystring = pystring + "A"Case &HB0C5 To &HB2C0: pystring = pystring + "B"Case &HB2C1 To &HB4ED: pystring = pystring + "C"Case &HB4EE To &HB6E9: pystring = pystring + "D"Case &HB6EA To &HB7A1: pystring = pystring + "E"Case &HB7A2 To &HB8C0: pystring = pystring + "F"Case &HB8C1 To &HB9FD: pystring = pystring + "G"Case &HB9FE To &HBBF6: pystring = pystring + "H"Case &HBBF7 To &HBFA5: pystring = pystring + "J"Case &HBFA6 To &HC0AB: pystring = pystring + "K"Case &HC0AC To &HC2E7: pystring = pystring + "L"Case &HC2E8 To &HC4C2: pystring = pystring + "M"Case &HC4C3 To &HC5B5: pystring = pystring + "N"Case &HC5B6 To &HC5BD: pystring = pystring + "O"Case &HC5BE To &HC6D9: pystring = pystring + "P"Case &HC6DA To &HC8BA: pystring = pystring + "Q"Case &HC8BB To &HC8F5: pystring = pystring + "R"Case &HC8F6 To &HCBF9: pystring = pystring + "S"Case &HCBFA To &HCDD9: pystring = pystring + "T"Case &HEDC5: pystring = pystring + "T"Case &HCDDA To &HCEF3: pystring = pystring + "W"Case &HCEF4 To &HD1B8: pystring = pystring + "X"Case &HD1B9 To &HD4D0: pystring = pystring + "Y"Case &HD4D1 To &HD7F9: pystring = pystring + "Z"Case Elsepystring = pystring + Mid(hzstring, hzi, 1)End SelectNexthztopy = pystringEnd Function方法二：VBA自定义函数"=getpy()"下面是一个VBA自定义函数，工具->宏->Visual Basic编辑器->，插入模块,在VBA编辑器里面->插入->模块->贴入上述代码，那么。

打开Excel->工具->宏->Viaual Basic编辑器在弹出来的窗口中对着VBAproject点右键->插入->模块下面会出现一个名为"模块1"，点击在右边的空白栏中粘贴以下内容：Function pinyin(p As String) As Stringi = Asc(p)Select Case iCase -20319 To -20284: pinyin = "A"Case -20283 To -19776: pinyin = "B"Case -19775 To -19219: pinyin = "C"Case -19218 To -18711: pinyin = "D"Case -18710 To -18527: pinyin = "E"Case -18526 To -18240: pinyin = "F"Case -18239 To -17923: pinyin = "G"Case -17922 To -17418: pinyin = "H"Case -17417 To -16475: pinyin = "J"Case -16474 To -16213: pinyin = "K"Case -16212 To -15641: pinyin = "L"Case -15640 To -15166: pinyin = "M"Case -15165 To -14923: pinyin = "N"Case -14922 To -14915: pinyin = "O"Case -14914 To -14631: pinyin = "P"Case -14630 To -14150: pinyin = "Q"Case -14149 To -14091: pinyin = "R"Case -14090 To -13319: pinyin = "S"Case -13318 To -12839: pinyin = "T"Case -12838 To -12557: pinyin = "W"Case -12556 To -11848: pinyin = "X"Case -11847 To -11056: pinyin = "Y"Case -11055 To -2050: pinyin = "Z"Case Else: pinyin = pEnd SelectEnd FunctionFunction getpy(str)For i = 1 To Len(str)getpy = getpy & pinyin(Mid(str, i, 1))Next iEnd Function********复制到此结束,本行不复制*******现在转换函数已编写完成!关掉此编缉的窗口。

名字转换为首字母（VBA自定义函数）1、打开EXCEL2、按 ALT+F11 ，点击插入-插入模块，在右面窗口中粘贴下面代码，直接关闭窗口3、输入公式=hztopy(A1)，填充所有单元格4、选中所有缩写，复制-选择性粘贴-数值（因为是自定义函数，只有在当前文件中可以显示结果，其他电脑因没有公式而显示错误）5、使用条件格式，检索出含有汉字的单元格:先点中一个单元格（设为D5），条件格式-新建格式规则-使用公式确定要设置格式的单元格：在下面对话框中输入公式 =LENB(D5)>LEN(D5)，自己设置格式，确定后退出，再把该单元格的格式用格式刷刷所有单元格。

有汉字的出现所设格式6、选择自定义排序-排序依据“单元格颜色”-次序“无单元格颜色”“在底端”-确定。

7、将汉字手动改写为相应的字母。

8、核对多音字。

注：以上方法只可以在当前文件夹使用，如何将宏保存，使自定义函数可以在所有文件夹中使用1、新建一个EXCEL2、按 ALT+F11 ，点击插入-插入模块，在右面窗口中粘贴下面代码，直接关闭窗口3、另存为-其他格式-文件名改为宏名称、保存类型选择“EXCEL加载宏（*,xlam）”,文件将自动保存在C:\Users\111\AppData\Roaming\Microsoft\AddIns文件夹。

4、打开需要工作的EXLEL，点击开始-EXCEL选项-加载项-转到（G）...-选中上面保存的宏名称-确定。

这样，在该电脑的所有EXCEL中，都可以直接使用自定义公式。

代码(只复制星号内的内容)******************************************************************************* Function hztopy(hzpy As String) As StringDim hzstring As String, pystring As StringDim hzpysum As Integer, hzi As Integer, hzpyhex As Integerhzstring = Trim(hzpy)hzpysum = Len(Trim(hzstring))pystring = ""For hzi = 1 To hzpysumhzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1)))Select Case hzpyhexCase &HB0A1 To &HB0C4: pystring = pystring + "A"Case &HB0C5 To &HB2C0: pystring = pystring + "B"Case &HB2C1 To &HB4ED: pystring = pystring + "C"Case &HB4EE To &HB6E9: pystring = pystring + "D"Case &HB6EA To &HB7A1: pystring = pystring + "E"Case &HB7A2 To &HB8C0: pystring = pystring + "F"Case &HB8C1 To &HB9FD: pystring = pystring + "G"Case &HB9FE To &HBBF6: pystring = pystring + "H"Case &HBBF7 To &HBFA5: pystring = pystring + "J"Case &HBFA6 To &HC0AB: pystring = pystring + "K"Case &HC0AC To &HC2E7: pystring = pystring + "L"Case &HC2E8 To &HC4C2: pystring = pystring + "M"Case &HC4C3 To &HC5B5: pystring = pystring + "N"Case &HC5B6 To &HC5BD: pystring = pystring + "O"Case &HC5BE To &HC6D9: pystring = pystring + "P"Case &HC6DA To &HC8BA: pystring = pystring + "Q"Case &HC8BB To &HC8F5: pystring = pystring + "R"Case &HC8F6 To &HCBF9: pystring = pystring + "S"Case &HCBFA To &HCDD9: pystring = pystring + "T"Case &HEDC5: pystring = pystring + "T"Case &HCDDA To &HCEF3: pystring = pystring + "W"Case &HCEF4 To &HD1B8: pystring = pystring + "X"Case &HD1B9 To &HD4D0: pystring = pystring + "Y"Case &HD4D1 To &HD7F9: pystring = pystring + "Z"Case Elsepystring = pystring + Mid(hzstring, hzi, 1)End SelectNexthztopy = pystringEnd Function*******************************************************************************。

excel首字母提取Excel是一款功能强大的电子表格软件，广泛应用于数据处理、数据分析、图表制作等方面。

在Excel中，有时候需要对一些数据进行提取和处理，其中就包括首字母提取。

首字母提取指的是从一个单元格中提取该单元格文字内容的首字母，并将首字母输出到另一个单元格中。

这种方法在处理大量数据时，可以节省很多时间和精力。

下面详细介绍如何在Excel中实现首字母提取。

第一种方法：使用LEFT函数在Excel中，可以使用LEFT函数来实现对某个单元格内容的首字母提取。

LEFT函数的语法为：=LEFT（文本，[n]）其中“文本”是要提取首字母的单元格，而“[n]”是可选的参数，表示要提取的字符数。

如果不指定“[n]”，则默认为1，提取第一个字符（即首字母）。

=LEFT(A1)公式执行后，单元格B1将会显示单元格A1中文本的首字母。

如果你想要提取整个单元格A1中的前两个字符（即第一个字母和第二个字母），可以使用以下公式：=LEFT(A1,2)这样将会提取出单元格A1中的前两个字符，并输出到单元格B1中。

第二种方法：使用MID函数除了LEFT函数外，你还可以使用MID函数来实现首字母提取。

MID函数的语法为：=MID（文本，开始位置，[n]）其中“文本”是要提取首字母的单元格，而“开始位置”表示要提取的起始位置，通常为1，表示从第一个字符开始提取。

而“[n]”则表示要提取的字符数，也就是说，如果设置“[n]”为1，则只会提取一个字符（即首字母）。

=MID(A1,1,1)这样将会提取出单元格A1中的第一个字符，并输出到单元格B1中。

如果你想要提取单元格A1中的前两个字符（即第一个字母和第二个字母），可以使用以下公式：=MID(A1,1,2)这样将会提取出单元格A1中的前两个字符，并输出到单元格B1中。

第三种方法：使用IF函数除了LEFT函数和MID函数外，你还可以使用IF函数来实现首字母提取。

IF函数可以根据某个条件选择不同的输出结果。

excel提取汉字的拼音首字母集锦方法一：（最完美的方法）如果你A列的汉字都在4个字符之内，那就在B列输入此公式：=LOOKUP(MID(A1,1,1),{"","";"吖","A";"八","B";"嚓","C";"咑","D";"鵽","E";"发","F";"猤","G";"铪","H";"夻","J";"咔","K";"垃","L";"嘸","M";"旀","N";"噢","O";"妑","P";"七","Q";"囕","R";"仨","S";"他","T";"屲","W";"夕","X";"丫","Y";"帀","Z"})&LOOKUP(MID(A1,2,1),{"","";"吖","A";"八","B";"嚓","C";"咑","D";"鵽","E";"发","F";"猤","G";"铪","H";"夻","J";"咔","K";"垃","L";"嘸","M";"旀","N";"噢","O";"妑","P";"七","Q";"囕","R";"仨","S";"他","T";"屲","W";"夕","X";"丫","Y";"帀","Z"})&LOOKUP(MID(A1,3,1),{"","";"吖","A";"八","B";"嚓","C";"咑","D";"鵽","E";"发","F";"猤","G";"铪","H";"夻","J";"咔","K";"垃","L";"嘸","M";"旀","N";"噢","O";"妑","P";"七","Q";"囕","R";"仨","S";"他","T";"屲","W";"夕","X";"丫","Y";"帀","Z"})&LOOKUP(MID(A1,4,1),{"","";"吖","A";"八","B";"嚓","C";"咑","D";"鵽","E";"发","F";"猤","G";"铪","H";"夻","J";"咔","K";"垃","L";"嘸","M";"旀","N";"噢","O";"妑","P";"七","Q";"囕","R";"仨","S";"他","T";"屲","W";"夕","X";"丫","Y";"帀","Z"})公式是长了一点，如果把{}里的数据定义为名称，可以转换更多的首字母具体方法：复制{}里的数据，插入-名称(或者按CTRL+F3)，定义名称，如图，定义“拼音”为名称，下面的“引用位置”的“=”号后面粘贴刚才复制的{}里的数据确定。

Excel-VBA自定义函数取姓名的汉语拼音首字母应用场景用函数取汉语拼音的首字母知识要点1：Option Compare语句，设置缺省的字符比较方法，只能在模块级使用，语法Option Compare {Binary | Text | Database} Option Compare Binary ,按排序顺序进行字符串比较A<B<C<a<b<?等，Option Compare text 不区分大小写进行字符串比较A=a2：将所有拼音首字母相同的第一个汉字取出来组成一个字符串，例如拉、洛、梁等，拉=la最靠前，取拉3：将参数中的每个字符与参照字符串中每个比较，统计参照字符串中有多少字符小于参数中的字符，如果有10个，通过chr函数，转换成第9个英文字符J，非汉字保持不变Option Compare Text '比较方式为text'声明函数PY，有一个必选参数，为特引用的单元格或者字符串Function PY(Rng As Range)Application.Volatile '声明为易失性函数Dim i As Integer, k As Integer, Str As StringIf Len(Rng) = 0 Then PY = '': Exit Function '如果引用单元格空白，则返回空文本If Not IsNumeric(Rng) Then '如果不是数值Str = WorksheetFunction.Trim(Rng) '去除空格格后，赋予变量strFor i = 1 To Len(Str) '遍历所有字符If Mid(Str, i, 1) < '啊' Then '如果小于啊，表示不是汉字PY = PY & Mid(Str, i, 1) '保留原字符不变Elsek = 1'将字符串中每个字符与参数中的字符进行比较，统计字符串中大于参数中的字符的个数，得到变量 kDo Until Mid$('八嚓哒妸发旮铪讥讥咔垃妈拿哦妑七然仨他哇哇哇夕丫匝咗', k, 1) > Mid$(Str, i, 1)k = k 1LoopPY = PY & Chr(64 k) '根据K值得到大写的英文字母(chr(65)为第一个字母AEnd IfNextEnd IfEnd Function。