エクセルで２つの表から「合致する品目」「合致しない品目」を、抜き出す方法は？

質問

• エクセルで２つの表から「合致する品目」「合致しない品目」を、抜き出す方法について紹介します。
• エクセルのイベント来場者リスト（名前だけ）リストＡとOBリスト（名前だけ）リストＢという２つのリストがあります。この２つのリストを比較し、合致する品目と合致しない品目を抜き出す方法について解説します。
• エクセルを使って、イベント来場者リスト（名前だけ）リストＡからOBリスト（名前だけ）リストＢと合致する項目と合致しない項目を簡単に抽出する方法について説明します。

回答No.4

ka_na_de

こんにちは。

VBAによる一例です。

前提として、
A列の２行目以降：　イベント来場者リスト（名前だけ）
B列の２行目以降：　OBリスト（名前だけ）
C列の２行目以降：　リストＡの中で、Ｂと合致する項目を抽出
D列の２行目以降：　リストＡの中で、Ｂと合致しない項目を抽出

Sub test()
　　Dim myRng1 As Range, myRng2 As Range, c As Range
　　Dim i As Long, j As Long
　　Dim myAns As Variant

　　Set myRng1 = Range("A2", Cells(Rows.Count, "A").End(xlUp))
　　Set myRng2 = Range("B2", Cells(Rows.Count, "B").End(xlUp))

　　i = 2:　　j = 2
　　For Each c In myRng1
　　　　myAns = Application.Match(c.Value, myRng2, 0)
　　　　If IsError(myAns) = False Then
　　　　　　Cells(i, "C").Value = c.Value
　　　　　　i = i + 1
　　　　Else
　　　　　　Cells(j, "D").Value = c.Value
　　　　　　j = j + 1
　　　　End If
　　Next c

　　Set myRng1 = Nothing
　　Set myRng2 = Nothing
End Sub