excel表格怎么插入图表筛选

1.Excel单元格如何实现如下图的数据筛选

点击动画放大观看，以下是代码。

Sub 筛选（）

Dim rw%, a%, n%, b%

Range("i3", "m2000").Clear

rw = [D36556].End(xlUp).Row

For a = 3 To rw

If Cells(a, 5) >= [f2] And Cells(a, 5) n = n + 1

Cells(a, 1).Resize(, 5).Copy Range("i" & n + 2)

End If

Next a

End Sub