iT邦幫忙

0

每日報表複製到總表,用錄製巨集的方式,但複製資料也限這次,無法往下複製.要如何修改成可以往下貼上.

(https://ithelp.ithome.com.tw/upload/images/20211206/201445649fEvOAQURa.png)
Sub TEST()
'
' TEST 巨集
'
' 快速鍵: Ctrl+Shift+A
'
Range("A5:E12").Select
Selection.Copy
Windows("2021-製造各部門效能總表-11月 - 複製.xls").Activate
Sheets("SMT").Select
Range("B290").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Windows("11-17 - 複製.xls").Activate
Range("G5:Z12").Select
Application.CutCopyMode = False
Selection.Copy
Application.CutCopyMode = False
Selection.Copy
Windows("2021-製造各部門效能總表-11月 - 複製.xls").Activate
Range("H290").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Windows("11-17 - 複製.xls").Activate
Range("A15:E22").Select
Application.CutCopyMode = False
Selection.Copy
Windows("2021-製造各部門效能總表-11月 - 複製.xls").Activate
ActiveWindow.SmallScroll Down:=9
Range("B299").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Windows("11-17 - 複製.xls").Activate
Range("G15:Z22").Select
Application.CutCopyMode = False
Selection.Copy
Windows("2021-製造各部門效能總表-11月 - 複製.xls").Activate
Range("H299").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Windows("11-17 - 複製.xls").Activate
End Sub

1 個回答

1
blanksoul12
iT邦新手 3 級 ‧ 2021-12-07 09:07:16

第一段 copy & paste

Sheets("SMT").Select
Range("B290").Select

變成

Sheets("SMT").Select
worksheets("SMT").[b1048576].end(xlup).offset(1,0).select

但我見你有 B column 又有 H column, H column 的自己試試吧

我要發表回答

立即登入回答