excel - 使用 VBA 过滤工作表数据

Question

使用:Excel 2007。

问题:电子表格包含许多列和行的数据。一列称为“概率”，包含 0% 到 100% 之间的百分比值。如何编写一个宏来有条件地删除一行，前提是该行的“概率”值小于 50%？

更新:这不能简单地通过录制宏来完成，因为百分比值会随着每次新数据上传而变化。

谢谢!

Answer 1

例如，如果您的概率数据位于事件工作表的 A 列中，您可以使用自动筛选

1. 手动自动筛选列，添加 <50% 的条件，然后删除结果

2. 在代码中运行与下面相同的方法

   Sub QuickCull()
       Application.ScreenUpdating = False
       With ActiveSheet
           .AutoFilterMode = False
           .Columns("A").AutoFilter Field:=1, Criteria1:="<50%"
           .AutoFilter.Range.Offset(1, 0).EntireRow.Delete
           .AutoFilterMode = False
       End With
       Application.ScreenUpdating = True
   End Sub