(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