返回列表 上一主題 發帖

AutoFilter完刪除不需要的代號,但還是刪除了

回復 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

TOP

        靜思自在 : 欣賞別人就是莊嚴自己。
返回列表 上一主題