【エクセルマクロ】色付きセルの行削除:自動化2選(動画あり)

VBA-色付きセルの行削除-アイキャッチ ExcelVBA

エクセルマクロで、色付きセルの行を削除するVBAコードをご紹介します。

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

色付きセルの行削除(単一列)

以下のExcelVBAを実行すると、色の付いているセルの行を一括削除します。


Sub 色つきセルの行をまとめて削除()

Dim LastRow As Long
Dim i As Long

    Application.ScreenUpdating = False

    With ActiveSheet
    
        '最終行取得
        LastRow = .Cells(Rows.Count, 1).End(xlUp).Row

        '最終行から先頭へループ
        For i = LastRow To 1 Step -1

            'セルに色がついていたら行削除
            If .Cells(i, 5).Interior.ColorIndex <> xlNone Then
                .Rows(i).Delete
            End If
        Next
    End With

    Application.ScreenUpdating = True

End Sub

 

マクロ実行後

E列でセルが着色されている行を、一括削除します。


 

色付きセルの行削除(複数列)

以下のExcelVBAを実行すると、色が付いているセルの行を一括削除します。


Sub 色つきセルの行を自動削除()

Dim LastRow As Long
Dim LastClm As Long
Dim i As Long
Dim j As Long

    Application.ScreenUpdating = False

    With ActiveSheet

        '最終行・最終列を取得
        LastRow = .Cells(Rows.Count, 1).End(xlUp).Row
        LastClm = .Cells(1, Columns.Count).End(xlToLeft).Column
    
        '1~最終列までループ
        For j = 1 To LastClm

            '最終行から先頭へループ
            For i = LastRow To 1 Step -1

                'セルに色がついていたら行削除
                If .Cells(i, j).Interior.ColorIndex <> xlNone Then
                    .Rows(i).Delete
                End If
            Next
        Next j
    End With

    Application.ScreenUpdating = True

End Sub

 

マクロ実行後

A~E列の中で、色がついている行を自動削除します。


 
※条件付き書式で色がついているセルは削除されません。
 

【エクセルマクロ】特定文字を含む行以外を削除:3選(動画あり)
...

動画の解説

動画ではコードの作り方・動作を確認できます。

クリックすると、このブログ上で再生されます^^

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

「プログラマーの本気がExcelを覚醒させる 超絶ExcelVBA」
ExcelVBAでワンランクアップできる書籍
具体的で応用が利く技をたくさん掲載