塗りつぶしたセルの対称となるセルの数字を抜き出す

質問

いつもお世話になっております。
よろしければ回答をお願いいたします。
【質問】
添付図の様にＡ１～Ｅ２０までに１～３１迄の数字が重複有りで入っています。
それを、Ｇ２～Ｌ２の数字で検索します。
検索できたらそのセルを赤く塗り潰します。
赤く塗りつぶしたセルがＣ列以外の場合、
対称（Ａ列の対称はＥ列、Ｂ列の対称はＤ列）となる数字を
Ｇ５から下に並べる方法が知りたいです。
【注意事項】
・使用するエクセルは２０１６です。
・Ｇ２～Ｌ２に入る数字は１～３１迄で重複無しです。

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

回答No.1

HohoPapa · ベストアンサー

サンプル画像では、
B4セルが赤にも関わらず、
D4セルの値をリストアップしていないようです。

こんなコードでいかがでしょうか

Sub Sample()

　Dim RngKey As Range
　Dim RngAll As Range
　Dim RngHit As Range
　Dim PutLine As Long
　Dim RowNum As Long
　Dim ColNum As Long
　Dim KeyCol As Long

　Set RngKey = Range("G2:L2")
　Set RngAll = Range("A1:E20")
　Set RngHit = Range("G5:G84")

　PutLine = 0

　For RowNum = 1 To RngAll.Rows.Count
　　For ColNum = 1 To RngAll.Columns.Count
　　　RngAll.Cells(RowNum, ColNum).Interior.Pattern = xlNone
　　　For KeyCol = 1 To RngKey.Columns.Count
　　　　If RngAll.Cells(RowNum, ColNum).Value = _
　　　　　　RngKey.Cells(1, KeyCol).Value Then
　　　　　RngAll.Cells(RowNum, ColNum).Interior.Color = rgbRed
　　　　　If ColNum <> 3 Then
　　　　　　PutLine = PutLine + 1
　　　　　　RngHit.Cells(PutLine, 1).Value = _
　　　　　　　RngAll.Cells(RowNum, 6 - ColNum).Value
　　　　　End If
　　　　End If
　　　Next KeyCol
　　Next ColNum
　Next RowNum

End Sub

お礼

早速のご回答ありがとうございます。
１つ漏れてた部分はチェックミスです。
早速やってみたところ、Ｄ４が出てきました。