麻辣家族討論版版 » Excel程式區 » 篩選後資料刪除,如何避免無資料後會刪除範圍內所有資料呢

返回列表下一主題上一主題發帖

[發問] 篩選後資料刪除,如何避免無資料後會刪除範圍內所有資料呢

　暱稱: 豪

高中生 Rank: 3 Rank: 3

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-11-26 08:58 | 顯示全部帖子

[發問] 篩選後資料刪除,如何避免無資料後會刪除範圍內所有資料呢

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

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

複製代碼

樓主熱帖

收藏

靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。

返回列表下一主題上一主題