マクロで全てのシートで条件を満たすシートに行を挿入するにはどうしたらいいですか
マクロ初心者です。自分でも作ってみたのですが、なかなか思うようにいかず困っています。
book内のシート3つ目から最後のシートで、条件に一致するシートの特定位置に行を挿入するということがしたいのですが。
条件とは、1列目の最後の行に「合計」と記入されていれば、行を4行挿入し、上の書式をコピーするというものです。
下記に記しているマクロは、シートを指定した場合には動くのですが、これにシートをnとして、FOR...Nextを付け加えてシートを順番に参照させようとしても、うまくいきません。
Sub 行挿入sample3()
With Sheets("10007")
For i = 7 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(i + 1, 1) = "" Then
Exit For
ElseIf .Cells(i + 1, 1) = "合計" Then
Range(Cells(i + 1, 1), Cells(i + 4, 1)).Select
Selection.EntireRow.Insert
Range(Cells(i, 1), Cells(i, 3)).Select
Selection.Copy
Range(Cells(i + 1, 1), Cells(i + 4, 3)).PasteSpecial xlPasteFormats
End If
Next i
End With
End Sub
知識をお持ちの方、教えていただけるととても助かります。よろしくお願いします。
お礼
さっそく回答ありがとうございます。 移動のマクロもわからなかったので勉強になりました。