標題: [發問] 篩選後資料刪除,如何避免無資料後會刪除範圍內所有資料呢 [打印本頁]

---

作者: starry1314    時間: 2015-11-26 08:58     標題: 篩選後資料刪除,如何避免無資料後會刪除範圍內所有資料呢

請問該如何避免範圍內無以下條件會導致篩選後的資料為空白,將會刪除A2:I5000內所有資料

1. Sub 數據_刪除()
   
2. 
   
3.     On Error Resume Next
   
4. 
   
5.     Sheets("數據(早餐)").Select
   
6.     ActiveSheet.Range("$A$1:AA5000").AutoFilter Field:=6, Criteria1:=Array( _
   
7.         "紅茶", "奶茶",  "0"), Operator:=xlFilterValues
   
8.     Range("A2:I5000").Select
   
9.     Selection.ClearContents
   
10. 
    
11.     Selection.AutoFilter
    
12. 
    
13. end sub

複製代碼

---

作者: stillfish00    時間: 2015-11-26 11:15

回復 1# starry1314

    With Sheets("數據(早餐)")
        .Select
        .Range("$A$1:AA5000").AutoFilter Field:=6, Criteria1:=Array( _
        "紅茶", "奶茶", "0"), Operator:=xlFilterValues
        
        With .AutoFilter.Range
            .Offset(1).Resize(.Rows.Count).SpecialCells(xlCellTypeVisible).ClearContents
            .AutoFilter
        End With
        
    End With

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)