【VBA】重複データをバックグラウンドでコピーする方法

日々の業務の中で、同じデータを何度も手動でコピーするのは効率が悪いですよね。特に大量のデータがある場合、間違いも増えます。この記事では、重複するデータだけを選んで自動的にコピーするVBAマクロを作成します。これにより、作業時間を大幅に短縮できます。

サンプルコード

VBA

Option Explicit
Sub DuplicateDataCopy()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Dim lastRow As Long, i As Long, j As Long
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    Application.ScreenUpdating = False
    ' データ範囲の最終行を取得
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    For i = 2 To lastRow ' 偽装データとしてA列から始める
        If Not dict.exists(ws.Range("A" & i).Value) Then
            dict.Add ws.Range("A" & i).Value, i
        End If
    Next i
    
    For j = 2 To lastRow ' 重複するデータをコピー
        If dict.exists(ws.Range("A" & j).Value) And dict(ws.Range("A" & j).Value) <> j Then
            ws.Range("B" & j).Copy Destination:=ws.Cells(j, 3)
        End If
    Next j
    
    Application.ScreenUpdating = True ' バックグラウンド処理終了後、画面更新を再開
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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