本帖最后由 爱疯 于 2013-8-27 15:24 编辑
个人收藏的身份证升位15升18位函数公式,与大家分享!
[hide]
=IF(LEN(a1)=15,REPLACE(a1,7,,19)&MID("10X98765432",MOD(SUM(MID(REPLACE(a1,7,,19),ROW(INDIRECT("1:17")),1)*2^(18-ROW(INDIRECT("1:17")))),11)+1,1),a1)
注意是数组公式,ctrl+shift+enter三键结束。
[/hide
]
- =IF(LEN(A1)=15,REPLACE(A1,7,,19)&MID("10X98765432",MOD(SUM(MID(REPLACE(A1,7,,19),ROW(INDIRECT("1:17")),1)*2^(18-ROW(INDIRECT("1:17")))),11)+1,1),A1)
复制代码
|