【VBA】重複データを配列を使って高速に取得する方法

日々の業務で大量のデータを取り扱う際、重複データの検出は重要な作業です。手作業では時間がかかりますが、この記事では配列を使用した高速なVBAマクロを紹介します。

サンプルコード

VBA

Option Explicit
Sub GetDuplicateData()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("データ")
    Dim lastRow As Long, i As Long, j As Long
    Dim dataArr() As Variant
    Dim duplicates() As String
    
    Application.ScreenUpdating = False '画面更新を停止
    
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    ReDim dataArr(1 To lastRow)
    For i = 1 To lastRow
        dataArr(i) = ws.Cells(i, 1).Value 'データ配列に格納
    Next i
    
    Dim dict As Object: Set dict = CreateObject("Scripting.Dictionary")
    ReDim duplicates(0 To lastRow)
    For i = LBound(dataArr) To UBound(dataArr)
        If Not IsEmpty(dict(CStr(dataArr(i)))) Then '重複データの検出
            duplicates(i) = dataArr(i) '重複データを配列に格納
        Else
            dict(CStr(dataArr(i))) = 1 '辞書に追加
        End If
    Next i
    
    ws.Range("B2").Resize(UBound(duplicates), 1).Value = Application.Transpose(Application.Index(duplicates, Evaluate("ROW(1:" & UBound(duplicates) & ")"))) '結果をシートに出力
    
    Set dict = Nothing
    Application.ScreenUpdating = True '画面更新を再開
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

シート名や列番号が正しいか確認してください。