Excel中将15位身份证号转换为18位

假设A列自A2起是身份证号（15位或18位）。 1、身份证号全部改为18位，输入数组公式：

=IF(LEN(A2)=15,REPLACE(A2,7,,19)&MID(\"10X98765432\W(INDIRECT(\"1:17\")),1)*2^(18-ROW(INDIRECT(\"1:17\")))),11)+1,1),A2)

注意：数组公式输入方法：输入公式后不要按回车，而是按Ctrl+Shift+Enter。

2、身份证号全部改为15位，输入公式：=IF(LEN(A2)=15,A2,LEFT(REPLACE(A2,7,2,),15)) 3、计算出生日期：

=IF(A2\"\ 4、判断性别：=IF(A2\"\男\女\"),) 最终结果如图：

假设原身份证在A列 B1输入

=IF(LEN(A1)=15,REPLACE(A1,7,,19)&MID(\"10X98765432\W(INDIRECT(\"1:17\")),1)*2^(18-ROW(INDIRECT(\"1:17\")))),11)+1,1),A1)

下拉公式

这个是数组公式，不要按回车，按ctrl+shift+回车结束公式输入 如果觉得不喜欢数组，下面是非数组的。正常回车即可

=IF(LEN(A1)=15,CONCATENATE(MID(A1,1,6),\"19\,1,1)*7+MID(A1,2,1)*9+MID(A1,3,1)*10+MID(A1,4,1)*5+MID(A1,5,1)*8+MID(A1,6,1)*4+1*2+9*1+MID(A1,7,1)*6+MID(A1,8,1)*3+MID(A1,9,1)*7+MID(A1,10,1)*9+MID(A1,11,1)*10+MID(A1,12,1)*5+MID(A1,13,1)*8+MID(A1,14,1)*4+MID(A1,15,1)*2,11)+1,1)),A1)