标签归档:excel

excel身份证15位转18的代码

没有宏,比较方便。

假设E1是身份证,

=IF(LEN(E1)=15,REPLACE(E1,7,,19)&MID(“10X98765432”,MOD(SUM(MID(REPLACE(E1,7,,19),ROW(INDIRECT(“1:17”)),1)*2^(18-ROW(INDIRECT(“1:17”)))),11)+1,1),UPPER(F2))

此函数可以15到18转换,并可以讲原来不规范的数据小写x,改成大写的。