excel中提取中文拼音_网络_LZUGIS-CSDN博客.pdf
免费下载
excel中提取中文拼音_网络_LZUGIS-CSDN博客
概述：在工作时，有时候会用到汉语拼音，本文讲述如何在Excel中通过vba程序提取汉字的拼音。
1、alt+F11调出vba编写窗口
2、新建——模块
3、粘贴以下代码
1. Function PinYin2(Hz As String)
2. Dim PinMa As String
3. Dim MyPinMa As Variant
4. Dim Temp As Integer, i As Integer, j As Integer
5. PinMa = "a,20319,ai,20317,an,20304,ang,20295,ao,20292,"
6. PinMa = PinMa &
"ba,20283,bai,20265,ban,20257,bang,20242,bao,20230,bei,20051,ben,20036,beng,20032,bi,20026,b
ian,20002,biao,19990,bie,19986,bin,19982,bing,19976,bo,19805,bu,19784,"
7. PinMa = PinMa &
"ca,19775,cai,19774,can,19763,cang,19756,cao,19751,ce,19746,ceng,19741,cha,19739,chai,19728,
chan,19725,chang,19715,chao,19540,che,19531,chen,19525,cheng,19515,chi,19500,chong,19484,cho
u,19479,chu,19467,chuai,19289,chuan,19288,chuang,19281,chui,19275,chun,19270,chuo,19263,ci,1
9261,cong,19249,cou,19243,cu,19242,cuan,19238,cui,19235,cun,19227,cuo,19224,"
8. PinMa = PinMa &
"da,19218,dai,19212,dan,19038,dang,19023,dao,19018,de,19006,deng,19003,di,18996,dian,18977,d
iao,18961,die,18952,ding,18783,diu,18774,dong,18773,dou,18763,du,18756,duan,18741,dui,18735,
dun,18731,duo,18722,"
9. PinMa = PinMa & "e,18710,en,18697,er,18696,"
10. PinMa = PinMa &
"fa,18526,fan,18518,fang,18501,fei,18490,fen,18478,feng,18463,fo,18448,fou,18447,fu,18446,"
11. PinMa = PinMa &
"ga,18239,gai,18237,gan,18231,gang,18220,gao,18211,ge,18201,gei,18184,gen,18183,geng,18181,g
ong,18012,gou,17997,gu,17988,gua,17970,guai,17964,guan,17961,guang,17950,gui,17947,gun,17931
,guo,17928,"
12. PinMa = PinMa &
"ha,17922,hai,17759,han,17752,hang,17733,hao,17730,he,17721,hei,17703,hen,17701,heng,17697,h
ong,17692,hou,17683,hu,17676,hua,17496,huai,17487,huan,17482,huang,17468,hui,17454,hun,17433
,huo,17427,"
13. PinMa = PinMa &
"ji,17417,jia,17202,jian,17185,jiang,16983,jiao,16970,jie,16942,jin,16915,jing,16733,jiong,1
6708,jiu,16706,ju,16689,juan,16664,jue,16657,jun,16647,"
14. PinMa = PinMa &
"ka,16474,kai,16470,kan,16465,kang,16459,kao,16452,ke,16448,ken,16433,keng,16429,kong,16427,
kou,16423,ku,16419,kua,16412,kuai,16407,kuan,16403,kuang,16401,kui,16393,kun,16220,kuo,16216
,"
15. PinMa = PinMa &
"la,16212,lai,16205,lan,16202,lang,16187,lao,16180,le,16171,lei,16169,leng,16158,li,16155,li
a,15959,lian,15958,liang,15944,liao,15933,lie,15920,lin,15915,ling,15903,liu,15889,long,1587
8,lou,15707,lu,15701,lv,15681,luan,15667,lue,15661,lun,15659,luo,15652,"
16. PinMa = PinMa &
"ma,15640,mai,15631,man,15625,mang,15454,mao,15448,me,15436,mei,15435,men,15419,meng,15416,m
i,15408,mian,15394,miao,15385,mie,15377,min,15375,ming,15369,miu,15363,mo,15362,mou,15183,mu
,15180,"
17. PinMa = PinMa &
"na,15165,nai,15158,nan,15153,nang,15150,nao,15149,ne,15144,nei,15143,nen,15141,neng,15140,n
i,15139,nian,15128,niang,15121,niao,15119,nie,15117,nin,15110,ning,15109,niu,14941,nong,1493
7,nu,14933,nv,14930,nuan,14929,nue,14928,nuo,14926,"
18. PinMa = PinMa & "o,14922,ou,14921,"
of 5
免费下载
【版权声明】本文为墨天轮用户原创内容，转载时必须标注文档的来源（墨天轮），文档链接，文档作者等基本信息，否则作者和墨天轮有权追究责任。如果您发现墨天轮中有涉嫌抄袭或者侵权的内容，欢迎发送邮件至：contact@modb.pro进行举报，并提供相关证据，一经查实，墨天轮将立刻删除相关内容。
下载排行榜
评论