複製貼上如何寫?

oak0723-1

Sub 巨集9()
'
' 巨集9 巨集
'

'
    Sheets("a").Columns("H:H").Copy
    Sheets("b").Range("H1").Paste
End Sub

各位好
請問各位先進
以上語法哪裡錯了?

samwang

回復 1# oak0723-1

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

oak0723-1

請教
ActiveSheet.Paste
這段程式碼是否代表1定要開啟檔案?

samwang

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

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

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

oak0723-1

請教
若不開啟sheets("b") 檔案執行..要如何寫?

samwang

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

oak0723-1

上一個問題我再想想
另外請教
以下這個程式碼哪裡有錯?
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("從01(接收)").Range("a7:a100000").Copy
    Sheets("比對").Select
    Range("I3").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub

oak0723-1

回復 7# oak0723-1
這個問題我已自解了