从EXCEL表格中导出身份信息.docVIP

从EXCEL表格中导出身份信息 从身份证号码中导出年、月、日 1.导出“出生日期”到F2中，在F2中输入公式 =IF(LEN(E2)=18,MID(E2,7,4)-MID(E2,11,2)-MID(E2,13,2)) 2.导出“出生年”到G2中，在G2中输入公式 =MID(E2,7,4) 3.导出“出生月、日”到H2中，在H2中输入公式 =REPLACEB(TEXT(DATE(MID(E2,7,4),MID(E2,11,2),MID(E2,13,2)),YYYY-MM-DD),1,5,) 二、从“姓名”中分别导出姓、名及将“姓名”转换为拼音 （一）单姓 1.从“姓名”中导出“姓”到B2，在B2中输入公式， =MID(A2,1,1) 2.从“姓名”导出“名”到C2中，在C2中输入公式 =MID(A2,2,2) （二）复姓 1.从“姓名”中导出“姓”到B3，在B3中输入公式， =MID(A3,1,2) 2.从“姓名”导出“名”到C3中，在C3中输入公式 =MID(A3,3,2) （三）将姓名转化为小写拼音到D2中 打开excel--按alt+F11--插入--模块）将下列代码全部复制粘贴至模块中，点击“保存”。然后在Excel中就可以转换了。 Function PinYin(Hz As String) Dim PinMa As String Dim MyPinMa As Variant Dim Temp As Integer, i As Integer, j As Integer PinMa = a,20319,ai,20317,an,20304,ang,20295,ao,20292, PinMa = PinMa ba,20283,bai,20265,ban,20257,bang,20242,bao,20230,bei,20051,ben,20036,beng,20032,bi,20026,bian,20002,biao,19990,bie,19986,bin,19982,bing,19976,bo,19805,bu,19784, 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,chou,19479,chu,19467,chuai,19289,chuan,19288,chuang,19281,chui,19275,chun,19270,chuo,19263,ci,19261,cong,19249,cou,19243,cu,19242,cuan,19238,cui,19235,cun,19227,cuo,19224, PinMa = PinMa da,19218,dai,19212,dan,19038,dang,19023,dao,19018,de,19006,deng,19003,di,18996,dian,18977,diao,18961,die,18952,ding,18783,diu,18774,dong,18773,dou,18763,du,18756,duan,18741,dui,18735,dun,18731,duo,18722, PinMa = PinMa e,18710,en,18697,er,18696, PinMa = PinMa fa,18526,fan,18518,fang,18501,fei,18490,fen,18478,feng,18463,fo,18448,fou,18447,fu,18446, PinMa = PinMa ga,18239,gai,18237,gan,18231,gang,18220,gao,18211,ge,18201,gei,18184,gen,18183,geng,18181,gong,18012,gou,17997,gu,17988,gua,17970,guai,17964,guan,17961,guang,17950,gui,17947,gun,17931,guo,17928, PinMa = PinMa ha,17922,hai,17759,han,17752,hang,17733,hao,17730,he,17721,hei,17703,hen,17701,heng,17697,hong,17692,hou,17683,hu,17676,hua,17496,huai,17487,huan,17482,huang,1746