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

[µo°Ý] ¿z¿ïªº»yªk

[µo°Ý] ¿z¿ïªº»yªk

½Ð°Ý¤j¤j¡G
¿z¿ïªº»yªk§Ú¥u·|¼g³o¼Ëªº
,AutoFilter Field:=XX ...........
,¦ý¨C¦¸ªí®æ¤@¦³ÅÜ°Ê,´N­n¦A­×§ïµ{¦¡
½Ð°ÝÁÙ¦³¨S¦³¤£¦P¼gªk?¨Ò¦p¥ÎÅܼƩΩw¸q©R¦W¤è¦¡?¼gªk¬O«ç¼Ëªº? ½Ð±Ð¡I¡I

    With Sh
    Sh.Activate
        .UsedRange.AutoFilter Field:=44, Criteria1:=">0", Operator:=xlAnd  '>0ªº¸ê®Æ
        Set A = .Range("F4", .Range("F4").End(xlDown))  '±q..¨ì¸ê®Æ³Ì©³
        A.Copy
    End With

    With xSh
        xSh.Activate
        Range("A5").Activate
        .Range("A5").PasteSpecial xlPasteValues  '¿ï¾Ü©Ê¶K¤W­È
        Application.CutCopyMode = False '¨Ï¨Ó·½ªºcopyªºµê½u°{°Ê°±¤î
        Application.DisplayAlerts = False '¦bµ{§Ç°õ¦æ¹Lµ{¤¤¨Ï¥X²{ªºÄµ§i®Ø¤£Åã¥Ü
    End With

¦^´_ 1# PJChen
¥i¥H¥Î­n¿z¿ïªºÄæ¦ì¦WºÙ§ä¥X¦ì¸m,¨Ó¨ú¥N©T©wªº¦ì¸m
Sub ex()
For Each a In Range("a1:M1")
    If a = "Äæ¦ì¦WºÙ" Then Exit For
Next
  Selection.AutoFilter Field:=a.Column, Criteria1:=2
End Sub

TOP

¦^´_ 2# jcchiang
·PÁÂ...§Ú¦A¸Õ¸Õ¬Ý

TOP

¦^´_ 2# jcchiang

¤j¤j,
»yªk´ú¸ÕOK
¤£¹L·Q½Ð±Ð,ªí®æ¤¤­YªíÀYªº©R¦W¦³«Ü¦h­«½Æªº,¦b¤£§ó§ï¦WºÙªº±¡§Î¤U,­n«ç»ò®M¥Î³o­Ó»yªk?

TOP

¦^´_ 4# PJChen
­n¿z¿ïªºÄæ¦ì¦WºÙ­«½Æ,¦p¥iª¾¹D¬O¥Î²Ä´X­Ó°µ¿z¿ï¥i¥[­Ó­p¼Æ

Sub ex()
x=0
For Each a In Range("a1:M1")
     If a = "Äæ¦ì¦WºÙ" Then x=x+1
       If x = ²Ä´X­Ó¦WºÙ Then Exit For
Next
   Selection.AutoFilter Field:=a.Column, Criteria1:=2
End Sub

TOP

¦^´_ 5# jcchiang
·PÁ§A±Ð³o­Ó»yªk...§Ú¦A¸Õ¸Õ

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD