GBKEE

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

¤U¸ü (11.4 KB)

2010-12-9 08:09

GBKEE

¦^´_ 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¸ê®ÆªºÄæ¦ì

GBKEE

¦^´_ 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¹Ï:

¤U¸ü (16.66 KB)

2010-12-9 11:02