GBKEE

¦^´_ 2# Michelle-W

¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim d As Object, d_New As Object, i As Double, s   As String, k As Variant
   
4.     Set d = CreateObject("scripting.dictionary")          ' ¦r¨åª«¥ó : List¸ê®Æ
   
5.     Set d_New = CreateObject("scripting.dictionary") ' ¦r¨åª«¥ó : ¤ñ¹ï¥X List ©Ò¨S¦³ªº¸ê®Æ
   
6.     With Sheets("List").UsedRange
   
7.         For i = 2 To .Rows.Count
   
8.             s = Join(Application.Transpose(Application.Transpose(.Rows(i).Value)), ",")
   
9.             d(s) = .Rows(i)
   
10.         Next
    
11.     End With
    
12.     With Sheets("¸ê®Æ").UsedRange
    
13.         For i = 1 To .Rows.Count
    
14.             s = Join(Application.Transpose(Application.Transpose(.Rows(i).Value)), ",")
    
15.             If d.EXiSTS(s) = False Then d_New(s) = .Rows(i)
    
16.         Next
    
17.     End With
    
18.     With Sheets("¦¹¦¸·s¼W").UsedRange
    
19.         .Clear
    
20.         If d_New.Count > 1 Then
    
21.             i = 1
    
22.             For Each k In d_New.KEYS
    
23.                 .Cells(i, "A").Resize(, 3) = d_New(k)
    
24.                 i = i + 1
    
25.             Next
    
26.         Else
    
27.             MsgBox "¦¹¦¸·s¼W ¨S¦³ ·s¼W¸ê®Æ !"
    
28.         End If
    
29.     End With
    
30. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# Michelle-W

1. With Sheets("List").UsedRange
   
2.        For i = 2 To .Rows.Count

½Æ»s¥N½X

¨º´N±q²Ä¤@¦C¶}©l

1. With Sheets("List").UsedRange
   
2.        For i = 1 To .Rows.Count

½Æ»s¥N½X