目录
示例
在实际工作中,经常需要从身份证号码中提取各种信息。如图所示,如何利用VBA提取A列身份证号码中的性别信息,并存储入B列中?
身份证号码 | 性别 |
110221290815224 | 女 |
11010119700626551X | 男 |
实现代码
Option Explicit
Sub 判断性别()
Dim RowN As Long
Dim sIDNo As String
Dim iGenderNo As Integer
For RowN = 2 To Cells(Rows.Count, "A").End