Dim arr, brr, d, i& '定義 數組arr, 數組 brr, d 對象， i 為長整形
Set d = CreateObject("scripting.dictionary") ' d 賦值為字典對象
Sheet1.Activate ' 激活工作表sheet1
arr = Range("a10").CurrentRegion ' 對arr賦值，將A10 所在範圍內的數賦值給arr數組
brr = Sheet2.Range("a1").CurrentRegion ' brr賦值，同arr
For i = 2 To UBound(arr) ' 根據arr數組大小，進行循環
d(arr(i, 7)) = i + 9 '對d字典賦值，d的鍵為數組arr(i,7)，值為 i+9
Next
For i = 2 To UBound(brr) '根據brr數組大小，進行循環
If d.exists(brr(i, 7)) Then Rows(d(brr(i, 7))).Copy Sheet2.Cells(i, 1) '如果d字典的鍵已經存在,
那麽將sheet1的 第( 字典的鍵）行復制Sheet2.Cells(i, 1) 單元格
Next
End Sub