AutoFilter完刪除不需要的代號,但還是刪除了
- 帖子
- 234
- 主題
- 19
- 精華
- 0
- 積分
- 276
- 點名
- 0
- 作業系統
- Windows XP
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2013-1-7
- 最後登錄
- 2021-10-7
|
回復 1# cclo0728
BG01與BD81因為採購補充為0被刪除
'篩選0刪除
Rows("1:1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$U$3000").AutoFilter Field:=2, Criteria1:="0"
Range("A2").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.EntireRow.Delete
ActiveSheet.Range("$A$1:$U$3000").AutoFilter Field:=1
Range("A1").Select
Selection.AutoFilter |
|
|
|
|
|
|