|
ブックAAWとブックBBがアクティブな状態です。
AAWブックのシート「残高表W」をBBブックの「残高表」に貼り付け
AAWブックのシート「総括表W」をBBブックの「総括表」に貼り付けています。
ただ貼り付けられたエリアが「青色」で残るものですから
それぞれのシートのA1を選択したく、最下行3行を付け加えましたが
エラーになります。
コードのミスと思いますが、どのように直せばよいのでしょうか?
アドバイスお願いします。
(また、もっとシンプルなコードの書き方がありましたらアドバイスお願い
します)
Windows("AAW.xls").Activate
With Sheets("残高表W")
.Range("C6:J222").Copy
End With
Windows("BB.xls").Activate
With Sheets("残高表")
ActiveSheet.Paste .Range("C6")
With .Range("C6:J220")
.Copy
.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End With
End With
Windows("AAW.xls").Activate
With Sheets("総括表W")
.Range("B6:J34").Copy
End With
Windows("BB.xls").Activate
With Sheets("総括表")
ActiveSheet.Paste .Range("B6")
With .Range("B6:J34")
.Copy
.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End With
End With
'With Sheets(Array("残高表", "総括表")).Range("A1")
' .Select
'End With
ActiveWorkbook.Save
|
|