姓名字母缩写提取法.doc

姓名字母缩写提取法.doc姓名字母缩写提取法一、姓名字母提取方法:=LOOKUP(CODE(Al),45217+{0,36,544,1101,1609,1793,2080,2560,2902,3845,4107,4679,5154,5397,5405,5689,6170,6229,7001,7481,7763,8472,9264},{〃A〃,〃B〃,〃C〃,〃D〃,〃E〃,〃F〃,〃G〃,〃H〃,〃J〃,〃K〃,〃L〃,〃M〃,〃N:〃0〃,〃P〃,〃Q〃,〃R〃,〃S〃,〃T〃,〃W〃,〃X〃,〃Y〃,〃Z〃})&IF(LEN(A1)>1,LOOKUP(CODE(MID(A1,2,1)),45217+{-45185,0,36,544,1101,1609,1793,2080,2560,2902,3845,4107,4679,5154,5397,5405,5689,6170,6229,7001,7481,7763,8472,9264},{〃〃,〃A〃,〃B〃,〃C〃,〃D〃,〃E〃 〃「〃 〃八〃 〃门〃 〃丁〃〃“〃 〃丫〃 〃“〃 〃站〃 〃C〃 〃“〃 〃C〃 〃D〃 〃(?〃 〃t〃,F,G,H,J,K,L,M,N,O,P,Q,R,S,T,W〃,〃X〃,〃Y〃,〃Z〃}),〃〃)&IF(LEN(Al)〉2,LOOKUP(CODE(MID(Al,3,1)),45217+{-45185,0,36,544,1101,1609,1793,2080,2560,2902,3845,4107,4679,5154,5397,5405,5689,6170,6229,7001,7481,7763,8472,9264},{〃〃,〃A〃,〃B〃,〃C〃,〃D〃,〃E〃,牛〃,〃G〃,〃H〃,〃J〃,〃K〃,〃L〃,〃M:〃N〃,〃0〃,〃P〃,〃Q〃,〃皆,〃S〃,〃T〃,〃W〃,〃X〃,〃Y〃,〃Z〃}),〃〃)&IF(LEN(A1)>3,LOOKUP(CODE(MID(Al,4,1)),45217+{-45185,0,36,544,1101,1609,1793,2080,2560,2902,3845,4107,4679,5154,5397,5405,5689,6170,6229,7001,7481,7763,8472,9264},{〃〃,〃A〃,〃B〃,〃C〃,〃D〃,〃E〃,〃F〃,〃G〃,〃H〃,〃J〃,〃K〃,〃L〃,〃M〃,〃N〃,〃0〃,〃P〃,〃Q〃,〃R〃,〃S〃,〃T〃,〃W〃,〃X〃,〃Y〃,〃Z〃}),〃〃)二、语句字母提取方法:(自定义函数:工具-宏-VB编辑器-插入模块)Functionhztopy(hzpyAsString)AsStringDimhzstringAsString,pystringAsStringDimhzpysumAsInteger,hziAsInteger,hzpyhexAsIntegerhzstring=Trim(hzpy)hzpysum=Len(Trim(hzstring))pystring二Forhzi=1Tohzpysumhzpyhex= +Ilex(Asc(Mid(hzstring,hzi,1)))SelectCaseCasehzpyhex&HB0A1To&HB0C4Case&IIB0C5To&IIB2C0Case&HB2C1To&HB4EDCase&HB4EETo&HB6E9Case&IIB6EATo&IIB7A1Case&HB7A2To&HB8C0Case&HB8C1To&11B9FDCase&HB9FETo&HBBF6Case&HBBF7To&HBFA5Case&HBFA6To&IIC0ABCase&IIC0ACTo&IIC2E7Case&IIC2E8To&IIC4C2Case&HC4C3To&HC5B5Case&IIC5B6To&IIC5BDCase&HC5BETo&HC6D9Case&HC6DATo&HC8BACase&IIC8BBTo&IIC8F5Case&HC8F6To&HCBF9CaseTo&HCDD9pystringpystringpystringpystringpystringpystringpystringpystringpystringpystringpystringpystringpystringpystringpystringpystringpystringpystringpystringCaseCase&HCBFA&IIEDC5:pystring二pystring+〃T&HCDDApystringpystringpystringpystringpystringpystringpystringpystringpystringpystringpystringpystringpystrin