|
▼MLC さん、 Kein さん:
こんにちは。
ちょっと噛み合ってないような気がするので確認です。
自分の提示した
> For Each Sht In ActiveWorkbook.Sheets
> With Sht
> 'ここに処理が入ります
> Debug.Print .Name
> End With
> Next
は現在アクティブになったいるブックの全てのシートの名前を
イミディエトウィンドウに表示するコード、
Kein さんのご提示された
> For i = 65 To 90
> Worksheets(Chr(i)).Range("J3:Q28") _
> .Copy Sh.RAnge("A65536").End(xlUp).Offset(2)
> Next i
の部分は「Chr(65)…"A"」〜「Chr(90)…"Z"」までのシートに対して処理をするコードです。
と言う事で、
1) 「集計」という名前のシートを用意する。
2) 「集計」以外のシートに対して
3) 「Worksheets(Chr(i)).Range("J3:Q28") _
.Copy Sh.RAnge("A65536").End(xlUp).Offset(2)」
の様な処理をする。(そのままじゃだめですよ)
という感じの流れのコードになれば良いと思われます。
|
|