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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-11-10 16:44 | 只看該作者

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

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

資料分類問題

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2010-11-10 17:21 | 只看該作者

回復 1# sandra_wang

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

複製代碼

靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。