Excel VBA之日期篇 4.5利用身份证获得员工基础信息 甚至籍贯

场景分析

今天的这些方法，主要集中在员工个人信息方面的一些处理，比方说性别，年龄，出生年月日等，同时顺带分享一个我收藏了好久的大招，籍贯的处理，这个需求是非常的偏门少见的，所以我当初也是百度了很久，翻遍了N多资料才找到的，今天分享给大家。今天主要涉及的一些文本方面的处理，大家可以趁机复习下文本方面的处理方法，同时也可以了解到简单的函数在工作中扮演的重要作用。

场景模拟

假设我们手上的这份表是这样子的，我们有了公司现在的部分员工的数据，这些数据都是从员工的简历上面获取的，这两个数据是肯定不会不错的，现在HR需要做一份全公司所有的员工的信息表，比方说获得对方的年龄，性别，生日，籍贯，那么我们需要如何用VBA来一步步实现呢？

我们来看看代码

Sub test()Dim i&, sth As Worksheet, arrarr = Range(Cells(2, 2), Cells(5404, 2))arr = WorksheetFunction.Transpose(arr)For i = 2 To 11 BOG = Right(Cells(i, "e"), 1) Mod 2 Bir = Mid(Cells(i, "e"), 7, 8) SixNum = Int(Left(Cells(i, "e"), 6)) If BOG = 0 Then Cells(i, "f") = "女" Else Cells(i, "f") = "男" End If Cells(i, "g") = WorksheetFunction.text(Bir, "0-00-00") Cells(i, "h") = DateDiff("yyyy", Cells(i, "g"), Now) r = Application.WorksheetFunction.Match(SixNum, arr, 0) Cells(i, "i") = Cells(r + 1, 3)Next iEnd Sub

来看看看效果

是不是很完美呢

代码解析

今天的代码看起来比较的长，但是其实也没有多少太复杂的东西，都非常的简单，都是我们之前学习或者分享过的知识点，我们大致来说下

arr = Range(Cells(2, 2), Cells(5404, 2))arr = WorksheetFunction.Transpose(arr)

这段代码的意思是获得一个数组，数组的方法虽然没有详细的说明，但是我们已经在之前分享过很多次数组的构造方法了，相信大家已经会了。

然后我们开始进行遍历

BOG = Right(Cells(i, "e"), 1) Mod 2

这里有一个方法需要大家学习下，我们通过身份证判断性别的时候，通常都是判断证件最后一位数是奇数还是偶数的，这个奇偶数的判断，就可以通过mod来实现，mod在其他的语言中也存在，是整除的意思，比方说python语句中也有这样的方法，能够被2整除，那就是偶数，代表是女性，不能被2整除那就是男性。这里我们先得到身份证最后最后一数除以2的结果，保存下来

Bir = Mid(Cells(i, "e"), 7, 8)

然后获得生日的8位数，这个用mid函数就可以了。

SixNum = Int(Left(Cells(i, "e"), 6))