重複している数字を表示する方法

質問

どなたかご存じでしたらご回答よろしくお願いします。
【質問】
　エクセルのＡ列～Ｅ列に0～9迄の任意の数字が1つだけ入っています。
　「Ａ列～Ｅ列で重複している数字があればＦ列又はＧ列にその数字を出力する」
　方法が知りたいです。具体的に下記のエクセルシートのとおりです。

●エクセルシート

　　A　B　C　D　E　F　G
　　3　3　1　7　8　3　　　←3が2個重複しているので、F列に3が入る。
　　7　7　7　7　7　7　　　←7が5個重複しているので、F列に7が入る。
　　4　4　4　4　2　4　　　←4が4個重複しているので、F列に4が入る。
　　6　6　6　3　1　6　　　←6が3個重複しているので、F列に6が入る。
　　1　1　8　8　8　1　8　←1が2個、8が3個重複しているので、F列に1、G列に8が入る。
　　3　3　2　2　5　3　2　←3が2個、2が2個重複していうので、F列に3、G列に2が入る。　
　　3　4　5　6　7　　　　 ←重複数字は無いため、F列、G列には何も入らない。　

●注意事項
　　・使用するエクセルは2010です。

以上、よろしくお願いします。

投稿日時 - 2013-05-04 11:02:06

回答No.1

tom04 · ベストアンサー

こんばんは！
今回もVBAになってしまいますが・・・

Sub 重複データ表示()
Dim i As Long, j As Long
Range("F:G").ClearContents
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
For j = 1 To 5
If WorksheetFunction.CountIf(Cells(i, 1).Resize(1, 5), Cells(i, j)) > 1 And _
WorksheetFunction.CountIf(Range(Cells(i, 1), Cells(i, j)), Cells(i, j)) = 1 Then
Cells(i, Columns.Count).End(xlToLeft).Offset(, 1) = Cells(i, j)
End If
Next j
Next i
End Sub

※　操作方法は前回の別質問で回答している方法と一緒です。
尚、各行とも途中に空白セルはあっても構いませんが、
E列には必ず何らかのデータが入っているという前提です。m(_ _)m

お礼

本日、２回もご回答いただきありがとうございます。
早速、実行したところ得たい結果になりました。
またよろしくお願いします。

回答No.2

keithin

Ｆ１に
=IFERROR(INDEX($A1:$E1,SMALL(IF(FREQUENCY($A1:$E1,$A1:$E1)>1,TRANSPOSE(COLUMN($A1:$E1))),COLUMN(A1))),"")
と記入、必ずコントロールキーとシフトキーを押しながらＥｎｔｅｒで入力
下にコピー

Ｆ列をＧ列にコピー。

お礼

ご回答ありがとうございます。
早速、実行したところ問題なく結果がでました。
またよろしくお願いします。