まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ

まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。このマクロで条件が一致したら10行コピーするへ変更するにはどのような修正を加えればよいでしょう？教えていただける方がいらっしゃいましたら宜しくお願い致します。

Sub Sample()
Dim x As Variant
Dim c As Range
Dim cols As Long
With Sheets("まとめ")
'シート１の列数取得
cols = .Cells(1, .Columns.Count).End(xlToLeft).Column
End With
With Sheets("集計")
'最初に転記領域のクリア
.Columns("B").Resize(, cols).ClearContents
'シート２のA1からA列のデータ最終行までのセルを１つずつ取り出す
For Each c In .Range("A1", .Range("A" & Rows.Count).End(xlUp))
'その値でシート１のD列をMach検索
x = Application.Match(c.Value, Sheets("まとめ").Columns("B"), 0)
If IsNumeric(x) Then 'もしあれば
'１行分を転記
c.Offset(, 2).Resize(, cols).Value = Sheets("まとめ").Cells(x, "A").Resize(, cols).Value
End If
Next
End With
End Sub

No.1 ベストアンサー 回答者： 初心者ですが何か。 回答日時： 2022/08/30 15:32

転記元を１０行にするなら、

＞ Sheets("まとめ").Cells(x, "A").Resize(, cols).Value

Sheets("まとめ").Cells(x, "A").Resize(10 , cols).Value

Resizeを変更すれば良いと思いますが、転記先もResizeで行けるでしょうけど代入した後で影響があるのかどうか（他のデータは１０行分の空きがある？）でしょうか。

この回答へのお礼

ありがとうございます

お礼日時：2022/08/30 16:22