Excel VBA条件筛选器

简单的VBA问题。 我需要一个VBA子例程，它将根据条件（在这种情况下，如果列C中的内容等于11-Jun-12 [数字forms的41071]）过滤掉我的数据，而不循环整个数据集。 我在网上看了一下过滤，但没有什么似乎是我想要的（或者我只是不明白发生了什么事）。 要清楚，这是一个我想要的例子：

我想要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 

Answer 2

杰克·拉德克利夫，

你的意思是一个简单的自动filter，例如：

 Sub SimpleColumnDateFilter1() ' Quick Recorded Macro ' Select a Column ' Activate Autofilter ' For a range C1 through the rest of C ' Autofilter such that the column will display dates not equal to 11/15/2012 Columns("C:C").Select Selection.AutoFilter ActiveSheet.Range("C:C").AutoFilter Field:=1, Criteria1:= _ "<>11/15/2012", Operator:=xlAnd End Sub