同じ数字を見つける方法

質問

どなたかご存じでしたらご回答よろしくお願いします。

【質問】
　エクセルシートＡ列～Ｆ列に数字が入っています。
　Ａ列の数字がＧ列～Ｌ列迄の数字のいずれかと同じ値の場合、
　Ｍ列～Ｒ列に一致した値を出力する。これをＦ列まで繰り返し行う方法が知りたいです。　

◎エクセルシート
Ａ　Ｂ　Ｃ　　Ｄ　Ｅ　　Ｆ　　Ｇ　　Ｈ　　Ｉ　　Ｊ　　Ｋ　　Ｌ　　Ｍ　　Ｎ　Ｏ　Ｐ　Ｑ　Ｒ　　　
4　19　20 　27　28　14　　5　　15　18 20　　23　28　　20　28　　　　
5　　9　15　19　30　　9　　5　　9　 18 22　　24　25　　5　　9　　<=　Ａ列～Ｆ列で9が重複　　　　
5　　7　17 　25　27　18　　5　　14　18 23　　29　31　　5　　18　
2　　3　5　14　24　　9　　　5　　9　16　　22　　29　30　　5　　9　　
6　12　21　24　28 15　　4　　5　　11　20　　26　29　　　
6　　8　9　21　26　　4　　　4　　8　　13　19　　26　27　　4　　8　　26

●注意事項
　　・”数字”とは１～３１迄の数字の事です。
　　・Ａ列～Ｆ列の数字は重複する場合があります。
　　・Ａ列～Ｆ列の数字がＧ列～Ｌ列に存在しない場合があります。
　　　その場合のＭ列～Ｒ列は空白です。
　　・使用するエクセルは２０１０です。

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

回答No.2

tom04 · ベストアンサー

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

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

Sub Sample1() 'この行から
Dim i As Long, j As Long, cnt As Long, c As Range, myArea As Range
Application.ScreenUpdating = False
Range("M:R").ClearContents
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Set myArea = Range(Cells(i, "G"), Cells(i, "L"))
cnt = 12
For j = 1 To 6
Set c = myArea.Find(what:=Cells(i, j), LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing And WorksheetFunction.CountIf(Range(Cells(i, "M"), Cells(i, "R")), Cells(i, j)) = 0 Then
cnt = cnt + 1
Cells(i, cnt) = Cells(i, j)
End If
Range(Cells(i, "M"), Cells(i, "R")).Sort key1:=Cells(i, "M"), order1:=xlAscending, _
Header:=xlNo, Orientation:=xlLeftToRight
Next j
Next i
Application.ScreenUpdating = True
End Sub 'この行まで

こんな感じではどうでしょうか？m(_ _)m

お礼

回答ありがとうございます。
いつも丁寧な説明と別の角度から回答ありがとうございます。
教えていただいたＶＢＡソースで１発で得たい結果が出ました！
ありがとうございました。
またよろしくお願いします。

回答No.1

某HN クロメート(Chromate)（@CoalTar）

>・Ａ列～Ｆ列の数字は重複する場合があります。
Ｇ列～Ｌ列に重複がないとしてM1セルに
=IF(COUNT(1/COUNTIF($A1:$F1,$G1:$L1))<COLUMN(A1),"",
INDEX($G1:$L1,SMALL(IF(ISNUMBER(1/COUNTIF($A1:$F1,$G1:$L1)),{1,2,3,4,5,6}),COLUMN(A1))))
[Ctrl]+[Shft] ＋[Enter] で確定、配列数式。{ }で挟まれる
右へ 下へオートフィル

お礼

早速のご回答ありがとうございます。
実行結果までつけて頂きありがとうございます。
やってみて同じ結果になりました。
また、下記の説明不足ありました。
失礼しました。

＞Ｇ列～Ｌ列に重複がないとして