複製貼上如何寫?

1^# 跳轉到 »

發表於 2021-10-10 13:11 | 顯示全部帖子

回復 1# oak0723-1

可以錄製後再修改，謝謝
Sheets("a").Columns("H:H").Copy
Sheets("b").Columns("H:H").Select
ActiveSheet.Paste

2^#

發表於 2021-10-10 14:12 | 顯示全部帖子

本帖最後由 samwang 於 2021-10-10 14:18 編輯

請教
ActiveSheet.Paste
這段程式碼是否代表1定要開啟檔案?
oak0723-1 發表於 2021-10-10 13:47

一定要在開啟sheets("b") 下執行

另外，也可改為Sheets("a").Columns("H:H").Copy Sheets("b").Columns("H:H")
這樣在就可以在那個檔案開啟下的任何一個sheets下執行都可以成功將資料複製過去
謝謝

3^#

發表於 2021-10-10 19:44 | 顯示全部帖子

回復 5# oak0723-1
是這樣嗎?
With Workbooks.Open("D:\test.xlsm")
Sheets("a").Columns("H:H").Copy Sheets("b").Columns("H:H")
.Close
End With

靜思自在 : 多做多得。少做多失。