塗潰されたセルと同じ色の数字を重複無しで縦に並べる

質問

いつもお世話になっております。
ご存じの方がお見えでしたらご回答をよろしくお願いします。
【質問】
　添付図の様に５×５マスが４つあり、それが縦に６つあります。
　５×５マスの４つの中には、黄色、緑色、赤色、青色の４色のいずれかでセルが
　塗り潰されています。M列～P列に4色（黄色、緑色、赤色、青色）の色があります。
　　(1)５×５マスの４つの中で同じ色で塗潰されたセルの数字を重複無しでM列～P列に4色のいずれかに縦に昇順に並べる。
　　(2)上記(1)で縦に４つに並べた数字をR列に縦１列に重複無しで縦に昇順に並べる。
【注意事項】
　　・５×５マスが４つの中で、４色全ての塗り潰しがある訳ではありません。
　　　※最低、黄色のみという場合があります。
　　・５×５マスが４つの中で、塗り潰されているセルは毎回異なります。
　　・使用するエクセルは２０１６です。

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

回答No.3

kkkkkm

同じようなのを以前見たことがありますよ。
こんな感じでいけるのではというイメージだけで。
なお、これ以上先に進みません。

実際には一部設定がないので正常に動作しません。

Sub Test()
For i = 1 To 6
For j = 1 To 4
For Each c In Range("5x5の範囲")
For k = M列 To P列
If Cells(Row, k).DisplayFormat.Interior.Color = c.DisplayFormat.Interior.Color Then
Cells(RowCount, k).End(xlUp).Offset(1, 0).Value = c.Value
Cells(RowCount, "R").End(xlUp).Offset(1, 0).Value = c.Value
End If
Next
Next
Next
Next
'R列及びM列～P列のデータをエクセルの機能の重複の削除と並び替えをVBAで利用
End Sub

回答No.2

imogasi

ＶＢＡでやれば、むつかしくない（ロジックが繰り返しだけでできる）ようだ。
しかし、掲示画像がぼやけて読者にはよくデータが見えない。
質問者がエクセルＶＢＡを経験あるのかどうかが問題。
その数年に、数列のマス目の色付けのカウントとかの質問が、同一人からかもしれないが、形を変えて、出ている。
このニーズはどういうところから来るのか。宝くじか、実験がゲームか、何が背後にあるのか
必要理由の説明なく、自分も結果だけ検証して、勉強しておらず、回答者を、ＶＢＡコードを作る小間使いのような扱いで、質問するのは、回答する気がしないのだが。

回答No.1

m5048172715

ユーザーがエクセルの達人ならVBA抜きで出来そうだけど、VBAを使った方がコードを見やすくて簡単にできそうな気がする。

セルの色判定、
セルの読み書き、
forループ

を組み合わせて使えればVBAで作れそうだ。