在VBA中，正则表达式实例应用（8）——符合条件人员筛选

本篇经验将和大家分享如何在VBA中使用正则表达式实现符合条件的人员筛选。 首先，在工作表中，我们需要筛选出同年入职和离职的人员。请参考下图进行操作： 步骤一：点击菜单栏【开发工具】，在其工具栏内，

本篇经验将和大家分享如何在VBA中使用正则表达式实现符合条件的人员筛选。

首先，在工作表中，我们需要筛选出同年入职和离职的人员。请参考下图进行操作：

步骤一：点击菜单栏【开发工具】，在其工具栏内，点击【Visual Basic】。

步骤二：进入VBA编辑界面后，点击菜单栏【插入】，选择【模块】。

步骤三：在代码编辑窗口输入以下代码：

Sub 后向引用()
    Set regx  CreateObject("")
    With regx
        .Global  True
        .Pattern  "(d{4}).*1.*"
        For Each Rng In Range([B2], Cells(, 2).End(xlUp))
            If .test(Rng) Then
                n  n   1
                Cells(n, 4)  Cells(, 1)
            End If
        Next
    End With
    Set rg  [D1].CurrentRegion
    With rg
          1
        .HorizontalAlignment  xlCenter
          8
    End With
End Sub

步骤四：在工作表界面的【开发工具】菜单下，点击【插入】按钮，插入表单控件，并与上述代码关联。将表单控件命名为【人员筛选】。

步骤五：点击【人员筛选】按钮，符合条件的人员将被立即筛选出来。

通过以上步骤，你可以轻松利用VBA中的正则表达式功能，快速筛选出同年入职和离职的人员。这对于数据分析和人事管理非常有帮助！