2016-11-22 59 views
0

我有一个过滤数据的宏,我想删除列中的数据。我有(下面)的代码这样做,但它删除列中的所有数据。我需要删除数据,因此单元格仍然是空白的,不会被删除。删除过滤的数据VBA

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

??? 'Range(“Q4:Q1000”)。SpecialCells(xlCellTypeVisible).Clear' ??? –

+0

你不需要第一个自动过滤器代码行 – user1

回答

1

替换:

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

与:

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

完美的欢呼声! –

+0

@LukeTurnbull请记住,如果它有效,请标记为已接受的答案,以便其他人知道:) – Sgdva