|
tanpopoさん にぃさん おはようございます
にぃさん からすでにコメントありますが、書いちゃったので
投稿します。
>> 'With Sheets(Array("残高表", "総括表")).Range("A1")
>> ' .Select
>> 'End With
Sheets(Array("残高表", "総括表")).Select
Sheets("残高表").Activate
Range("A1").Select
マクロの記録では、上記の感じです。
tanpopoさんのコードの上半分
Dim BB_Z As Worksheet
Set BB_Z = Workbooks("BB.xls").Sheets("残高表")
Windows("AAW.xls").Activate
With Sheets("残高表W")
.Range("C6:J222").Copy BB_Z.Range("C6")
End With
With BB_Z.Range("C6:J220")
.Value = .Value
End With
このようにまとめれます。
* 確認 コピペした範囲の値だけを貼り付けたいのですよね?
このまとめたコードなら、その3行のコードは必要なくなります。
|
|