返回列表 上一主題 發帖

複製貼上如何寫?

複製貼上如何寫?

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

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

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

回復 1# oak0723-1

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

TOP

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

TOP

本帖最後由 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下執行都可以成功將資料複製過去
謝謝

TOP

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

TOP

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

TOP

上一個問題我再想想
另外請教
以下這個程式碼哪裡有錯?
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

TOP

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

TOP

        靜思自在 : 有時當思無時苦,好天要積雨來糧。
返回列表 上一主題