返回列表 上一主題 發帖

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

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

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

以上
感謝協助

資料比對.rar (3.7 KB)

本帖最後由 Hsieh 於 2012-10-2 21:46 編輯

回復 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
複製代碼
學海無涯_不恥下問

TOP

回復 2# Hsieh


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

    以上

TOP

回復 3# luke


   謝謝指正,已訂正
學海無涯_不恥下問

TOP

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

TOP

        靜思自在 : 人要知福、惜福、再造福。
返回列表 上一主題