姓名字母缩写提取法.docVIP

姓名字母缩写提取法 一、姓名字母提取方法： =LOOKUP(CODE(A1),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,O,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,F,G,H,J,K,L,M,N,O,P,Q,R,S,T,W,X,Y,Z}),)IF(LEN(A1)2,LOOKUP(CODE(MID(A1,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,F,G,H,J,K,L,M,N,O,P,Q,R,S,T,W,X,Y,Z}),)IF(LEN(A1)3,LOOKUP(CODE(MID(A1,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,O,P,Q,R,S,T,W,X,Y,Z}),) 二、语句字母提取方法：（自定义函数：工具-宏-VB编辑器-插入模块） Function hztopy(hzpy As String) As String Dim hzstring As String, pystring As String Dim hzpysum As Integer, hzi As Integer, hzpyhex As Integer hzstring = Trim(hzpy) hzpysum = Len(Trim(hzstring)) pystring = For hzi = 1 To hzpysum hzpyhex = H + Hex(Asc(Mid(hzstring, hzi, 1))) Select Case hzpyhex Case 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