【VBA】重複データをエラー処理付きで抽出する方法

日々の業務で大量のデータから重複した情報を手作業で探すのは大変です。この記事では、VBAを使って簡単に重複データを抽出し、エラー処理も含めて効率的な業務改善を行います。

サンプルコード

VBA

Option Explicit
Sub ExtractDuplicateData()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' エラー処理の開始
    On Error GoTo ErrorHandler
    
    Application.ScreenUpdating = False
    
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    Dim i As Long
    For i = 2 To lastRow ' 假设数据从第二行开始，第一行为标题行
        If Not dict.exists(ws.Cells(i, 1).Value) Then
            dict.Add ws.Cells(i, 1).Value, i
        Else
            ' 重複データを処理する
            ws.Cells(dict.Item(ws.Cells(i, 1).Value), 2).Interior.Color = vbYellow ' 重複元セルの背景色を黄色に変更
            ws.Cells(i, 2).Interior.Color = vbRed ' 重複セルの背景色を赤に変更
        End If
    Next i
    
    Application.ScreenUpdating = True
    MsgBox "処理が完了しました。", vbInformation
    Exit Sub
ErrorHandler:
    MsgBox Err.Description, vbCritical
End Sub

よくある質問

Q 元に戻せますか？

VBAの実行結果は「元に戻す」が効きません。必ずバックアップを取ってから実行してください。

Q エラーが出たら？

シート名や列番号が正しいか確認してください。それでも問題がある場合は、メッセージボックスに表示されたエラーメッセージを参考にしてください。