¶i¶¥¿z¿ï

s7659109

«e½ú¡G
½Ð°Ý¶i¶¥¿z¿ï¤§¥¨¶°¡A¦p¦ó§ï¦¨¦³°j°é¥\¯à(¥]§t¿z¿ï·Ç
«h¡A»P¸ê®Æ½d³ò)

Sub ¥¨¶°1()
'
' ¥¨¶°1 ¥¨¶°
'

'
    Range("G:K").Clear
        Range("A1:E2319").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
        ("L1:L8"), CopyToRange:=Range("G16:K16"), Unique:=False
    Range("G16").Select
End Sub

s7659109

ª©¥D¡G­Y¥Î±ø¥ó¦¡¥[°j°é¥i¦æ¶Ü¡H

GBKEE

¦^´_ 5# s7659109
    ¬Ý¤£À´§A­nªº¬O¤°»ò,¶i¶¥¿z¿ïµLªk¦p¦¹ªí²{.

s7659109

ª©¥D¡G
­º¥ýÁÂÁª©¥D¡A
§Ú´ú¸Õ¤F(µ{¦¡½X¶K¤W¤F)¡AÁÙ¬O¦³°ÝÃD¡A¥uÅã¥Ü¤@¦C¡A
«á­±­nÅã¥Üªº¸ê®Æ¤£¨£¤F¡A§Ú§â§Ú·Q­nªºÅã¥Üªºµ²ªG©ñ¦b
À³Åã¥Üµ²ªG¤u§@ªí¤¤¡A(´ú¸Õµ²ªG¦pªþÀÉ)
¥t¥~µ²ªG¤u§@ªí¤¤dateÄ檺¤é´Á®æ¦¡¡A­n¦p¦ó
§ï¦¨2016/01/01

GBKEE

¦^´_ 3# s7659109
¨S¦³»~·|§Aªº·N«ä,¬O¤£ª¾§A­n°Ý¤°»ò!!

¬O³o¼Ë¶Ü?

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range, i As Integer
   
4.     With Sheets("DATA").UsedRange
   
5.         .Range("B:B").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("±ø¥ó").Range("F2"), Unique:=True
   
6.     End With
   
7.     With Sheets("±ø¥ó").Range("F2:F" & Sheets("±ø¥ó").Range("F2").End(xlDown).Row)
   
8.             .Sort KEY1:=.Cells(1), HEADER:=xlYes
   
9.             For i = 2 To .Cells.Count
   
10.                 Sheets("±ø¥ó").Range("a3") = .Cells(i)
    
11.                 Sheets("µ²ªG").UsedRange.Clear
    
12.                 With Sheets("DATA").UsedRange
    
13.                     .AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("µ²ªG").Range("A1"), CriteriaRange:=Sheets("±ø¥ó").Range("A2:D3")
    
14.                 End With
    
15.                 Stop  '¬Ý¬Ý¤u§@ªíµ²ªGªº¤º®e
    
16.             Next
    
17.     End With
    
18. End Sub

½Æ»s¥N½X

s7659109

ª©¥D¡G
§A»~·|§Úªº·N«ä¤F¡A§Ú¤w­«·s±N°ÝÃD­×¥¿¡A¿z¿ï¡G±ø¥ó1(©T©w¤£ÅÜ)
±ø¥ó2(­n¦³°j°é¡A¦]·|¦³¼W´î)¡A²£¥Í¦pµ²ªG

GBKEE

¦^´_ 1# s7659109
¬O³o¼Ë¶Ü?

1. Option Explicit
   
2. Sub Ex()
   
3.     With Range("A1:E2319")
   
4.         .Range("B:B").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range("L1"), Unique:=True
   
5.         With .Range("L1").CurrentRegion
   
6.             .Sort KEY1:=.Cells(1), HEADER:=xlYes
   
7.         End With
   
8.         For I = 2 To .Range("L1").CurrentRegion.Cells.Count
   
9.             .AutoFilter FIELD:=2, Criteria1:=.Range("L1").CurrentRegion.Cells(I)
   
10.             Stop  '¬Ý¬Ý¤u§@ªíªº¦Û°Ê¿z¿ï
    
11.         Next
    
12.         .AutoFilter
    
13.         .Range("L1").CurrentRegion = ""
    
14.     End With
    
15. End Sub

½Æ»s¥N½X