Excel中怎么从身份证号中判断性别？

1、使用EXCEL2013来演示，打开有身份证号码的表格，如图A列是身份证号码，在B列根据身份证号码提取性别填写。

2、MID、MOD和IF函数组合法。在B2单元格输入函数：=IF(MOD(MID(A2,17,1),2)=1,"男","女")，MID从17位数开始提取一个数字，使用MOD判断奇偶。

3、也可以使用以下函数组合:=IF(A2="","",TEXT(MOD(MID(A2,15,3),2),"男;;女"))，输入后回车往下填充。

1、案例说明:演示EXCEL版本为Microsoft Office EXCEL2007,在sheet1工作表的A列是身份证号、B列是出生日期、C列是性别。要求输入身份证后，自动提取出生日期和性别。

2、编写代码：点击开发工具——Visual Basic——在VBA窗口点击插入——模块——在模块中输入如下代码:

Sub 提取年龄性别()

With Sheet1

arr = Range("a2", [a65536].End(3))

End With

For i = 1 To UBound(arr)

hm = arr(i, 1)

nl = Mid(hm, 17, 1)

Cells(i + 1, 2) = Mid(hm, 7, 4) & "-" & Mid(hm, 11, 2) & "-" & Mid(hm, 13, 2)

If nl Mod 2 = 0 Then

Cells(i + 1, 3) = "女"

Else

Cells(i + 1, 3) = "男"

End If

Next

End Sub

3、插入命令控件：点击开发工具——点击插入项的向下箭头——点击命令按钮控件，在EXCEL表格画一个框就插入了命令控件——右击控件——属性——修改Caption属性为：自动提取——设置Font字体

4、给控件指定宏:右击命令控件——查看代码——在代码中输入之前的代码名称:提取年龄性别——在身份证那里输入多行身份证号码——关闭设计模式——点击自动提取命令控件就会自动提取出生日期和性别了。

1、EXCEL身份证提取性别的方法：

（1）函数1：=IF(MOD(MID(A2,17,1),2)=1,"男","女");

（2）函数2：=IF(A2="","",TEXT(MOD(MID(A2,15,3),2),"男;;女"))；

（3）利用VBA的方法输入代码提取性别。