標題:
複製貼上如何寫?
[打印本頁]
作者:
oak0723-1
時間:
2021-10-10 11:48
標題:
複製貼上如何寫?
Sub 巨集9()
'
' 巨集9 巨集
'
'
Sheets("a").Columns("H:H").Copy
Sheets("b").Range("H1").Paste
End Sub
各位好
請問各位先進
以上語法哪裡錯了?
作者:
samwang
時間:
2021-10-10 13:11
回復
1#
oak0723-1
可以錄製後再修改，謝謝
Sheets("a").Columns("H:H").Copy
Sheets("b").Columns("H:H").Select
ActiveSheet.Paste
作者:
oak0723-1
時間:
2021-10-10 13:47
請教
ActiveSheet.Paste
這段程式碼是否代表1定要開啟檔案?
作者:
samwang
時間:
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下執行都可以成功將資料複製過去
謝謝
作者:
oak0723-1
時間:
2021-10-10 17:19
請教
若不開啟sheets("b") 檔案執行..要如何寫?
作者:
samwang
時間:
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
作者:
oak0723-1
時間:
2021-10-10 20:58
上一個問題我再想想
另外請教
以下這個程式碼哪裡有錯?
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
時間:
2021-10-10 21:45
回復
7#
oak0723-1
這個問題我已自解了
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
