Dim LastRow As Long
Dim r As Integer
'クリア
Sheets("まとめ").Range("A5").CurrentRegion.Offset(1, 0).ClearContents'まとめシートのタイトル行を取得する
r = Sheets("まとめ").Range("B5").Row
'まとめシートへデータを書き写す
LastRow = Worksheets("データ").Cells(Rows.Count, 1).End(xlUp).RowDim i As Integer
For i = 2 To LastRow
If Sheets("データ").Range("A" & i).Value = _
Sheets("まとめ").Range("C2").Value Then
'タイトル行に1を足す→タイトル行の下に入力
r = r + 1
Sheets("まとめ").Range("B" & r & ":" & "D" & r).Value = _Sheets("データ").Range("A" & i & ":" & "C" & i).Value
End If
Next
まとめシートRange("C2")に一致するデータを、データシートから転記する。
まとめシート データシート