GBKEE

¦^´_ 1# play9091

1. Sub Ex()
   
2.     Dim D As Object, E As Variant
   
3.     Set D = CreateObject("Scripting.Dictionary")    'Dictionary¥Î©óÀx¦s¸ê®ÆÃöÁä¦r©M¶µ¥Ø¹ï¡C¡A³q±`¬O¾ã¼Æ©Î¦r¦ê¡A¥i¥H¬O°£°}¦C¥~ªº¥ô¦ó«¬ºA¡C
   
4.     For Each E In Sheet1.Range("A2").CurrentRegion.Rows   'Sheet1.A2³sÄò½d³ò¦Cªº¶°¦X
   
5.         If E.Cells(1).Interior.ColorIndex = 3 Then        'ColorIndex = 3  ¬õ¦â
   
6.             If Not D.EXISTS(E.Cells(1).Value) Then Set D(E.Cells(1).Value) = E
   
7.             'Not D.EXISTS(E.Cells(1).Value) §ä¤£­«½Æªº­È
   
8.             'Set D(E.Cells(1).Value) = E : Dictionary.ITEMS->³]©w¬°Eªº¾ã¦C(Range ª«¥ó)
   
9.         End If
   
10.     Next
    
11.     For Each E In D.ITEMS
    
12.         Sheet2.Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(, E.Columns.Count) = E.Value
    
13.         'E.Columns.Count =>¶Ç¦^Eªº¾ã¦CªºÄæ¼Æ
    
14.        ' E.Copy Sheet2.Range("A" & Rows.Count).End(xlUp).Offset(1)  'copyªº¤èªk
    
15.     Next
    
16. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# play9091
³oºØ¼gªk¥i¤£¥i¥H¸ósheet©Î¬O¸óBOOK¡H¡H                ª¦¤@¤U¤å ´N¦³°Õ!    ½Ð¬Ý

GBKEE

¦^´_ 5# play9091
¬O³o¼Ë¶Ü?

1. Sub ttt()
   
2.     Sheets("Sheet1").Range("E3") = ""
   
3.     Sheets("Sheet1").Range("E4").Value = "=AND(TEXT(RIGHT(A11, 8), ""hh:mm:ss"") >= ""02:00:00"",TEXT(RIGHT(A11, 8), ""hh:mm:ss"") <= ""21:30:00"")"
   
4.     Set Rng = Range("A10").CurrentRegion
   
5.     Rng.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("E3:E4"), Unique:=False
   
6.     Set Rng = Rng.SpecialCells(xlCellTypeVisible)   '¸ê®Æ°Ï¥i¨£ªºÀx¦s®æ
   
7.     If Rng.Count > Rng.Columns.Count Then           '¦³¿z¿ï¨ì¸ê®Æ
   
8.     'Rng.Count: ¿z¿ï¨ì¸ê®ÆÁ`¼Æ > Rng.Columns.Count: ¸ê®Æ°Ï¥i¨£Àx¦s®æªºªºÄæ¦ì¼Æ
   
9.         Rng.Copy Sheets("SheetX").[A1]              '§A­nªº¦ì¸m
   
10.     End If
    
11. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# play9091
²Ä¤@­Ó°ÝÃD¦n¹³¨S¦³§¹¥þ¨M¸Ñ  ·í ¿z¿ï¨ìªº¸ê®Æ ¤£¬O³sÄò½d³ò, ®É´N¤£¦æ®@!

1. Rng.Copy Sheets("Sheet2").[A2] '§A­nªº¦ì¸m
   
2.            Sheets("Sheet2").[A2:D2].Delete xlUp '§R°£¨º¤@¦Cªº½d³ò
   
3. ©Î¬O    Sheet2.[A2].EntireRow.Delete '¾ã¦C§R°£

½Æ»s¥N½X

      
¿ù»~¦b¨º¸Ì§ä§ä¬Ý
Workbooks("X').Sheets("Y").Range("B11:D12").Copy Workbooks("Z").Sheets("G").Range("A1")

GBKEE

¦^´_ 9# play9091
¤S¥X¿ù  ¤½¦¡¨S°ÝÃD°Ú, °õ¦æ¶¥¬q¿ù»~ 9:  ¹ï¶Ü?
ÀˬdWorkBook ¬O¤w¶}±Òªº¶Ü?  ¤u §@ªí¦WºÙ¦s¦b¶Ü?

GBKEE

¦^´_ 11# play9091
¦h¦h§Q¥Î¿ý»s¥¨¶°,·|¶i¨Bªº.