各シートで条件にあったとき、セルをコピーして上から順に張り付けるマクロ

質問

いつもお世話になっております。
前回、条件に合致した時、指定セルを指定シートに上から順番に張り付けるという質問で、助けていただいたものです。

今回、またまた似たような内容で質問させていただきます。
各シート（随時増えていきます）のf2に"継続中"という文字が入っているとき、そのシートのb1:k2のセルを、"トップページ"シートのＡ1から順に貼り付けて並べるマクロを考えています。
何卒ご教示下さいますよう、お願いいたします。

回答No.1

merlionXX · ベストアンサー

前回の質問を見てませんが、随時シートが増えるたび自動実行なんてことじゃないですよね？
現在すでにあるシートについて実行する場合の一例です。

Sub test01()
Dim i As Integer, n As Integer
i = 1
For n = 2 To Worksheets.Count
If Worksheets(n).Range("F2") = "継続中" Then
Worksheets(n).Range("B1:K2").Copy
Worksheets(1).Cells(i, 1).PasteSpecial
Application.CutCopyMode = False
i = i + 2
End If
Next n
End Sub

お礼

merlionXX様

このたびは、お忙しいところ、誠にありがとうございました！！
イメージ通りにできました！
すばらしい。
本当に感謝です！