エクセル2007で重複しない行を抜き出す

質問

シート１、シート２には列行ともびっしりデータが入っています。
しかし、シート１のＡＪ行とシート２のＨ行は同じ発注コードが記載されている行であり、
シート１のＡＪ行とシート２のＨ行を比較して、一致しないシート１の行を抜き出しシート３に転記したいのです。
どのような方法が考えられるでしょうか。

回答No.3

tom04

こんばんは！
VBAになってしまいますが、一例です。
Sheet1のデータは1行目からあるとします。

Alt＋F11キー　→　メニュー　→　挿入　→　標準モジュール　→　VBE画面に
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub Sample1() 'この行から
Dim i As Long, cnt As Long, c As Range
Dim wS1 As Worksheet, wS2 As Worksheet, wS3 As Worksheet
Set wS1 = Worksheets("Sheet1")
Set wS2 = Worksheets("Sheet2")
Set wS3 = Worksheets("Sheet3")

Application.ScreenUpdating = False
wS3.Cells.ClearContents
For i = 1 To wS1.Cells(Rows.Count, "AJ").End(xlUp).Row
Set c = wS2.Range("H:H").Find(what:=wS1.Cells(i, "AJ"), LookIn:=xlValues, lookat:=xlWhole)
If c Is Nothing Then
cnt = cnt + 1
wS1.Rows(i).Copy wS3.Cells(cnt, 1)
End If
Next i
Application.ScreenUpdating = True
End Sub 'この行まで

※　関数でないので、Sheet1・Sheet2のデータ変更があってもSheet3に反映されません。
データ変更があるたびにマクロを実行する必要があります。m(_ _)m

回答No.2

malixiang

シート1のAJ列にある発注コードをKeyにしてシート2のH行の発注コードとマッチングさせます。

シート3のA列にシート1のコードをコピーするか A1セル =Sheet1!AJ1で表示させます。
(以降のセルに計算式をコピーします。)

シート3のB1セルに =A1=VLOOKUP(A1,Sheet2!$H:$H,1,FALSE)
(以降のセルに計算式をコピーします。)

答えがTRUEなら一致、FALSEなら不一致です。

IFやを使って一致は○、不一致なら×と表示させるなら
=IF(A1=VLOOKUP(A1,Sheet2!$H:$H,1,FALSE)=TRUE,"○","×")

不一致のみ表示なら
=IF(A1=VLOOKUP(A1,Sheet2!$H:$H,1,FALSE)=TRUE,"","×")

""内を適宜変更してみてください。

回答No.1

chie65535

COUNTIF関数を使って、

「シート２のH1の内容と同じ物がシート１のAJ列に何個あるか？」
「シート２のH2の内容と同じ物がシート１のAJ列に何個あるか？」
「シート２のH3の内容と同じ物がシート１のAJ列に何個あるか？」
（途中省略）
「シート２のH列の最終行の内容と同じ物がシート１のAJ列に何個あるか？」

という感じ、シート２の一番上から一番下まで、すべて個数を数えさせます。

で、数えた結果が「0」になったら「シート２のH列にはあるが、シート１のAJ列に無いもの」と判ります。

こんな感じで、逆の

「シート１のAJ1の内容と同じ物がシート２のH列に何個あるか？」
「シート１のAJ2の内容と同じ物がシート２のH列に何個あるか？」
「シート１のAJ3の内容と同じ物がシート２のH列に何個あるか？」
（途中省略）
「シート１のAJ列の最終行の内容と同じ物がシート２のH列に何個あるか？」

という感じ、シート１の一番上から一番下まで、すべて個数を数えさせます。

で、数えた結果が「0」になったら「シート１のAJ列にはあるが、シート２のH列に無いもの」と判ります。

これで「シート１にしかないもの」と「シート２にしかないもの」がわかるので「オートフィルタ」などで「数えた個数が0個になった物」だけ表示して、コピーペーストでシート３に貼り付けして下さい。