jcchiang

¦^´_ 1# cclo0728

BG01»PBD81¦]¬°±ÄÁʸɥR¬°0³Q§R°£

    '¿z¿ï0§R°£
    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