請問不同檔案的資料複製

[leonchou]

感謝 lenchou兄回覆
不過由於檔案B的 C ,D 列資料已經存在,只需將 K 列的空白資料填入,須要怎麼修改呢?
謝謝!

基本上 3 樓的寫法是完全依照A檔的內容寫到B檔，比較乾脆也比較保險；
B檔 C,D 欄已存在的情形，則必須確保資料沒有遺漏才行。
資料量較大的時候不建議用公式解決，大量的公式運算/重算會使你感覺很慢。
尤其是跨檔案的公式連結更是麻煩一堆。

然而使用程式時，MATCH 函數在這裡確實是好用的。

Sub zz()
Set a = Workbooks("檔案A.xls").Sheets(1)
Set b = Workbooks("檔案B.xls").Sheets(1)
Set aRange = a.[A1].CurrentRegion 'A檔案A1的連續範圍
lastrow = b.[A1].End(xlDown).Row
For rb = 1 To lastrow
　　r = Application.MATCH(b.Cells(rb, 4),aRange.Columns(1),0)
　　c = Application.MATCH(b.Cells(rb, 3),aRange.Rows(1),0)
　　b.Cells(rb, 11) = a.Cells(r, c)
Next rb
End Sub

[oobird]

謝謝您費神解說，小弟還是沒學會這樣的變量，一直在用Range(.........).Copy的方式。請看例子，執行後為何會階梯式排下去呢？

[附件已被管理員刪除]

[cjc]

非常感謝 lenchou兄回覆

不過我又遇到一個問題,真不好意思
如果檔案B資料有遺漏並且有不同的物品(4,5行).是否能做什麼判斷,才能將K列的值正確填入呢?

	C	D	K
1	公司1	1	15
2	公司2	1	10
3	公司2	2	7
4
5	公司1	3
6	公司3	2	12
7	公司4	2	22

再次謝謝!

[leonchou]

非常感謝 lenchou兄回覆

不過我又遇到一個問題,真不好意思
如果檔案B資料有遺漏並且有不同的物品(4,5行).是否能做什麼判斷,才能將K列的值正確填入呢?

那就用 3 樓的程式 -- 我在 10 樓第一行就提到了。

[leonchou]

謝謝您費神解說，小弟還是沒學會這樣的變量，一直在用Range(.........).Copy的方式。請看例子，執行後為何會階梯式排下去呢？

這是欄/列寫入順序的問題。
For c 和 For r 兩個迴圈哪個在外、哪個在內，關係到先欄後列or先列後欄的順序 (簡稱循欄or循列)。
你的例子和本主題不同，是一列一列依序寫入，應該用循列 (先列後欄) 的寫入順序，也就是 For r 要在外圈。

至少心中要有一個簡單的流程順序，才不易搞錯 --
第一列 欄1 欄2 欄3 欄4 欄5 ...
第二列 欄1 欄2 欄3 欄4 欄5 ...
第三列 欄1 欄2 欄3 欄4 欄5 ...

另外 rb = rb + 1 的位置也影響到是否造成 "階梯式" 的錯誤結果。

如下修正後的代碼所示，For r 要在外圈，而且等一整列的資料寫完後才 rb + 1，繼續寫下一列。

Sub 寫入()
Set a = Sheets(1)
Set b = Sheets(2)
lastrow = a.[a6].End(xlDown).Row
rb = b.[a1].End(xlDown).Row + 1
For r = 6 To lastrow
　For c = 1 To 11
　　If a.Cells(r, 4) <> "" Then
　　　b.Cells(rb, c) = a.Cells(r, c)
　　End If
　Next c
　rb = rb + 1
Next r
End Sub

[oobird]

多謝leonchou兄，有點懂又有點不懂，一樣的程式碼不同的排列，產生不同的結果，看來小小程式學問蠻深的。小弟會好好學，因為這樣的程式比Copy&Paste的執行效率高，又不會跳動。太感謝了！