|
シート「1」から「31」までの31枚のシートがあります。
各シートのA2〜E86までをコピーして
シート「データ」に上から順番(85行おき)に貼付けしたいと思っています。
「1」のシートA2〜E86を「データ」シートA2〜E86に貼付け
「2」のシートA2〜E86を「データ」シートA87〜E171に貼付け
「3」のシートA2〜E86を「データ」シートA172〜E256に貼付け
「31」のシートまで連続して処理を行いたいと思っています。
最初に書いた記述が下記のような記述になります。
Sheets("1").Select
Range("A2:E86").Select
Selection.Copy
Sheets("データ").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("2").Select
Range("A2:E86").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("データ").Select
Range("A87").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("3").Select
Range("A2:E86").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("データ").Select
Range("A172").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
この処理を31回分記述しているのですが
これを一つにまとめるにはどのように記述すればよいのでしょうか?
先ほどの質問の応用編だと思うのですが
どう記述したらよいのかわかりません。
再度宜しくお願いしますm(。_。;))m ペコペコ…
|
|