エクセルで重複するセルをみつけるには？

質問

エクセル2003で
A列1行目から順番に青木、岡田、山田のように名前が入力されていて同様に
B列1行目から順番に、青木、上田、渡辺のように名前が入力されています
A列からB列にある名前と同じものを見つけ出して、その後削除したいのですが
どうすればいいでしょうか？

回答No.9

masnoske · ベストアンサー

> A列からB列にある名前と同じものを見つけ出して、その後削除したいのですが
どうすればいいでしょうか？

何を削除したいのかわかりません。
また、どこから削除したいのかもわかりません。

とりあえずC1に以下の数式を入力して、下までコピーしてください。
計算結果が 0 でなければ、B列に同じ名前があります。
=COUNTIF(B:B,A1)

お礼

ありがとうございます

回答No.8

msMike

別解です。

添付図参照
次式を入力したセル D1 を下方にズズーッとオートフィル
=IFERROR(INDEX(A$1:A$12,SMALL(IF(COUNTIF(B$1:B$13,A$1:A$12)=0,ROW(A$1:A$12)),ROW(A1))),"")
【お断り】上式は必ず配列数式として入力のこと

お礼

ありがとうございます

回答No.7

kkkkkm

まずフィルターをかけてください。
データの抽出（オートフィルタ）
https://hamachan.info/excel/tyusyutu.html
その結果(#N/Aだけ表示しないようにして)から
可視セルの選択
https://hamachan.info/excel/kasiseru.html
で、A列だけ選択してください、それで選択したものを削除です。

お礼

ありがとうございます

回答No.6

kkkkkm

C1に
=VLOOKUP(A1,B:B,1,FALSE)
として必要なだけしたにコピーします。
C列で
#N/A
となっているものを除外したフィルターをかけます。
可視セルの選択
https://hamachan.info/excel/kasiseru.html
をして削除します。

お礼

おーすごい！N/Aというのは消せませんが 可視フィルターのところがいまいちわかりません。
申し訳ございません、わかりませんばかりいって。重複するのだけを見つける方法が、可視フィルターのURLの方法ですよね？

回答No.5

msMike

添付図参照

お礼

ありがとうございます良いところまでいきました
私の場合同じにならないのが、data1の下に名前が表示されません　true と falseのセルをマウスで、500行目位まで自分でコピペしていって、trueとfalseが表示されるだけです
あと、falseは自分の目視でさがさないといけないですかね？
検索窓を開いてfalse　trueと検索してもみつからないのですが

回答No.4

kkkkkm

> エクセル上で

エクセル上というのがどういう意味で使ってるのか不明ですが、No2の回答はエクセルのマクロなのでエクセルの機能。

お礼

当方初心者なのでマクロは難しくてわかりません

補足

ありがとうございます

回答No.3

kkkkkm

> エクセル上でVルックアップとか条件付き書式ですとかでお願いできますか

2003でできたかどうか不明だけど
条件付き書式で数式を利用して
=COUNTIF(B:B,A1)>0

お礼

わかりませんすいません

回答No.2

kkkkkm

2003がないので2013でチェックしたものですが

データだけ削除するもの
Sub Test()
Dim c As Range, d As Range

For Each c In Range(Cells(1, "B"), Cells(Rows.Count, "B").End(xlUp))
For Each d In Range(Cells(1, "A"), Cells(Rows.Count, "A").End(xlUp))
If c.Value = d.Value Then
d.ClearContents
End If
Next
Next
End Sub

データのあるセルそのものを削除するもの(データは上に持ち上がります)
Sub Test2()
Dim i As Long
Dim c As Range

For Each c In Range(Cells(1, "B"), Cells(Rows.Count, "B").End(xlUp))
For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
If c.Value = Cells(i, "A").Value Then
Cells(i, "A").Delete (xlShiftUp)
End If
Next
Next
End Sub

お礼

エクセル上でVルックアップとか条件付き書式ですとかでお願いできますか

回答No.1

noname#263248

量が多くなければ検索して消すのが早いと思います

お礼

300個位あるので関数かなにかがあるとうれしいのですが