如何將選取的欄位至不同檔案的最後一列

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-5-20 18:52 | 只看該作者

請問位大大...將AAA.XLS檔裡Shee1選取複製A1:E1
至每次複製到BBB.XLS檔裡Shee1固定A欄的最後一列..

感謝

　暱稱: 阿軒

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

2^#

發表於 2014-5-20 20:53 | 只看該作者

回復 1# xlarge16803

未開啟bbb.xls直接copy的寫法

Sub test()
Workbooks("aaa.xls").Sheets("sheet1").Range("a1:e1").Copy
Workbooks.Open ("d:\bbb.xls")
Workbooks("bbb.xls").Sheets("sheet1").Range("a65536").End(3).Offset(1, 0).Select
ActiveSheet.Paste
End Sub

複製代碼

在bbb有開啟的情形下的寫法

Sub test2()
Workbooks("aaa.xls").Sheets("sheet1").Range("a1:e1").Copy
Workbooks("bbb.xls").Activate
Workbooks("bbb.xls").Sheets("sheet1").Range("a65536").End(3).Offset(1, 0).Select
ActiveSheet.Paste
End Sub

複製代碼

路徑請自行修改

3^#

發表於 2014-5-21 11:49 | 只看該作者

感謝大大教導...己完成了
又學會一種新的語法

靜思自在 : 一個人不怕錯，就怕不改過，改過並不難。