15位变18位:Excel中将15位身份证号转换为18位 办公软件 疯狂代码

来源:百度文库 编辑:神马文学网 时间:2024/04/27 00:10:15
15位变18位:Excel中将15位身份证号转换为18位
假设A列自A2起是身份证号(15位或18位)1、身份证号全部改为18位输入公式:=IF(LEN(A2)=15,REPLACE(A2,7,,19)&MID("10X98765432",MOD(SUM(MID(REPLACE(A2,7,,19),ROW(INDIRECT("1:17")),1)*2^(18-ROW(INDIRECT("1:17")))),11)+1,1),A2)
注意:公式输入思路方法:输入公式后不要按回车而是按Ctrl+Sht+Enter
2、身份证号全部改为15位输入公式:=IF(LEN(A2)=15,A2,LEFT(REPLACE(A2,7,2,),15))
3、计算出生日期:=IF(A2"",TEXT((LEN(A2)=15)*19&MID(A2,7,6+(LEN(A2)=18)*2),"#-00-00")+0,)
4、判断性别:=IF(A2"",IF(MOD(RIGHT(LEFT(A2,17)),2),"男","女"),)
最终结果如图: