請問VBA的複製問題
 

雖然這素個簡單的問題....可素偶跑了粉久....跑不出來
就是在一個.xls檔中有兩個sheet,
就是要比對兩個sheet的資料.........
目的是要使得sheet("95-2000原始資料")的第J欄得出...
首先先看到sheet("外資買賣超")的C2儲存格資料(條件是1101且199501都有),
要copy到sheet("95-2000原始資料")也符合1101且199501(E欄)的儲存格,
這個例子中也就是儲存格J3才符合....要如何使J欄的其他資料也比對成功呢???
我的程式如下...跑很久....不知哪錯囉...請高手指導指導剛入VBA的小弟...
謝謝......

Sub 比對資料()
For i = 2 To 5 Step 1
For k = 3 To 4 Step 1
For j = 3 To 8 Step 1
If Sheets("外資買賣超").Cells(i, 1) = Sheets("95-2000原始資料").Cells(j, 1) And Sheets("外資買賣超").Cells(1, k) = Sheets("95-2000原始資料").Cells(j, 5) Then
Sheets("外資買賣超").Select
Cells(i, k).Select
Selection.Copy
Sheets("95-2000原始資料").Select
Cells(j, 10).Select.Paste

End If
Next j
Next k
Next i
End Sub

我砍不掉....
麻煩請站長砍掉此篇文章...
謝謝