ＶＢＡ なんですが

質問

ＶＢＡ　なんですが
すべてのワークシートを順番に選択して
指定した範囲をコピーし『まとめ』と言う別のシートに貼り付けたいのですが
どうしたらいいのかわかりません。
それらしいのは考えたのですが

Set sh = Worksheets(sh.Name)でエラーになります。
頭がいいかた教えてください。

　　Dim sh3 As Worksheet
Dim sh As Worksheet
Dim en As Long

Set sh3 = Worksheets("まとめ")

For Each sh In ActiveWorkbook.Worksheets

If sh.Name <> "まとめ" Then

en = sh.UsedRange.Rows.Count

Set sh = Worksheets(sh.Name)

sh.Range(Cells(2, 1), Cells(en, 10)).Copy

回答No.3

watabe007 · ベストアンサー

>アクティブのシートを範囲を決めてコピーする方法なんですが
>それを別のシートに貼り付け
そのままコードにすると
ActiveSheet.Range("範囲1").Copy Worksheets("別のシート").Range("範囲2")
範囲1、範囲2、別のシート名　は、貴方しか解りませんよ
ただ推測すると、このような事をしたいのではと？
参考に
Sub Test()
　　Dim sh3 As Worksheet
　　Dim sh As Worksheet
　　Dim en As Long

　　Set sh3 = Worksheets("まとめ")
　　For Each sh In ActiveWorkbook.Worksheets
　　　　If sh.Name <> "まとめ" Then
　　　　　　en = sh.UsedRange.Rows.Count
　　　　　　sh.Range(sh.Cells(2, 1), sh.Cells(en, 10)).Copy _
　　　　　　　　sh3.Cells(Rows.Count, "A").End(xlUp).Offset(1)
　　　　End If
　　Next
End Sub

お礼

ほんとうにありがとうござます。

完璧な理想の答えです。

watabe007さん　またＶＢＡで分からないことがありましたら
教えてください。

本当に助かりました。

回答No.2

watabe007

>Cellsプロパティにもシート(sh)を参照と言うのはどのようなことですか？

sh.Range(Cells(2, 1), Cells(en, 10)).Copy
これだと　shシートのRang(を指していますが
sh.Range(Cells
Rangeの中のCellsプロパティはシートを指定していないのでアクティブシートを指しています

補足

全てのシートを順番に読んでいき

アクティブのシートを範囲を決めてコピーする方法なんですが

それを別のシートに貼り付け

また次のシートを読むプログラムを教えてください。

For Each sh In ActiveWorkbook.Worksheets
　　If sh.Name <> "まとめ" Then
　　　　en = sh.UsedRange.Rows.Count
　　　　sh.Range(sh.Cells(2, 1), sh.Cells(en, 10)).Copy

回答No.1

watabe007

Dim sh3 As Worksheet
Dim sh As Worksheet
Dim en As Long

Set sh3 = Worksheets("まとめ")
For Each sh In ActiveWorkbook.Worksheets
　　If sh.Name <> "まとめ" Then
　　　　en = sh.UsedRange.Rows.Count
　　　　sh.Range(sh.Cells(2, 1), sh.Cells(en, 10)).Copy

Cellsプロパティにもシート(sh)を参照してやる必要があります。

補足

ありがとうございます。
ＶＢＡが不慣れでして
Cellsプロパティにもシート(sh)を参照と言うのはどのようなことですか？
すいません。返事お願いします。