• 締切済み

左右、上下重なる位置にある数字を取得する。

いつもお世話になっております。 ご存知の方、ご回答をよろしくお願いします。 【質問】 添付図の様に5×5マスが、A,B,C,Dの4つ存在します。 検索KEYの6個の数字でA,B,C,Dの各5×5マス内を検索して 一致したら、セルを黄色で塗り潰す。 次に、各5×5マスの3列目を中心として黄色に塗りつぶしたセルの 左右反対側にある数字を取得して右側の”〇枠左右”の下に並べる。 最後に、各5×5マスの3行目を中心として黄色に塗りつぶしたセルの 上下反対側になる数字を取得して右側の”〇枠上下”の下に並べる。 【注意事項】   ・検索KEYの6個の数字は重複無しで、毎回、入力する値は変わります。   ・A,B、C,Dの各5×5枠の中の数字は重複在りで、    毎回、数字は変わります。数字は1~99迄です。   ・A,B,C,Dの各5×5マスの中に検索KEYの6個の数字が1つも    存在しないことはあります。   ・使用するエクセルは2016です。 以上、よろしくお願いします。

みんなの回答

  • imogasi
  • ベストアンサー率27% (4737/17069)
回答No.2

補足質問。 質問添付画像において、 B区画の値8のセルと、D区画の値24のセルは、色が着くよね。凡ミス? ーー 該当セルを色着けするのは、下記VBAでできると思う。処理時間も一瞬。 Sub test01() Set sh1 = Worksheets("Sheet1") Set RA = sh1.Range("A1:E5") Set RC = sh1.Range("G1:K5") Set RB = sh1.Range("A7:E11") Set RD = sh1.Range("G7:K11") '---- For i = 1 To 7 For Each cl In Union(RA, RC, RB, RD) If cl = sh1.Cells(15, i) Then cl.Interior.ColorIndex = 6 End If Next Next i End Sub ーーー 以下、最終のほしい結果は今後やってみます。 ーー しかし、 >3列目を中心として黄色に塗りつぶしたセルの 左右反対側にある数字を取得して右側の”〇枠左右”の下に並べる ー というのは、添付画像のM列のコメント結果とどう結びつくのか、(正しい回答がまだ出ていないなら)、教えてほしい。私の考える>左右反対側にある数字が異なる。

  • msMike
  • ベストアンサー率20% (364/1804)
回答No.1

M、R列の数値の殆どが、質問に記載された条件を満足していないのは何故? 「アレは単なる例を示しただけ」などと、ほざかないでくださいネ! 回答者を戸惑わせますから。 チコちゃんに叱られないような添付図を!

関連するQ&A