エクセルVBAのCountIf関数で重複データを見つけ出し、一目で分かるように赤塗りにする方法｜DAD UNION

エクセルを使ったデータ分析は、多くのビジネスシーンで欠かせません。しかし、大量のデータの中から重複した情報を見つけ出すのは一苦労。今回は、そんな時に役立つ、エクセルVBAを使って重複データを一発で赤塗りにする方法を紹介します。これでデータの整理が一段と効率的に！

Contents

赤塗りにするとはどういうことか？
VBAコードの解説
実際に試してみよう
まとめ

赤塗りにするとはどういうことか？

まずは、具体的にどのようにエクセル表が変化するのかを見てみましょう。ここでは、A1からE2の範囲に重複したデータが入力された場合、そのセルが赤く塗りつぶされるようにします。

エクセル表内の入力内容が重複したセルを赤塗りにするエクセルイメージ

この視覚的な変化は、重複データの特定を迅速に行うのに非常に有効です。

VBAコードの解説

次に、この機能を実現するためのVBAコードを見ていきましょう。このコードは、シート内のデータが変更された際に動作します。CountIf関数を使って、指定した範囲内で同じ値が存在するかチェックし、重複があればそのセルを赤くします。

ここで大切なのは、どのようにVBAを書けば、効率的かつ正確に重複を検出できるかという点です。ループ処理と条件分岐を駆使し、シンプルながらも強力なコードを作成しています。

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim h As Long
    Dim i As Long
    
    For h = 0 To 1
        For i = 1 To 5
            If WorksheetFunction.CountIf(Range("A1:E2"), Cells(1 + h, i)) > 1 Then
                Cells(1 + h, i).Interior.ColorIndex = 3
            Else
                Cells(1 + h, i).Interior.ColorIndex = 0
            End If
        Next i
    Next h
    
End Sub

Worksheet_Change()はエクセルシート内で変更があった場合の処理です。CountIfを使ってA1～E2範囲内（A1:E2）で同じ文字があった場合、そのセルを赤塗りにし、それ以外はセルの塗りを無しにする処理を記述しました。