【エクセルマクロ】セルの塗りつぶしを解除する(動画あり)

エクセルマクロで、セルの塗りつぶしを解除するVBAコードをご紹介します。

セルを「塗りつぶしなし」に設定します。

セルの塗りつぶしを解除する

以下のExcelVBAを実行すると、セルの塗りつぶしを解除します。

Sub セルの塗りつぶしをクリアする()
 
    Dim MyRange As Range
 
    '指定範囲
    For Each MyRange In Range("A1:F21")
 
        'セルの背景色に色がついていたら
        If MyRange.Interior.Color <> xlNone Then
         
            'セルを色なしに設定する
            MyRange.Interior.Color = xlNone
 
        End If
    Next
 
End Sub

マクロ実行後

背景色がついているセルについて、一括で「色なし」に設定しました。

※条件付き書式で色がついている場合は、「塗りつぶしなし」になりません。

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

【エクセルマクロ】セルの色を置換する：使用例３選

...

kirinote.com

2022.12.04