GBKEE

¦^´_ 6# mhl9mhl9

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim D As Object, Rng(1 To 2) As Range, R As Range, Ar As String, T As Date
   
4.     Set D = CreateObject("scripting.dictionary")
   
5.     T = Time
   
6.     With Sheets("¸ê®Æ®w")
   
7.         .Rows.Hidden = False '¨ú®ø ¦s®æ®æªºÁôÂÃ
   
8.         Set Rng(1) = .Range("B:E").SpecialCells(xlCellTypeConstants).Rows
   
9.         Rng(1).Interior.ColorIndex = xlNone                            '¨ú®ø     ¹Ï¼ËÃC¦â
   
10.         For Each R In Rng(1)
    
11.             Ar = Join(Application.Transpose(Application.Transpose(R.Value)), ",")
    
12.             If D.exists(Ar) Then
    
13.                 D(Ar).Interior.Color = vbYellow                        '¦³­«½Æ   ¹Ï¼ËÅã¥Ü¶À¦â
    
14.                 R.Interior.Color = vbRed                               '­«½Æ¸ê®Æ ¹Ï¼ËÅã¥Ü¬õ¦â
    
15.                 If Rng(2) Is Nothing Then
    
16.                     Set Rng(2) = Union(.Rows(1), R, D(Ar))
    
17.                 Else
    
18.                     Set Rng(2) = Union(Rng(2), R, D(Ar))
    
19.                 End If
    
20.             Else
    
21.                 Set D(Ar) = R
    
22.             End If
    
23.         Next
    
24.         If Not Rng(2) Is Nothing Then
    
25.             .Rows.Hidden = True
    
26.             Rng(2).Rows.Hidden = False
    
27.             .Cells(1).Activate
    
28.         End If
    
29.         MsgBox Application.Text(Time - T, "¦@¶O®ÉSS¬í")
    
30.     End With
    
31. End Sub

½Æ»s¥N½X