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

毎日の業務で同じ情報を何度も入力しなければならない経験はありませんか？手作業は時間がかかるだけでなく、ミスのリスクも高まります。この記事では、重複データを自動的に置換し、エラー処理まで含めて効率化するVBAマクロを作成します。

サンプルコード

VBA

Option Explicit
Sub ReplaceDuplicateData()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    Application.ScreenUpdating = False '画面更新を停止
    On Error GoTo ErrorHandler 'エラー処理の開始
    
    Dim lastRow As Long, i As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row 'データのある最終行を取得
    
    For i = lastRow To 2 Step -1 '最終行から先頭に向かってループ
        If Application.WorksheetFunction.CountIf(Range("A:A"), ws.Cells(i, 1)) > 1 Then '重複チェック
            ws.Cells(i, 1).Value = "置換後の値" '重複があれば置換
        End If
    Next i
    
    Application.ScreenUpdating = True '画面更新を再開
    MsgBox "処理が完了しました。", vbInformation 'メッセージボックスで通知
    Exit Sub 'エラーなしの場合の終了
ErrorHandler:
    MsgBox Err.Description, vbExclamation 'エラーメッセージ表示
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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