Excel VBA：从身份证号码提取性别与年龄的便捷方法

大家好，我是捌贰春秋VBA。如何从身份证号码中提取性别和年龄呢？在Excel中有好多方法可以解决，今天就用VBA数组的方法从身份证号码中提取性别和年龄。

数据提取结果

思路

1、从身份证号码中第17为提取1位，获取的数组若为偶数，则性别是女；反之性别为男。

2、从身份证号码中第7为提取4位，获取出生年份，再用当前年份减去出生年份则计算出年龄。

3、输出结果到单元格之前，将身份证号码转换为文本格式，单引号+身份证号码。

代码

Private Sub CommandButton1_Click()

Dim arr, i%

arr = Range("A1").CurrentRegion

For i = 2 To UBound(arr)

If Mid(arr(i, 2), 17, 1) Mod 2 = 0 Then

arr(i, 3) = "女"

Else

arr(i, 3) = "男"

End If

arr(i, 4) = Format(Now(), "yyyy") - Mid(arr(i, 2), 7, 4)

arr(i, 2) = "'" & arr(i, 2)

Next i

Range("A1").CurrentRegion = arr

End Sub