Excel VBAで順番に比較して違うときだけ書き出す方法（重複削除付き）

2025.06.06

こんにちは！今回は、Excel VBAを使って「順番に比較して、違うときだけ書き出す方法」について、初心者の方にもわかりやすく解説します。特に、重複データの削除に関する内容を中心にお話ししますので、ぜひ最後までご覧ください。

順番に比較して違うときだけ書き出すとは？
なぜこの処理が必要なのか？
VBAでの実装方法
重複データの削除方法
実行結果の確認
よくある質問や疑問
1. Q1: 列Aと列Bのデータが異なる場合に、どちらを優先して書き出すべきですか？
2. Q2: 重複データを削除する際に、最初の出現を残す方法はありますか？
今すぐ解決したい！どうしたらいい？
まとめ

順番に比較して違うときだけ書き出すとは？

Excelのイメージ

まず、順番に比較して違うときだけ書き出すとは、例えば以下のようなデータがあるときに、

列A	列B
りんご	りんご
ばなな	みかん
みかん	みかん

このような場合に、列Aと列Bを順番に比較し、「違う」と判断したときだけ、その行を新しい場所に書き出すという処理を行います。

なぜこの処理が必要なのか？

実務では、2つのリストを比較して、異なるデータを抽出したい場面がよくあります。例えば、商品リストと在庫リストを比較して、在庫がない商品を抽出するなどです。このような作業を手作業で行うと、時間がかかり、ミスも発生しやすくなります。そこで、VBAを使って自動化することで、効率的に作業を進めることができます。

VBAでの実装方法

では、実際にVBAを使って順番に比較して違うときだけ書き出す方法を見ていきましょう。

まず、Excelを開き、VBAエディタを起動します。
新しいモジュールを挿入し、以下のコードを入力します。

Sub CompareAndExtract()

    Dim ws As Worksheet

    Dim lastRowA As Long, lastRowB As Long

    Dim i As Long, j As Long

    Dim outputRow As Long

    Set ws = ThisWorkbook.Sheets("Sheet1")

    lastRowA = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    lastRowB = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row

    outputRow = 1

    For i = 1 To lastRowA

        For j = 1 To lastRowB

            If ws.Cells(i, "A").Value <> ws.Cells(j, "B").Value Then

                ws.Cells(outputRow, "C").Value = ws.Cells(i, "A").Value

                outputRow = outputRow + 1

            End If

        Next j

    Next i

End Sub

このコードでは、Sheet1の列Aと列Bを順番に比較し、異なる値があった場合に列Cに書き出しています。

重複データの削除方法

次に、書き出したデータから重複を削除する方法を紹介します。

先ほどのコードの最後に、以下のコードを追加します。

Sub RemoveDuplicates()

    Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("Sheet1")

    ws.Range("C1:C" & ws.Cells(ws.Rows.Count, "C").End(xlUp).Row).RemoveDuplicates Columns:=1, Header:=xlNo

End Sub

このコードでは、列Cのデータから重複を削除しています。