hbqjzx的专栏

Excel VBA编程，想实现自动分页功能。

有效性公式(适用于新输入身份证号):=AND(OR(LEN(A1)={15,18}),ISNUMBER(1*TEXT(MID(A1,7,LEN(A1)/2-1),"#-00-00")),1*TEXT(MID(A1,7,LEN(A1)/2-1),"#-00-00")>1828,1*TEXT(MID(A1,7,LEN(A1)/2-1),"#-00-00")性别:=IF(MOD(MID(A1,15,3)

  在excel中验证身份证=IF(RIGHT(A1)=MID("10X98765432",MOD(SUM(MID(A1,ROW($1:$17),1)*2^(18-ROW($1:$17))),11)+1,1),"真","假")数组公式 可以使用。 为了方便以后使用，将其做成了EXCEL文件，只需要复制A1，B1（姓名，身份证号），即可筛选出错误的身份证号码，