excel 15位身份证转18位

=IF(LEN(C4)=15,REPLACE(C4,7,0,"19")&INDEX({0;"X";9;8;7;6;5;4;3;2;1},MOD(SUMPRODUCT(MID(REPLACE(C4,7,0,"19"),ROW($1:$17),1)*{7;9;10;5;8;4;2;1;6;3;7;9;10;5;8;4;2}),11)),C4)