Hsieh

¦^´_ 3# jeff2004
¤W¶ÇÀɮ׬O¤£¤Àµ¥¯Åªº
¨S¦³Àɮפ£ª¾§Aªº§¹¾ãµ{§Ç¬°¦ó?
²q´ú¿ù»~À³¬O¤u§@ªí«ü©wªº°ÝÃD
ª`·NWITH°Ï¬q¤ºªº±Ô­zÀ³¥[¤J"."
    Sub  ¶i¶¥¿z¿ï»P½Æ»s()
Dim i%, j%                                         
Dim ta As Range, tb As Range, tc As Range
With Worksheets(1)                                 
i = .Cells(.Rows.Count, "a").End(xlUp).Row            
j = .Range("A1").End(xlToRight).Column
End With
Set ta = Worksheets(1).Range( Worksheets(1).Cells(1, 1),  Worksheets(1).Cells(i, j))    '°ÝÃD¦b³o¤@¦æ¡AµLªk®³¨ìI»PJ­È
Set tb = Worksheets(2).Range("a1", "b2")
Set tc = Worksheets(3).Range("a1")
ta.AdvancedFilter xlFilterCopy, tb, tc
End Sub