會員 | 請問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 |
回覆 |
會員 | 我砍不掉.... 麻煩請站長砍掉此篇文章... 謝謝 |
回覆 |
|
XML | RSS 2.0 | RSS |
本論壇所有文章僅代表留言者個人意見,並不代表本站之立場,討論區以「即時留言」方式運作,故無法完全監察所有即時留言,若您發現文章可能有異議,請 email :[email protected] 處理。