资源描述：
《日常办公Office相关函数应用》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、日常办公的EXCEL函数应用—、身份证号分男女(报邮政开户)：=IF(MOD(RIGHT(LEFT(D4,17)),2),"男〃，〃女〃)或=IF(M0D(MID(D4,IF(LEN(D4)=15,15,17),1),2),〃男〃，〃女〃)二、取姓名第一个字母(报邮政开户):打开Excel->工具・>宏・>VisualBasic编辑器在弹出來的窗口中对■着VBAproject点右键・>插入・>模块下面会出现-个名为”模块r,点击在右边的空白栏屮粘贴以下内容：Functiongetpychar(char)tmp=65536+Asc(char)If(tmp>=45217Andtmp<=45
2、252)Thengetpychar=nAHElself(tmp>=45253getpychar="B"Elself(tmp>=45761getpychar=HC,fElself(tmp>=46318getpychar=”D”Elself(tmp>=46826Andgetpychar=”E”Elself(tmp>=47010Andgetpychar=Elself(tmp>=47297Andgetpychar="G"Elself(tmp>=47614Andgetpychar=”H”Elself(tmp>=48119Andgetpychar=HJHElself(tmp>=49062Andge
3、tpychar=”K”Elself(tmp>=49324Andgetpychar=”L”Elself(tmp>=49896Andgetpychar=Elself(tmp>=50371Andgetpychar=”N”Andtmp<=45760)Andtmp<=46317)Andtmp<=46825)tmp<=47009)tmp<=47296)tmp<=tmp<=tmp<=ThenThenThenThenThen47613)48118)49061)tmp<=49323)tmp<=49895)tmp<=50370)tmp<=50613)ThenThenThenThenThenThenThen
4、tmpElself(tmp>=50614Andgetpychar="OHElself(tmp>=50622getpychar=”P”Elself(tmp>=50906getpychar="Q"Elself(tmp>=51387getpychar="RHElself(tmp>=51446Andtmpgetpychar="S"Elself(tmp>=52218Andgetpychar="T"Elself(tmp>=52698Andgetpychar=”W”Elself(tmp>=52980Andgetpychar="X"Elself(tmp>=53689Andgetpychar="Y1*E
5、lself(tmp>=54481Andgetpychar=”Z”Else'如果不是中文,则不处理getpychar=charEndIfEndFunctionAndAndAnd50621)Thentmptmptmptmptmptmp<=tmp<=tmp<=50905)51386)51445)52217)52697)52979)53640)54480)62289)ThenThenThenThenThenThenThenThenThenFunctiongetpy(str)Fori=1ToLen(str)getpy=getpy&getpychar(Mid(str,i,1))NextiEndFu
6、nction********复制到此结束，本行不复制*******现在转换函数已编写完成!关掉此编缉的窗口。要在Excel中使用,方法如下:H4=getpy(B4)三、两组数据合并（用于筛选赋帐户，或筛选已开户人员）=vlookup（A2,另一个表名称!$B$2:$C$5000,4,false）A2表示当前表格中要比对的单元格如:身份证号所在单元号）；B2表示另一个表要比对的单元格（数据跟前一个表一样）；4表示要从另一个表中自E2开始数的笫4栏（E栏），也就是需要从另一个返回到当前表格的数据;false是指精确比对；绝对引用。=trim(Al)五、检查数据是否重复（用于姓名等，用于身份
7、证不准）假设表1的名称是”表1”,名字数据在A2A00；表2的名称是”表2”,名字数据在A2-A200,在表1的B1输入:重名检查,B2输入：二C0UNTIF（表2!A$1:A$200,A2）然后往下复制或填充到B100-＞选中B列・＞工具栏。数据・＞筛选・＞自动筛选・＞自定义・＞选择”大于或等于・＞确定.这样筛选出来的数据是表1与表2小重复的.如果检査表1本身有无重复：二COUNTIF（C$2:C$8000,C3）然后往下复制或填充到B100
