ªð¦^¦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 : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD