excel 中选择性删除某些行

Question

我想在excel表中选择性删除第五列中小于80000的行，想编一个小函数，但自己水平有限，弄半天都没出来，高手给我指点一下，这是我编的，帮我看看哪里不对啊
Sub aa()
Dim a&, t&
a = Range("a65536").End(xlUp).Row
For t = 1 To a
If Cells(t, 5) < 800000 Then
Rows(t).Clear
End If
Next
Range("a1:a" & a).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
我的数据格式
1 259.078 1.278 185344 98816 0.004692
3 264.578 1.629 159451 72265 0.0040366
4 269.078 0.95184 585582 178673 0.014824
5 273.078 27.17 3681134 266971 0.093189
就是检查185344这列
我的宏在这里出错Range("a1:a" & a).SpecialCells(xlCellTypeBlanks).EntireRow.Delete 说没找到单元格
请帮我解释一下这行为什么错了，我抄改别人的，呵呵 (259.078和1.278 中间有一列是空的)

补充：sunshine050082说的这种做法我也会，但我有几百个文档，不可能每个都这么做啊，而且这个操作似乎录成宏也不容易

Answer 1

可以不用函数
选择第五列（E），在菜单栏里单击“数据”，选择“筛选”/“自动筛选”，就可以看到E1单元格右下角出现一个三角形的下拉按钮，单击，选择“自定义”，在弹出的“自定义自动筛选方式”对话框中先选择逻辑“小于”，后面的对应值填80000，再单击“确定”。这时可以看到E列只剩下小于80000的数据了，把它们都删除，在单击E1单元格右下角的三角形下拉按钮，选择“全部”，则现在只剩下大于等于80000的数据了。