複製貼上如何寫?

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

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

複製貼上如何寫?

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

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

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

樓主熱帖

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

2^#

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

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

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

3^#

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

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

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

4^#

發表於 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

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

5^#

發表於 2021-10-10 21:45 | 顯示全部帖子

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