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列！
