前景提要
今日广州依然倾盘大雨，小编下去买个午餐的功夫回来就被淋湿了，这天气啊！
可能是最近小编写的关于HR方面的文章有点多了，不少的童鞋在后台私信我希望能够分享一些更多的HR工作中一些技巧，他们也是希望能够拜托天天算数据，对数据，这样的繁琐工作，HR虽然主要的工作还是人事方面的管理，但是在日常的工作中也是需要面对各种繁琐数据的处理和计算的，比方说小编之前喜写过的几个文章，在这样的情况，所以小编就单独开一个番外篇吧，专门分享一下小编日常工作中如何用VBA帮助一些HR解决问题。
方法分析
今天的这些方法，主要集中在员工个人信息方面的一些处理，比方说性别，年龄，出生年月日等，同时顺带分享一个我收藏了好久的大招，籍贯的处理，这个需求是非常的偏门少见的，所以我当初也是百度了很久，翻遍了N多资料才找到的，今天分享给大家。今天主要涉及的一些文本方面的处理，大家可以趁机复习下文本方面的处理方法，同时也可以了解到简单的函数在工作中扮演的重要作用。
场景模拟
假设我们手上的这份表是这样子的，我们有了公司现在的部分员工的数据，这些数据都是从员工的简历上面获取的，这两个数据是肯定不会不错的，现在HR需要做一份全公司所有的员工的信息表，比方说获得对方的年龄，性别，生日，籍贯，那么我们需要如何用VBA来一步步实现呢？
我们来看看代码
Sub test()
Dim i&, sth As Worksheet, arr
arr = 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 i
End 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))
因为我们后面需要获得员工的籍贯的归属地，而籍贯都是通过前面6位数来获得分析的，而籍贯表也是小编千辛万苦找了很久才找到的，这里就直接分享给大家了，需要的童鞋可以成为我的粉丝，然后私信：籍贯表，就可以得到这个表了
之后就是简单的text函数，datediff函数了，这两个都非常的简单。
重点来说下最后一个match方法，这是数组中快速寻找对应匹配值的方法，他能够找到对应的数字在数字中的位置，注意，这里返回的结果是位置，我们来调试看看结果
r = Application.WorksheetFunction.Match(SixNum, arr, 0)
110101在数组中是第一个位置，是不是这样呢，来看看数组
经过验证时没有错的
有了位置之后我们就可以得到对应的区域了，因为标题行本身占了一行，所以我们得到位置之后加1，就是区域所在的单元格位置了。
Cells(i, "i") = Cells(r + 1, 3)
