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

[µo°Ý] ¿z¿ï«á¸ê®Æ§R°£,¦p¦óÁקKµL¸ê®Æ«á·|§R°£½d³ò¤º©Ò¦³¸ê®Æ©O

¦^´_ 1# starry1314

    With Sheets("¼Æ¾Ú(¦­À\)")
        .Select
        .Range("$A$1:AA5000").AutoFilter Field:=6, Criteria1:=Array( _
        "¬õ¯ù", "¥¤¯ù", "0"), Operator:=xlFilterValues
        
        With .AutoFilter.Range
            .Offset(1).Resize(.Rows.Count).SpecialCells(xlCellTypeVisible).ClearContents
            .AutoFilter
        End With
        
    End With
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD