oobird

Åwªï·s¦P¾Ç¡I

1. Sub test()
   
2.     Dim d As Object, a As Range, b As Range, i%, x$
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     Set b = [r7:ac18]
   
5.     For i = 1 To b.Rows.Count
   
6.         x = Join(Application.Transpose(Application.Transpose(b(i, 5).Resize(, 8))), ",")
   
7.         d(x) = b(i, 1)
   
8.     Next
   
9.     Set a = [h7:o18]
   
10.     For i = 1 To a.Rows.Count
    
11.         x = Join(Application.Transpose(Application.Transpose(a(i, 1).Resize(, 8))), ",")
    
12.         If d.exists(x) Then a(i, 9).Value = d(x)
    
13.     Next
    
14. End Sub

½Æ»s¥N½X