Excelで一致しない数字を返し、一箇所にまとめるには？

質問

以前も似たような質問したのですが、よくわからなくなってしまったのでまたお願いします。

Ａ列　Ｂ列　Ｃ列
1052 1052 1033
1230 1033 1044
1335 1044
1560 1335
1650 1650

このように、「Ａ列とＢ列を比較して、Ａ列にない数字を、Ｃ列に上から順に揃えて抽出する」にはどのようにすればよいのでしょうか？
文字列は３００行位になります。

バージョンは2002です。
ＶＢはよくわからないので、簡単にできる方法があれば幸いです。

回答No.1

comv · ベストアンサー

こんばんは

フィルタオプションでの操作例です

データ範囲がA1:B300まであるとして

　　Ａ列　Ｂ列　Ｃ列　Ｄ列
１　data1 data2 data2
２　1052 1052 　　　　式
３　1230 1033
４　1335 1044
５　1560 1335
６　1650 1650
：　　：　：
300　 ：　：

式　セルＤ２に　=COUNTIF($A$2:$A$300,B2)=0
・１行目に適当な項目名を記載
　Ｃ１（抽出場所に抽出対象：Ｂ列　と同様の項目名を記載
・Ａ１：Ｂ３００までを選択
・メニューのデータ　フィルタ　フィルタオプション
　抽出先　指定した範囲　にチェク
　リスト範囲　$A$1:$B$300
　検索条件範囲　$D$1:$D$2　←D1は空白 D2が条件数式
　抽出範囲　$C$1

で試してみて下さい

お礼

おおおお！すばらしい！できました。
上手にいきました。ありがとうございます！！

回答No.3

imogasi

Ｃ１に=IF(ISERROR(MATCH(B1,$A$1:$A$310,0)),B1,"")
Ｄ１に=IF(ISERROR(MATCH(B1,$A$1:$A$310,0)),ROW(),"")
をいれＢ列最下行まで複写。Ａ列データを310行と仮定。
Ｂ１：ＣＸＸ（ＸＸはＢ列最下行）を値のみ複写で値にする。
Ｂ１：ＣＸＸをＤ列で並べ替えする。
（サンプル）Ａ１：Ｂ８。式は
=IF(ISERROR(MATCH(B1,$A$1:$A$8,0)),B1,"")
=IF(ISERROR(MATCH(B1,$A$1:$A$8,0)),ROW(),"")

1055 1033
1068 1053
1078 1078
1088 1099
1099 2000
2011 2002
2012 2011
2020 2013
（結果）Ｃ１：Ｄ５
1033 1
1053 2
2000 5
2002 6
2013 8
D列は消す。

回答No.2

taisuke555

以前の質問の時に、どのような回答を頂いたのか分かりませんので、
重複していたらすみません。

頑張って書いてる内に＃１さんの回答が入っていたので、
必要なければ、読み飛ばしてください。
（やばいなー　読み飛ばされそう！）

でも、頑張って書いたので見れたら見てね。

一応、思いつくのを３つ挙げてみました。
何を持って簡単とするかは、gilfffoさん次第ですが、
お勧めは、VBAです。（早い！）私の回答の中ではです。
ＶＢはよくわからないようですが、一応ＶＢＡの方法も記述しましたので、他と比べてみてください。

１．手動にて（面倒！）さらに＃１さんの方が簡単そう！
　　（１）C1セルに
　　　　=IF(COUNTIF($A$1:$A$300,B1)=0,B1,"")
　　　　と入力しC300セルまでコピー
　　（２）C列全体をコピーし、C列に値のみ貼り付け
　　（３）「データ」→「並べ替え」で値を並べ替える

２．関数にて（必要行が増えると再計算に時間が掛かる！）
　　（１）C1セルに
　　　　=IF(SUM(IF((COUNTIF($A$1:$A$300,$B$1:$B$300)=0)*($B$1:$B$300),1,0))<ROW(A1),"",INDEX($B$1:$B$300,SMALL(IF(COUNTIF($A$1:$A$300,$B$1:$B$300)=0,ROW($B$1:$B$300),""),ROW(A1)),))
　　　　と入力し、[Enter]の代わりに[Ctrl]+[Shift]+[Enter]を押す
　　（２）必要行までコピー

３．VBAにて（若干の知識が必要！）
　　（１）[Alt]+[F11]でVisial Basic Editerに移動する。
　　（２）「挿入」→「標準モジュール」でモジュールを追加する。
　　（３）右上の広い場所（[General]と書いてある下）に
　　　　　以下のコードを貼り付ける。
　　　　　'－－－－－－－－－－この下から－－－－－－－－
Sub test()
　　With Worksheets("Sheet1")
　　　　.Range("c:c").ClearContents
　　　　tbl = .Range("A1:C300").Value

　　　　cnt = 0
　　　　For i = 1 To UBound(tbl, 1)
　　　　　　If (tbl(i, 2) <> "") Then
　　　　　　　　flg = False
　　　　　　　　For j = 1 To UBound(tbl, 1)
　　　　　　　　　　If (tbl(j, 1) = tbl(i, 2)) Then
　　　　　　　　　　　　flg = True
　　　　　　　　　　　　Exit For
　　　　　　　　　　End If
　　　　　　　　Next j
　　　　　　　　If (flg = False) Then
　　　　　　　　　　cnt = cnt + 1
　　　　　　　　　　tbl(cnt, 3) = tbl(i, 2)
　　　　　　　　End If
　　　　　　End If
　　　　Next i
　　　　.Range("A1:C300").Value = tbl
　　End With
End Sub
　　　　　'－－－－－－－－－－この上まで－－－－－－－－
　　（４）[Alt]+[F11]でEXCELに戻る
　　（５）「ツール」→「マクロ」→「マクロ」
　　　　　から[Test]を選択して実行
　　（「フォーム」のツールバーからボタンを選択してマクロを登録してもよい。）

分からない所やおかしい所があれば、補足してください。

長文失礼しました。