標題: 如何比對兩頁資料，並將資料列出於第三頁 [打印本頁]

---

作者: baa168    時間: 2012-10-2 20:32     標題: 如何比對兩頁資料，並將資料列出於第三頁

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

以上
感謝協助

[attach]12680[/attach]

---

作者: Hsieh    時間: 2012-10-2 21:02

本帖最後由 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

複製代碼

---

作者: luke    時間: 2012-10-2 21:40

回復 2# Hsieh


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

    以上

---

作者: Hsieh    時間: 2012-10-2 21:47

回復 3# luke


   謝謝指正，已訂正

---

作者: baa168    時間: 2012-10-30 20:19

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)