excel vba在身份证中怎么提取数字来判别男女

Question

如题所述

Answer 1

身份证号码中的倒数第2位也就是第17位是用来表示人员性别的数字，奇数为男性，偶数为女性。可以使用MID函数来提取该位置数字来实现。

在中转的单元格中填入函数公式=MID(身份证号单元格,17,1).

在目的单元格中使用=IF(MOD(中转单元格,2),"男","女")，来显示男性或女性

当然上述两个公式可以组合使用=IF(MOD(MID(身份证号单元格,17,1)，2),"男","女")

如果你有其他的需要而不是要显示男或者女，可以直接对数字进行判定即可。

Answer 2

主要代码：
if mid(身份证号,17,1) mod 2 then
性别="男"
else
性别="女"
end if