在VBA中，union之应用——筛选数据！

1、实例【将分数>=90的行，筛选至K列？】

2、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】!

3、会进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】！

4、会弹出模块编辑窗口！

5、在代码编辑窗口输入以下代码：

Sub 筛选数据0()

j = Cells(Rows.Count, 1).End(xlUp).Row

For Each rng In Range([b2], Cells(j, 2))

  If rng >= 90 Then

    k = k + 1

    If k = 1 Then

      Set rn = rng

    Else

      Set rn = Union(rn, rng)

    End If

    ads = rn.Address

  End If

Next

For Each rngs In rn

  n = n + 1

  Range(Cells(rngs.Row, "a"), Cells(rngs.Row, "c")).copy Cells(n + 1, "k")

Next

End Sub

6、在VBA界面，点击工具栏【运行】按钮！

7、我们会看到：分数>=90的行，被很快筛选至K列！