【VBA】重複データを高速にコピーする方法

手作業で重複データを探すのは時間と労力がかかります。この記事では、Excel VBAを使用して重複データを高速にコピーし、業務の効率化を図る方法を紹介します。

サンプルコード

VBA

Option Explicit
Sub CopyDuplicateData()
    Dim ws As Worksheet, lastRow As Long, i As Long, j As Long
    Dim dict As Object
    Set ws = ThisWorkbook.Sheets("データ")
    Set dict = CreateObject("Scripting.Dictionary")
    Application.ScreenUpdating = False '画面更新を停止

    With ws
        lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        For i = 2 To lastRow '1行目はヘッダーと仮定
            If dict.exists(.Cells(i, 1)) Then '重複データの検出
                .Rows(i).Copy Destination:=.Rows(dict(.Cells(i, 1)) + ws.Rows.Count) 'コピー先を指定
            Else
                dict.Add Key:=.Cells(i, 1), Item:=i '辞書に追加
            End If
        Next i
    End With

    Application.ScreenUpdating = True '画面更新を再開
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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