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

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

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

½Ð°Ý¸Ó¦p¦óÁקK½d³ò¤ºµL¥H¤U±ø¥ó·|¾É­P¿z¿ï«áªº¸ê®Æ¬°ªÅ¥Õ,±N·|§R°£A2:I5000¤º©Ò¦³¸ê®Æ
  1. Sub ¼Æ¾Ú_§R°£()

  2.     On Error Resume Next

  3.     Sheets("¼Æ¾Ú(¦­À\)").Select
  4.     ActiveSheet.Range("$A$1:AA5000").AutoFilter Field:=6, Criteria1:=Array( _
  5.         "¬õ¯ù", "¥¤¯ù",  "0"), Operator:=xlFilterValues
  6.     Range("A2:I5000").Select
  7.     Selection.ClearContents

  8.     Selection.AutoFilter

  9. end sub
½Æ»s¥N½X

¦^´_ 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 : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD