删除过滤的数据VBA

Question

我有一个过滤数据的宏，我想删除列中的数据。我的代码（下面）执行此操作但它删除了列中的所有数据。我要求删除数据，因此单元格仍然是空白而不是删除。

Range("A1:AC1").AutoFilter
Range("A1:AC1").AutoFilter Field:=17, Criteria1:="0.00", Operator:=xlFilterValues
Range("Q4:Q1000").SpecialCells(xlCellTypeVisible).Delete

Answer 1

替换：

Range("Q4:Q1000").SpecialCells(xlCellTypeVisible).Delete

使用：

Range("Q4:Q1000").SpecialCells(xlCellTypeVisible).Clear