08/01/20 00:16:46
>>400
47個あるシートから1つのdataと言う名前のシートに集計したい場合は多分これです。
Sub test()
Dim ws As Worksheet
Dim r As Range
Dim rr As Range
With Worksheets("data")
Set rr = .Range("A1")
For Each ws In Worksheets
If ws.Name <> .Name Then
Set r = ws.Range("A1").CurrentRegion
rr.Resize(r.Rows.Count, r.Columns.Count).Value = r.Value
Set rr = rr.Offset(r.Rows.Count)
End If
Next
End With
End Sub