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

¶i¶¥¿z¿ïªº°ÝÃD

¶i¶¥¿z¿ïªº°ÝÃD

Dear ¤j¤j

      ¦³¤@­Ó¤p°ÝÃD·Q½Ð±Ð¤j¤j­Ì,´N¬O§Ú¦b¨Ï¥Î"¶i¶¥¿z¿ï"³o­Ó¥\¯à®É,¦n¹³µLªk¸ó·~°õ¦æ
      ¨Ò¦p¦bsheet2¨Ï¥Î¶i¶¥¿z¿ï«á,¦b"½Æ»s¨ì"³o­Ó³¡¥÷¿ï¨ìsheet1½T·|¥¢±Ñ
      ¥t¥~¦b¨Ï¥Îvba¼¶¼g®É,¤]·|¦³³o¼Ëªº°ÝÃD,µ{¦¡½X¦p¤U  (µLªk°õ¦æ)
  Sheet2.Select
   Sheet2.Range("C4").Select
   Sheet2.Range(Selection, Selection.End(xlToRight)).Select
   Sheet2.Range(Selection, Selection.End(xlDown)).Select
   Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheet1.Range("A2"), Unique:=True
   Sheet1.Select
   Range("A4").Select

          ¬O§_¦³¸Ñ¨Mªº¤è¦¡©O???

Sheet2.Range("C4").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheet1.Range("A2"), Unique:=True
°õ¦æ¶i¶¥¿z¿ï¥²¶·¦b¥Øªº¤u§@ªí¤W°õ¦æ¡A¤£¬O¦b¸ê®Æ·½¤u§@ªí¤W¡C¥Îvba®Éª`·N¤£­nselect¨ì·½ªí¡C

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-12-9 08:12 ½s¿è

¦^´_ 1# hugh0620
µ{¦¡½Xªº°ÝÃD¥i¯à¬O "Selection"  
¸ê®Æªº¶i¶¥¿z¿ï.AdvancedFilte,À³«ü©ú¸ê®Æªº¦ì¸m¦p:Sheet1.Range("A1:E10")
¥i¥H¤W¶ÇÀɮ׶Ü? ¬O§_¦p¤U¹Ïªº¿ù»~?




EX1.GIF
2010-12-9 08:09

TOP

¥»©«³Ì«á¥Ñ hugh0620 ©ó 2010-12-9 09:22 ½s¿è

¦^´_ 3# GBKEE


    ¤j¤j §Ú°õ¦æ«áªº¿ù»~°T®§¦p¤U¹Ï

      ´ú¸Õ¶i¶¥¿z¿ï.rar (8.56 KB)
     
¿ù»~°T®§.JPG
2010-12-9 09:12

TOP

´ú¸Õ¶i¶¥¿z¿ï.rar (8.2 KB)

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-12-9 09:58 ½s¿è

¦^´_ 4# hugh0620
Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheet1.Range("A2"), Unique:=True
³o¸Ì§ï¬° A4 , A2 ªº­È¬°1¤£¬O ¸ê®ÆªºÄæ¦ì©Ò¥H·|²£¥Í¿ù»~ ¦ý¦pA2 ªº­È=""  µ{¦¡·|¦Û°Ê²£¥Í,¸ê®ÆªºÄæ¦ì ¥i¸Õ¸Õ¬Ý  
­×§ï§Aªºµ{¦¡½X¦p¤U,¬O§_¬O§Aªº­ì·N.
Private Sub CommandButton1_Click()
   Sheet2.Range("C4").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheet1.Range("A1:A2"), CopyToRange:=Sheet1.Range("A4:H4"), Unique:=True
End Sub
PS: CriteriaRange:=Sheet1.Range("A1:A2"), ªºÀx¦s®æ¥i¥þ³¡¬°ªÅ¥Õ ,¦ý¤£¥i¦³¸ê®ÆªºÄæ¦ì¤¤§¨Âø¦³ªÅ¥ÕÀx¦s®æ¤Î¤£¬O¸ê®ÆªºÄæ¦ì

TOP

¦^´_ 5# oobird


    µ¥¯Å¤£°÷~ µLªk¤U¸ü~ §Ú·|§V¤O½Äªº~ ¦n¤U¸ü¤j¤j´£¨ÑªºÀÉ®×

TOP

¦^´_ 6# GBKEE


    ¤j¤j~ «Ü·PÁ§A³o¼Ë¼ö¤ßªº¦^ÂÐ~
    «Ü©êºp  §Ú¨S¦³ªí¹Fªº«Ü²M·¡
    §Æ±æ³z¹LSheet1 A2³o­ÓÄæ¦ì~·íKEY WORD~ ¥h¿z¿ï¥X sheet2 ¤¤¸ê®Æ²Å¦Xsheet1³o­ÓÄæ¦ì
   ¨Ò: sheet1 A2 = 1
          ´N¿z¥X sheet2 ¸ê®Æ¤¤²Å¦X1 ªº¸ê®Æ

   ³o¼Ë»¡©ú,§Æ±æ¤j¤j¯à¤F¸Ñ

TOP

a.gif
2010-12-9 10:12

TOP

¦^´_ 8# hugh0620
  1. Private Sub CommandButton1_Click()
  2.    Sheet2.Range("C4").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheet1.Range("A1:A9"), CopyToRange:=Sheet1.Range("C5:j5"), Unique:=True
  3. End Sub
½Æ»s¥N½X
­n¥Î­pºâ¦¡·Ç«h,­pºâ¦¡·Ç«hªºÄæ¦ì¦WºÙ¶·¤£¦P©ó¸ê®Æ®wªºÄæ¦ì¦WºÙ
Sheet1.Range("A1:A9") ¬O·Ç«hªº½d³ò ¦p¹Ï:


EX1.GIF
2010-12-9 11:02

TOP

        ÀR«ä¦Û¦b : ¤ß¤¤±`¦sµ½¸Ñ¡B¥]®e¡B·P«ä¡Bª¾¨¬¡B±¤ºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD