baa168

中學生 Rank: 2

帖子: 119
主題: 14
精華: 0
積分: 138
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-11-6
最後登錄: 2019-5-4

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-10-2 20:32 | 只看該作者

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

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

以上
感謝協助

資料比對.rar (3.7 KB)

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 91
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-4-19

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2012-10-2 21:02 | 只看該作者

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

回復 1# baa168

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

複製代碼

學海無涯_不恥下問

TOP

luke

中學生 Rank: 2

帖子: 140
主題: 37
精華: 0
積分: 193
點名: 0
作業系統: Windows XP
軟體版本: Office 2007
閱讀權限: 20
註冊時間: 2012-3-28
最後登錄: 2015-7-5

2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章

3^#

發表於 2012-10-2 21:40 | 只看該作者

回復 2# Hsieh

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

以上

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 91
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-4-19

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2012-10-2 21:47 | 只看該作者

回復 3# luke

謝謝指正，已訂正

學海無涯_不恥下問

TOP

baa168

中學生 Rank: 2

帖子: 119
主題: 14
精華: 0
積分: 138
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-11-6
最後登錄: 2019-5-4

5^#

發表於 2012-10-30 20:19 | 只看該作者

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

TOP