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

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

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

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

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

5、在代码编辑窗口输入以下代码：Sub 筛选数据0()j = Cells(Rows.Count, 1).End(xlUp).RowFor 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 IfNextFor Each rngs In rn n = n + 1 Range(Cells(rngs.Row, "a"), Cells(rngs.Row, "c")).copy Cells(n + 1, "k")NextEnd Sub

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

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