怎样使用VBA根据身份证号返回性别？

时间：2026-04-29 01:14:36

1、首先在开发工具中打开VBA编辑器

怎样使用VBA根据身份证号返回性别？

2、在单元格区域当中输入一些内容作为例子

怎样使用VBA根据身份证号返回性别？

3、在VBA编辑器中插入模块

怎样使用VBA根据身份证号返回性别？

4、在模块当中输入如下代码，然后运行

Function sex(rng As Variant) '提取性别

sex=VBA.IIf((Mid(rng.Text, 15, 3) Mod 2), "男", "女")
End Function

怎样使用VBA根据身份证号返回性别？

5、在单元格A1和A2中分别输入15位和18位的身份证号，在B1中输入公式“=Sex(a1)”，然后下拉，公式返回同样结果，即表示本函数可适应15位和18位身份证，如图

怎样使用VBA根据身份证号返回性别？