【改造】左側数字と同じ位置の右側で数字のチェック

質問

いつも大変お世話になっております。
皆さん、今年もよろしくお願いします。
早速ですがご存知の方いらっしゃったら回答をお願いします。
【質問】
　QNo.9573241として「左側数字と同じ位置の右側で数字のチェック方法は？」という内容で質問させて頂きました。この時は、5×5が１つの場合でしたが、
今回は5×5　が４つある場合です。４つ同時にチェックして、結果を縦に並べます。
　　　　　1つ目：A1~E5、G1~K5　・・・【既存】
　　　　　2つ目：A7~E11、G7~K11　・・・【追加】
　　　　　3つ目：A13~E17、G13~K17　・・・【追加】
　　　　　4つ目：A19~E23、G19~K23　・・・【追加】
結果は下記のとおり出力します。
　・1つ目の結果は、A25から下にA1~E5までの数字25個を縦に並べて右側に載せる。
　・2つ目の結果は、C25から下にA7~E11までの数字25個を縦に並べて右側に載せる。
　・3つ目の結果は、E25から下にA13~E17までの数字25個を縦に並べて右側に載せる。
　・4つ目の結果は、G25から下にA19~E23までの数字25個を縦に並べて右側に載せる。

それ以外は、前回と同じです。

〇追加例題・・・5×5が縦に４つずつ並び、左側の数字と同じ位置の右側で数字を
　　　　　　　　チェックします。
Ａ　Ｂ　Ｃ　Ｄ　Ｅ　Ｆ　Ｇ　Ｈ　Ｉ　Ｊ　Ｋ　
1　11　16　18　20　31　　　12　18　19　22　25
2　03　04　19　26　28　　　03　04　26　17　28
3　02　10　17　22　29　　　01　10　15　29　31
4　05　06　13　21　27　　　02　05　13　14　16
5　01　07　12　23　25　　　06　08　30　23　21
6　
7　07　09　11　20　21 　　　08　11　12　20　25
8　18　19　22　24　25 　　　09　14　22　24　30
9　04　12　26　27　28 　　　04　13　19　26　28
10　01　03　10　15　31　　02　10　15　27　31
11　02　05　13　16　29　　03　06　16　21　29
12
13　12　13　18　20　31　　02　13　14　20　21
14　05　07　17　26　28　　03　12　17　19　28
15　08　21　22　27　29　　05　22　25　26　29
16　03　10　11　14　19　　09　10　11　18　31
17　01　04　06　16　24　　04　07　16　24　27
18
19　02　09　15　25　30　　01　06　08　15　30
20　08　22　23　27　29　　05　22　23　26　29
21　10　12　14　21　31　　02　10　13　18　25
22　03　06　11　16　19　　07　09　11　16　31
23　01　04　09　24　30　　01　04　08　24　27

＊＊＊　QNo.9573241（2018/12/31) の質問内容　＊＊＊
　【質問】
A1~E5、G1~K5にそれぞれ25個の1~99迄の数字がランダムに重複無しで入っています。
A1=G1、B1=H1、C1=I1、D1=J1．E1＝K1、A2=G2・・・最後はE5=K5と、
A1~E5からG1~K5と同じ位置にある数字とその数字から８方向の数字と
同じ数字であれば”同じ”、８方向（上、下、左、右、左上、右上、右下、左下）
に同じ数字が上にあれば”上”、下にあれば”下”、左にあれば”左”、
右にあれば”右”、左上にあれば”左上”、右上にあれば”右上”
右下にあれば”右下”、左下にあれば”左下”、
同じ数字が無ければ”無し”とA1~E5の数字をG1~K5でチェックした結果を
A7から下にA1~E5までの数字25個を縦に並べて右側に載せる方法が知りたいです。

〇例題
　　Ａ　Ｂ　Ｃ　Ｄ　Ｅ　Ｆ　Ｇ　Ｈ　Ｉ　Ｊ　Ｋ　
1　11　16　18　20　31　　　12　18　19　22　25
2　03　04　19　26　28　　　03　04　26　17　28
3　02　10　17　22　29　　　01　10　15　29　31
4　05　06　13　21　27　　　02　05　13　14　16
5　01　07　12　23　25　　　06　08　30　23　21

〇結果　とその説明
11：無し　※G1に11があるとみなすと、そもそもG1には12、8方向は03,04,18なので
　　　　　　"無し”。
16：無し　※H1に16があるとみなすと、そもそもH1には18、8方向は12,03,04,26,19
　　　　　　なので、無し”。
18：左　　※I1に18があるとみなすと、そもそもI1には19、8方向は18,04,26,17,22
　　　　　　なので、”左”。
20：無し　※J1に20があるとみなすと、そもそもJ1には22、8方向は19,26,17,28,25
　　　　　　なので、”無し”。
31：無し　※K1に31があるとみなすと、そもそもK1には25、8方向は22,17,28なので、
　　　　　　”無し”。
03：同じ　※G2に03があるとみなすと、そもそもG2には03、8方向は12,18,04,10,01
　　　　　　なので、”同じ”。
04：同じ　※H2に04があるとみなすと、そもそもH2には04、8方向12,18,19,26,15,10,
　　　　　　01,03なので、”同じ”。
19：上　　※I2に19があるとみなすと、そもそもI2には26、8方向は18,19,22,17,29,15,
　　　　　　10,04なので、”上”。
26：左　　※J2に26があるとみなすと、そもそもJ2には17、8方向19,22,25,28,31,29,15,
　　　　　　26なので、”左”。
28：同じ　※K2に28があるとみなすと、そもそもK2には28、8方向は25,22,17,29,31
　　　　　　なので、”同じ”。
02：下　　※G3に02があるとみなすと、そもそもG3には01、8方向は03,04,10,05,02
　　　　　　なので、”下”。
10：同じ　※H3に10があるとみなすと、そもそもH3には10、8方向03,04,26,15,13,03,
　　　　　　02,01なので、”同じ”。
17：右上　※I3に17があるとみなすと、そもそもI3には15、8方向は04,26,17,29,14,13,
　　　　　　05,10なので、”右上”。
22：無し　※J3に22があるとみなすと、そもそもJ3には29、8方向26,17,28,31,16,14,13,
　　　　　　15なので、”無し”。
29：左　　※K3に29があるとみなすと、そもそもK3には31、8方向は28,17,29,14,16
　　　　　　なので、”無し”。
05：右　　※G4に05があるとみなすと、そもそもG4には02、8方向は01,10,05,08,05
　　　　　　なので、”右”。
06：左下　※H4に06があるとみなすと、そもそもH4には05、8方向01,10,15,13,30,08,
　　　　　　06,02なので、”左下”。
13：同じ　※I4に13があるとみなすと、そもそもI4には13、8方向は10,15,29,14,23,30,
　　　　　　08,05なので、”同じ”。
21：右下　※J4に21があるとみなすと、そもそもJ4には14、8方向15,29,31,16,21,23,30,
　　　　　　13なので、”右下”。
27：無し　※K4に27があるとみなすと、そもそもK4には16、8方向は31,29,14,23,21
　　　　　　なので、”無し”。
01：無し　※G5に01があるとみなすと、そもそもG5には06、8方向は02,05,08なので、
　　　　　　”無し”。　　
07：無し　※H5に07があるとみなすと、そもそもH5には08、8方向は06,02,05,13,30
　　　　　　なので、”無し”。
12：無し　※I5に12があるとみなすと、そもそもI5には30、8方向は08,05,13,14,23
　　　　　　なので、”無し”。
23：同じ　※J5に23があるとみなすと、そもそもJ5には23、8方向は30,13,14,16,21
　　　　　　なので、”同じ”。
25：無し　※K5に25があるとみなすと、そもそもK5には21、8方向は16,14,23なので
　　　　　　”無し”。

〇注意事項
　・使用するエクセルは2010です。
　・セルの数字は表示上、2桁で表しています。（例：1ではなく01）
　・セルの数字は毎回、ランダムに変わります。

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

回答No.5

HohoPapa · ベストアンサー

QNo.9573241の延長でよければ、以下です。

Option Explicit

Sub HikakuMain()
　Hikaku 0, 24
　Hikaku 30, 54
　Hikaku 60, 84
　Hikaku 90, 114
End Sub

Sub Hikaku(ST As Long, EN As Long)
　Dim MyRow1 As Long
　Dim MyCol1 As Long
　Dim MyRow2 As Long
　Dim MyCol2 As Long
　Dim MyLCnt As Long
　Dim Rng1 As Range
　Dim Rng2 As Range

　 For MyLCnt = ST To EN
　　MyRow1 = Int(MyLCnt / 5) + 1
　　MyCol1 = MyLCnt Mod 5 + 1
　　MyRow2 = Int(MyLCnt / 5) + 1
　　MyCol2 = MyLCnt Mod 5 + 1 + 6
　　With ThisWorkbook.Sheets(1)
　　　Set Rng1 = .Cells(MyRow1, MyCol1)
　　　Set Rng2 = .Cells(MyRow2, MyCol2)
　　　.Cells((MyLCnt Mod 30) + 25, Int(MyLCnt / 30) * 2 + 1).Value = _
　　　　.Cells(MyRow1, MyCol1).Value
　　　.Cells((MyLCnt Mod 30) + 25, Int(MyLCnt / 30) * 2 + 2).Value = _
　　　　getHIkaku(Rng1, Rng2)
　　End With
　Next MyLCnt
End Sub

Function getHIkaku(Rng1 As Range, Rng2 As Range) As String

　 getHIkaku = "無し"

　 If Rng2.Row <> 1 Then
　　If Rng2.Column <> 1 Then
　　　If Rng1.Value = Rng2.Offset(-1, -1).Value Then
　　　　getHIkaku = "左上"
　　　　Exit Function
　　　End If
　　End If

　　 If Rng1.Value = Rng2.Offset(-1, 0).Value Then
　　　getHIkaku = "上"
　　　Exit Function
　　End If

　　 If Rng1.Value = Rng2.Offset(-1, 1).Value Then
　　　getHIkaku = "右上"
　　　Exit Function
　　End If
　End If

　 If Rng2.Column <> 1 Then
　　If Rng1.Value = Rng2.Offset(0, -1).Value Then
　　　getHIkaku = "左"
　　　Exit Function
　　End If
　End If

　 If Rng1.Value = Rng2.Offset(0, 0).Value Then
　　getHIkaku = "同じ"
　　Exit Function
　End If

　 If Rng1.Value = Rng2.Offset(0, 1).Value Then
　　getHIkaku = "右"
　　Exit Function
　End If

　 If Rng2.Column <> 1 Then
　　If Rng1.Value = Rng2.Offset(1, -1).Value Then
　　　getHIkaku = "左下"
　　　Exit Function
　　End If
　End If

　 If Rng1.Value = Rng2.Offset(1, 0).Value Then
　　getHIkaku = "下"
　　Exit Function
　End If

　 If Rng1.Value = Rng2.Offset(1, 1).Value Then
　　getHIkaku = "右下"
　　Exit Function
　End If

End Function

お礼

ずーっと、「回答こないかなー」と待ってました。
頂いた回答で実際にやってみてドンピシャでした。
ありがとうございました。

回答No.6

bunjii

>１つ目の検索結果は、”A25から下にA1~E5までの数字25個を縦に並べて右側に検索結果を載せる。
関数でも出来ないことはありませんが作業用シートを使い複雑な数式を使わなければなりませんのでVBAを使うことがベターかと思います。
既に回答が出たようなので質問は終了ですよね？

蛇足ですが、あなたの技量では処理不可と思われますのでプログラマーに有償で依頼することをご検討ください。

お礼

ありがとうございました。
また、お知恵をお借りする事があればよろしくお願いします。

回答No.4

SI299792

わざとわからないように質問して違うと言う。回答者いじめですか。
こう出してほしいという、図を載せるべきです。
A25から縦１列に出すのですか。こうですか？
'
Option Explicit
'
Sub Macro1()
'
　　Dim Table As Variant
　　Dim Cell1 As Range
　　Dim Cell2 As Range
　　Dim Index As Integer
　　Dim Row As Integer
'
　　[A25:A127].ClearContents
　　Table = Array("左上", "上", "右上", "左", "同じ", "右", "左下", "下", "右下", "無し")
　　[1:1].Insert
　　Row = 26
'
　　For Each Cell1 In [A2:E24]
'
　　　　If Cell1 > "00" Then
　　　　　　Index = 0
'
　　　　　　For Each Cell2 In Cell1.Offset(-1, 5).Resize(3, 3)
'
　　　　　　　　If Cell1 = Cell2 Then
　　　　　　　　　　Exit For
　　　　　　　　End If
　　　　　　　　Index = Index + 1
　　　　　　Next Cell2
　　　　　　Cells(Row, "A") = Cell1 & ":" & Table(Index)
　　　　　　Row = Row + 1
　　　　　　Index = 1
　　　　Else
　　　　　　Row = Row + Index
　　　　　　Index = 0
　　　　End If
　　Next Cell1
　　[1:1].Delete
End Sub

お礼

頂いた回答を実際にやってみました。
結果表示としてやりたかった事になりました。
言葉で書くと伝わりにくい所がでてくるので図で示した方が良いときがありますね。
今後は、図の事も考えて質問します。
ありがとうございました。

回答No.3

bunjii

>「左上」、「上」、「右上」が付かないと目的の達成ができません。
>またよろしくお願いします。
誤解していませんか？
1つの数式を対象範囲に適用する方法ではG1の上方3セルが無いのでF1:H2の6セルと比較することになるので、G2セルの場合と異なる数式を使わなければならないということです。
Sheetの1行目をタイトル行として比較対象を2行目以降にすれば1つの数式を対象範囲にコピーすることで目的達成できます。
添付画像のM2セルへ次の数式を入力します。
=IFERROR(INDEX($S$2:$U$4,MOD(MAX(INDEX((F1:H3=A2)*(COLUMN($A$1:$C$3)*100+ROW($A$1:$C$3)),0,0)),100),INT(MAX(INDEX((F1:H3=A2)*(COLUMN($A$1:$C$3)*100+ROW($A$1:$C$3)),0,0))/100)),"")
M2セルをコピーでクリップボードへ記憶させて、M2:Q6へ貼り付けます。
次にM2:Q6セルをコピーでクリップボードへ記憶させて、M8セルへ貼り付けます。
更に、M14とM20へ貼り付ければ添付画像が仕上がります。

補足

失礼しました。
頂いた回答をよく理解してませんでした。
実際にエクセルで試したところ、貼って頂いた回答どおりとなりました。
”空白”は”検索結果無し”の事ですね。
質問文の書き方が悪いのかもしれませんが、
質問文での期待する回答と頂いた回答結果が少し違います。
質問文での期待する回答は下記のとおりです。
１つ目の検索結果は、”A25から下にA1~E5までの数字25個を縦に並べて右側に検索結果を載せる。”ですので、
下記のようになるかと思います。
11：空白
03：中央
02：空白
05：下
01：右
16：空白
04：中央
　　：
　　：
以下、E5までの数字と検索結果が続く。

２つ目～４つ目の5×5の結果は同様に以下のとおりに載せたいです。
　・2つ目の検索結果は、C25から下にA7~E11までの数字25個を縦に並べて右側に検索結果を載せる。
　・3つ目の検索結果は、E25から下にA13~E17までの数字25個を縦に並べて右側に検索結果を載せる。
　・4つ目の検索結果は、G25から下にA19~E23までの数字25個を縦に並べて右側に検索結果を載せる。

今頂いた回答の左側に検索した数字を載せる方法でもよいです。

回答No.2

bunjii

添付画像のような結果で良いのでしょうか？
データの1行目が上の行が無いので「左上」、「上」、「右上」が検出できません。
従って、関数で処理するには1行目のみ特例になります。
A7セルへ次の数式を設定して右へコピーします。
=IFERROR(INDEX($M$1:$O$3,MOD(MAX(INDEX((F1:H2=A1)*(COLUMN($A$2:$C$3)*100+ROW($A$2:$C$3)),0,0)),100),INT(MAX(INDEX((F1:H2=A1)*(COLUMN($A$2:$C$3)*100+ROW($A$2:$C$3)),0,0))/100)),"")

A8セルに次の数式を設定して右と下へコピーします。
=IFERROR(INDEX($M$1:$O$3,MOD(MAX(INDEX((F1:H3=A2)*(COLUMN($A$1:$C$3)*100+ROW($A$1:$C$3)),0,0)),100),INT(MAX(INDEX((F1:H3=A2)*(COLUMN($A$1:$C$3)*100+ROW($A$1:$C$3)),0,0))/100)),"")

お礼

新年早々、回答頂きありがとうございます。

＞データの1行目が上の行が無いので「左上」、「上」、「右上」が検出できません。
＞従って、関数で処理するには1行目のみ特例になります。

「左上」、「上」、「右上」が付かないと目的の達成ができません。
またよろしくお願いします。

回答No.1

SI299792

このように質問が多いので、かすを増やした場合の改造点も挙げておきます。
'
Option Explicit
'
Sub Macro1()
'
　　Dim Table As Variant
　　Dim Cell1 As Range
　　Dim Cell2 As Range
　　Dim Index As Integer
'
　　Table = Array("左上", "上", "右上", "左", "中央", "右", "左下", "下", "右下", "無し")
　　[1:1].Insert
'
　　For Each Cell1 In [A2:E24]
'　　　 ここで範囲指定をする。実際の範囲より１段下を指定。
　　　　Index = 0
　　　　If Cell1 > "00" Then
'
　　　　　　For Each Cell2 In Cell1.Offset(-1, 5).Resize(3, 3)
'　　　　　　　 ここの５が横の数字がいくつあるか
　　　　　　　　If Cell1 = Cell2 Then
　　　　　　　　　　Exit For
　　　　　　　　End If
　　　　　　　　Index = Index + 1
　　　　　　Next Cell2
　　　　　　Cell1.Offset(24) = Table(Index)
' ここの24で、結果を24桁下に表示
　　　　End If
　　Next Cell1
'
　　[1:1].Delete
End Sub

補足

新年早々、早速の回答頂きありがとうございます。
今年もよろしくお願いします。
そして、私の質問パターンを考慮してソースにコメント文までつけて頂きありがとうございます。
そんな中、大変恐縮ですが、質問文での期待する回答と頂いた回答結果が少し違います。
質問文での期待する回答は下記のとおりです。
１つ目の検索結果は、”A25から下にA1~E5までの数字25個を縦に並べて右側に検索結果を載せる。”ですので、
下記のようになるかと思います。
11：無し
3：中央
2：無し
5：下
1：右
16：無し
4：中央
　　：
　　：
以下、E5まで続く。

２つ目～４つ目の5×5の結果は同様に以下のとおりに載せたいです。
　・2つ目の検索結果は、C25から下にA7~E11までの数字25個を縦に並べて右側に検索結果を載せる。
　・3つ目の検索結果は、E25から下にA13~E17までの数字25個を縦に並べて右側に検索結果を載せる。
　・4つ目の検索結果は、G25から下にA19~E23までの数字25個を縦に並べて右側に検索結果を載せる。

今頂いた回答の左側に検索した数字を載せる方法でもよいです。