如何比對兩頁資料，並將資料列出於第三頁

baa168

1.以標準頁為基準。
2.拿比對頁中A欄的data和標準頁A欄進行比對。
3.若有比對頁A欄資料與標準頁A欄有相同，則將比對頁B、C、G、K欄結果顯示在結果頁。

以上
感謝協助

資料比對.rar (3.7 KB)

下載次數: 26

2012-10-2 20:31

baa168

哈哈哈....研究了快一個月了...終於了解了....感謝各位有勞了...

Hsieh

回復 3# luke


   謝謝指正，已訂正

luke

回復 2# Hsieh


    兩個sheet各少了一個s
    正確應該是sheets

    以上

Hsieh

回復 1# baa168

1. Sub ex()
   
2. Dim Ar()
   
3. With Sheets("比對")
   
4. For Each a In .Range(.[A1], .[A1].End(xlDown))
   
5.    If IsNumeric(Application.Match(a, Sheets("標準").Columns("A"), 0)) Then
   
6.        ReDim Preserve Ar(s)
   
7.        Ar(s) = Array(a.Value, a.Offset(, 1).Value, a.Offset(, 2).Value, a.Offset(, 6).Value, a.Offset(, 10).Value)
   
8.        s = s + 1
   
9.    End If
   
10. Next
    
11. End With
    
12. Sheets("結果").[A1].Resize(s, 5) = Application.Transpose(Application.Transpose(Ar))
    
13. End Sub

複製代碼