Excelで名簿の重複を検索する方法

質問

よろしくお願いします。
Excelで名簿を作りました。
その名簿を使って、次のようなことをしたいのです。
A列には、全員の名前が入れてあります。
B列には、提出物を出した人の名前が入っています。
このA列とB列を見比べて、提出物を出していない人の名前だけをC列に反映させたいと思います。
そのような関数をご存知の方はいませんでしょうか？？？
よろしくお願いします。

回答No.8

MarcoRossiItaly

No.1さんのお答えがシンプルかつ素直で、個人的には好きです。私のようなへそ曲がりだと、こんな式も書きます（笑）

=if(iserror(vlookup(a1,B:B,1,)),a1,"")

お礼

返事が遅くなってすみませんでした。
いろいろなやり方があるものなんですね。
勉強になります。
ありがとうございました。

回答No.7

MackyNo1

A2セル以下（A100セルまでの範囲内）に名前、B1セル以下（B100セルまでの範囲内）に抽出対象外の名前が記載されているなら、以下の式を入力して下方向にオートフィルコピーしてください。

=INDEX(A:A,SMALL(INDEX(COUNTIF($B$1:$B$100,$A$1:$A$100)*1000+ROW($A$1:$A$100),),ROW(A1)))&""

お礼

返事が遅くなってすみませんでした。
マクロを使わなくてもできるんですね。
一度やってみます。ありがとうございました。

回答No.6

tom04

こんにちは！
横からお邪魔しますt。

VBAでの一例です。
↓の画像のようにデータは2行目からあるとします。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt+F8キー　→　マクロ　→　マクロ実行です）

Sub test() 'この行から
Dim i, k As Long
k = Cells(Rows.Count, 3).End(xlUp).Row
If k > 1 Then
Range(Cells(2, 3), Cells(k, 3)).ClearContents
End If
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Columns(2), Cells(i, 1)) = 0 Then
Cells(Rows.Count, 3).End(xlUp).Offset(1) = Cells(i, 1)
End If
Next i
End Sub 'この行まで

お望みの方法でなかったらごめんなさいね。m(_ _)m

お礼

返事が遅くなり、すみませんでした。
画像まで貼り付けていただき、とても分かりやすいです。ありがとうございました。
一度、やってみます。

回答No.5

KURUMITO

回答Ｎｏ3です。回答3は無視してください。
作業列を使って対応する方法です。
Ａ列やＢ列には2行目から下方にデータが有るとします。
Ｄ2セルには次の式を入力して下方にドラッグコピーします。

=IF(OR(AND(B2<>"",COUNTIF(A:A,B2)=0),AND(A2<>"",B2="")),MAX(D$1:D1)+1,"")

その後にＣ2セルには次の式を入力して下方にドラッグコピーします。

=IF(ROW(A1)>MAX(D:D),"",INDEX(A:A,MATCH(ROW(A1),D:D,0)))

なお、Ｄ列が目障りでしたらＤ列を選択して右クリックし「非表示」を選択すればよいでしょう。

お礼

何度も教えていただき、ありがとうございます。
わざわざ修正までしていただき、感謝しております。

回答No.3

KURUMITO

Ａ列やＢ列ではデータが2行目から下方にあるとしたらＣ2セルには次の式を入力し、式を確定する段階でＣｔｒｌ＋Ｓｈｉｆtキーを押しながらＥｎｔｅｒキーを押します。その後にＣ2の式を下方にドラッグコピーします。

=IF(ROW(A1)>COUNTA(B$2:B$1000),"",IF(COUNTIF(A$2:A$1000,B$2:B$1000)=0,"",INDEX(A$2:A$1000,SMALL(IF(COUNTIF(A$2:A$1000,B$2:B$1000)>0,ROW(A$2:A$1000),""),ROW(A1)))))

お礼

お礼が遅くなってしまい、申し訳ありませんでした。
関数でもいけるんですか？？？
一度やってみます。
ありがとうございました。

回答No.2

mu2011

関数では厳しいと思うのでマクロ（ＶＢＡ）例です。
シートの１行目は見出し行とします。
（１）対象データシートタブ上で右クリック→コードの表示→サンプルコードの貼り付け→シート上でAlt＋F8キー押下→sample実行

Sub sample()
Dim i As Long, wk As String
Set Db = CreateObject("Scripting.Dictionary")
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
Db(Cells(i, "A").Value) = 1
Next
For i = 1 To Cells(Rows.Count, "B").End(xlUp).Row
wk = Cells(i, "B")
If Db.Exists(wk) Then Db.Remove (wk)
Next
list = Db.Keys
For i = LBound(list) To UBound(list)
Cells(2, "C").Offset(i) = list(i)
Next
Set Db = NothingEnd Sub

お礼

返事が遅くなってすみません。
やはり、関数では無理なんですか・・・。
マクロは使ったことがないので、少しずつ勉強していこうとは思っているのですが、敷居が高くて・・・。
一度、やってみます。ありがとうございました。

回答No.1

kybo

C1に以下の様に入れ、下へコピーすれば、A列にあって、B列にないものが出ます。

=IF(COUNTIF(B:B,A1)=1,"",A1)

お礼

返事が遅くなってすいません。
ご回答ありがとうございました。
コピーさせていただきましたが、自分が思っていたこととは、ちょっと違うような・・・。
しかし、勉強になりました。ありがとうございました。