vba - Excel VBA 条件过滤器

Question

简单的 VBA 问题。我需要一个 VBA 子例程，它将根据条件过滤我的数据(在这种情况下，如果 C 列中的内容等于 11-Jun-12 [41071 in numeric form])而不循环整个数据集。我在 Internet 上进行了一些过滤，但似乎没有什么是我想要的(或者我只是不明白发生了什么)。为了清楚起见，这是我想要的一个例子:

我要http://imgur.com/qebVv

前往http://imgur.com/zDncq .

谢谢!

Answer 1

假设电子表格的设置与屏幕截图中显示的一样，您可以执行以下操作

Sub DateFilter()
    'hide dialogs
    Application.ScreenUpdating = False
    'filter for records that have June 11, 2012 in column 3
    ActiveSheet.Cells.AutoFilter Field:=3, Criteria1:="6/11/2012"
    'deletes all matching rows
    ActiveSheet.AutoFilter.Range.Delete
    Application.ScreenUpdating = True
End Sub