【エクセルマクロ】複数シートの指定行を削除:コピペで使えるコード

ExcelVBA-複数シートの指定行を削除-アイキャッチ エクセルマクロで効率化する

エクセルマクロで、複数シートの指定行を一括削除するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
ぜひお試しください!
 

複数シートの指定行を削除

以下のExcelVBAを実行すると、特定シート以外の複数シートについて行を削除します。


Sub 複数シートの特定行をまとめて削除()

    Dim objSheet As Worksheet

    '全シートループ
    For Each objSheet In ThisWorkbook.Worksheets
    
        '対象外のシート以外
        If objSheet.Name <> "削除ダメ" Then
    
            'シートの指定行を削除
            objSheet.Select
            Rows("5:10").Delete
        
        End If
    Next

End Sub

 

マクロ実行前

各シートにデータが入力してある状態です。

※削除対象行がわかりやすいように、手作業で色付けしています。


 

マクロ実行後

複数シートの指定行(5~10行目)を自動削除します。


 
この記事がお役に立ちますと幸いです。
 

【エクセルマクロ】ワークシート処理を自動化する:超便利33選
...

 

「ノンプログラマーのGAFA部長が教えるExcelマクロ入門」
挫折につながるエラーの原因も先回りして丁寧に解説
マクロのたった1割を学べばエクセル業務の9割以上は効率化できる