[發問] 資料比對分類問題

sandra_wang

請問大家一個資料比對的問題

我的問題...
如果黃色區塊有n筆資料，
請問我要如何把第62列的資料跟第6列的資料做比對，
如果比對一樣的時候，就把第63~66列資料填到53~56列。

GBKEE

回復 1# sandra_wang

1. Sub Ex()
   
2.     Dim Rng(1 To 2) As Range, R As Range, i
   
3.     With ActiveSheet
   
4.         Set Rng(1) = .Range(.Cells(62, 3), .Cells(62, 3).End(xlToRight))
   
5.         Set Rng(2) = .Range(.Cells(6, 3), .Cells(6, 3).End(xlToRight))
   
6.         For Each R In Rng(1)
   
7.             i = Application.Match(R.Value, Rng(2), 0)
   
8.             If IsError(i) = False Then .Range(R.Cells(2, 1), R.End(xlDown)).Copy .Cells(53, 2 + i)
   
9.         Next
   
10.     End With
    
11. End Sub

複製代碼