まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。このマクロで条件が一致したら10行コピーするへ変更するにはどのような修正を加えればよいでしょう?教えていただける方がいらっしゃいましたら宜しくお願い致します。
Sub Sample()
Dim x As Variant
Dim c As Range
Dim cols As Long
With Sheets("まとめ")
'シート1の列数取得
cols = .Cells(1, .Columns.Count).End(xlToLeft).Column
End With
With Sheets("集計")
'最初に転記領域のクリア
.Columns("B").Resize(, cols).ClearContents
'シート2のA1からA列のデータ最終行までのセルを1つずつ取り出す
For Each c In .Range("A1", .Range("A" & Rows.Count).End(xlUp))
'その値でシート1のD列をMach検索
x = Application.Match(c.Value, Sheets("まとめ").Columns("B"), 0)
If IsNumeric(x) Then 'もしあれば
'1行分を転記
c.Offset(, 2).Resize(, cols).Value = Sheets("まとめ").Cells(x, "A").Resize(, cols).Value
End If
Next
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 集計シートA列のコードと一致する右に並んだシート名(コード)の3行目から10行目をコピーして貼り付け 4 2022/08/18 15:24
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Visual Basic(VBA) 形式を選択して貼り付け 以下のコードで「元」シートと「先」シートのA列に同じ値があったら指定範囲をコ 5 2022/11/11 07:30
- Excel(エクセル) VBAのoffsetの動き方について教えてください 3 2022/11/25 23:36
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) ExcelVBAでDo Until loopのネスト、IF文を使って一致する物と一致しない物としたい 11 2022/12/24 17:46
- Excel(エクセル) マクロで最終行から上に検索を逆にしたい 1 2022/05/17 18:27
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAのチェックボックスとボタン...
-
楽天RSSからエクセルVBAを使用...
-
VBA 空白行に転記する
-
VBA別シートの最終行の次行へ転...
-
RemoveDuplicatesメソッドにつ...
-
日々の注文集計表のシートを比...
-
マクロの「SaveAs」でエラーが...
-
テキストボックスから、複数の...
-
Excelで横書き50行の漢字テス...
-
【VBA】特定の条件でセルをコピー
-
VBAでEXCELから固定長...
-
Count Ifのセルの範囲指定に変...
-
エクセルVBAで他のbookのセ...
-
マクロでシートからシートへの...
-
まとめシートから集計シートへA...
-
必要なデータを取り出す
-
あああ..ああい..ああう とい...
-
B列の最終行までA列をオート...
-
電話番号の入力方式が違うデー...
-
VBAでのリスト不一致抽出について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マクロの「SaveAs」でエラーが...
-
VBA 空白行に転記する
-
EXCELのSheet番号って変更でき...
-
マクロ実行後に別シートの残像...
-
VBA別シートの最終行の次行へ転...
-
Count Ifのセルの範囲指定に変...
-
Changeイベントで複数セルへの...
-
VBAで変数の数/変数名を動的に...
-
VBA 別ブックからの転記の高速...
-
【VBA】特定の条件でセルをコピー
-
VBA 実行時エラー1004 rangeメ...
-
楽天RSSからエクセルVBAを使用...
-
Unionでの他のシートの参照につ...
-
ExcelのVBマクロを、バックグラ...
-
複数シートの複数列に入力され...
-
100万件越えCSVから条件を満た...
-
VBA Userformで一部別シートに...
-
Excel VBA オートフィルターで...
-
Excel2013で切り取り禁止
-
VBAでEXCELから固定長...
おすすめ情報