【エクセルマクロ】 隣のセルと同じ値に色付け：自動化

エクセルマクロで、隣のセルと同じ値に色付けするVBAコードをご紹介します。

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

隣のセルと同じ値に色付け

以下のExcelVBAを実行すると、隣のセルと値が等しい場合に色付けします。

Sub 隣のセルと同じ値に色付け()
  
Dim i As Long
Dim LastRow As Long
    
    '最終行を取得
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    '2行目から最終行までループ
    For i = 2 To LastRow
        
        'A列とB列が同じ値だったら
        If Cells(i, 1) = Cells(i, 2) Then
        
            'A列とB列の背景色に色を塗る
            Cells(i, 1).Interior.Color = 65535
            Cells(i, 2).Interior.Color = 65535
        End If
    
    Next i
  
End Sub

 
A列とB列に同じ値が入力されている場合に、色をつけます。

 
 
この記事がお役に立ちますと幸いです。
 
・【エクセルマクロ】色付けを自動化する使用例まとめ
 

【エクセルマクロ】色付け処理を自動化する：超便利32選

...

kirinote.com

2022.12.04