|
▼tanpopo さん:
こんにちは!
まず質問内容としては
> 'With Sheets(Array("残高表", "総括表")).Range("A1")
> ' .Select
> 'End With
の部分をこちらに変えてください。
Application.CutCopyMode = False
Dim Ws As Worksheet
For Each Ws In Sheets(Array("残高表", "総括表"))
Ws.Activate
Ws.Range("A1").Select
Next
できたらDim文は先頭に記載していただけると助かります。
意味としてはシートは複数Select出来てもRangeは複数Select出来ませんので
一つ一つ指定してあげる必要があります。
>Windows("AAW.xls").Activate
> With Sheets("残高表W")
> .Range("C6:J222").Copy
> End With
こちらの4行ですが、Withの意味があまりないような気がします。
Withを多様したければ下記のようなほうがわかりやすいでしょう。
With Workbooks("AAW.xls")
.Activate
.Sheets("残高表W").Range("C6:J222").Copy
End With
またこの構文ですが、.Range("C6:J220")をコピーして同じ場所にペースト
してませんか?
これで問題なければいいのですが、少し気になったもので。
> With .Range("C6:J220")
> .Copy
> .PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
> False, Transpose:=False
> End With
|
|