ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

AutoFilter§¹§R°£¤£»Ý­nªº¥N¸¹¡A¦ýÁÙ¬O§R°£¤F

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD