入力した値の周りの数字を出力する方法

質問

どなたかご存知でしたら回答をよろしくお願いします。
【質問】
　５×６のセルがあり、その中にはランダムに数字が１つ入っています（重複有り）。
　下記の様に入力値１～６に値を入れたら、５×６のセルを検索する。
　検索できたら、その数字の周りにある数字を出力ゾーンに出力する。
　検索できない場合は何もしない。

　★-------　　　以下は具体的に入力値１～６を入れた場合の説明です。　----------★　

　　「入力値1」に08を入れたら、５×６のセルの中の、08の周りにある
　　　　　　　　05、04、07、19、23、20、21、09を出力ゾーンに出力する。
　　「入力値２」に41を入れたら、５×６のセルの中の、41の周りにある
　　　　　　　　38、30、37を出力ゾーンに出力する。
　　「入力値３」に37を入れたら、５×６のセルの中の、3箇所ある37の周りにある
　　　　　　　　41、38、30、35、43、39、36、29、18、28を出力ゾーンに出力する。
　　「入力値４」に29を入れたら、５×６のセルの中の、29の周りにある
　　　　　　　　24、20、23、15、18、37、35、30を出力ゾーンに出力する。
　　「入力値5」に03を入れたら、５×６のセルの中の、03の周りにある
　　　　　　　　01、06、12を出力ゾーンに出力する。
　　「入力値6」に23を入れたら、５×６のセルの中の、23の周りにある
　　　　　　　　20、08、19、06、15、18、29、24を出力ゾーンに出力する。　　　

　【５×６のセル】　　　【入力ゾーン】　【出力ゾーン】
05 09 21 25 38 41　　　　入力値１：08　　05　04　07　19　23　20　21　09　　　
04 08 20 24 30 37　　　　入力値２：41　　38　30　37
07 19 23 29 35 43　　　　入力値３：37　 41　38　30　35　43　39　36　29　18　28
01 06 15 18 37 39　　　　入力値４：29　 24　20　23　15　18　37　35　30
03 12 17 28 36 37　　　　入力値５：03　 01　06　12
　　　　　　　　　　　　入力値６：23　　20　08　19　06　15　18　29　24　

【備考】
　 ・使用する数字は１～９９迄で、５×６のセルにはその中からランダムに選んだ数字が
　　　重複有りで入っています。
　　・使用するエクセルは２０１０です。

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

回答No.3

mt2015 · ベストアンサー

変数宣言やエラー処理を行っていない手抜き版です。
A6:F6およびG2:G6が空白である必要が有ります。

Sub Sample()
　　sDat = ""
　　'出力先をクリア
　　Range(Range("I1"), Range("I1").End(xlToRight)).ClearContents
　　nTarget = Range("G1").Value '入力値

　　For Each c In Range("A1:F5").Cells
　　　　If c.Value = nTarget Then
　　　　　　'範囲内に入力値が見つかったら周囲の値をカンマ区切りの文字列として取得
　　　　　　sDat = sDat & fGet(c.Row, c.Column, nTarget)
　　　　End If
　　Next
　　'重複の無い「周囲の値」を作る
　　Set sDic = CreateObject("Scripting.Dictionary")
　　sDataSplit = Split(sDat, ",")
　　For i = 0 To UBound(sDataSplit)
　　　　sDic(sDataSplit(i)) = 1
　　Next i
　　'I1から右に貼り付け
　　sPasteData = sDic.keys
　　Range(Range("I1"), Cells(1, 7 + sDic.Count)) = sDic.keys

End Sub

Function fGet(nRow, nCol, nTarget) As String
　　nGrow = WorksheetFunction.Max(nRow - 1, 1)
　　nGCol = WorksheetFunction.Max(nCol - 1, 1)
　　fGet = ""
　　'入力値の周囲の値のうち、空や入力値と同一のものを除いてカンマ区切りの文字列化
　　For Each c In Range(Cells(nGrow, nGCol), Cells(nRow + 1, nCol + 1)).Value
　　　　If (IsEmpty(c) = False) And (c <> nTarget) Then
　　　　　　fGet = fGet & c & ","
　　　　End If
　　Next
End Function

お礼

さっそくのご回答いただきありがとうございました。
付けて頂いた結果と同じになりました。
ありがとうございました。

回答No.5

SI299792

〇【５×６のセル】 　ＡＢＣＤＥ
となっていますが、データは
05 09 21 25 38 41
と６個あります。
〇【６×６のセル】ＡＢＣＤＥＦ
の間違いでは？
〇【入力ゾーン】Ｈ
〇【出力ゾーン】ＪＫＬＭＮ～Ｚ
の間違いかもしれません。
それとも、ランダム数字と入力ゾーンにはスペースがないのですか？
又は、データの方が間違っているのでしょうか。

回答No.4

mt2015

訂正です。
ANo.3の以下の一行は不要でした（あっても無駄なだけで悪さはしません）。
sPasteData = sDic.keys

回答No.2

mt2015

5×6セルの中に入力値と一致する値が複数隣接して有った場合、「周りにある数字」が重複しますがそれはどうしたいのでしょう？
重複して表示？それとも重複させない？
以下の例で入力値が8だった場合、1,7,13,14,15,8,3,2,2,8,14,15,16,10,4,3と表示したいのか、
1,7,13,14,15,8,3,2,16,10,4 なのか、はたまた入力値と同じ8は除くのか。

1 2 3 4 5 6
7 8 8 10 11 12
13 14 15 16 17 18
19 20 21 22 23 24
25 26 27 28 29 30

どちらにしてもVBAでやる事になりますが良いんでしょうか？

補足

補足です。
周りの数字が重複したら、重複削除して出力します。

回答No.1

SI299792

どう考えても、マクロでないとできません。
マクロでもいいかどうか、
【５×６のセル】【入力ゾーン】【出力ゾーン】がどの位置にあるのか。（別シートにあるならシート名も）書いて下さい。

補足

補足です。
【５×６のセル】【入力ゾーン】【出力ゾーン】は全て同じシートにあります。
〇【５×６のセル】
　ＡＢＣＤＥ
1
2
3
4
5
6
〇【入力ゾーン】
　G
1
〇【出力ゾーン】
　ＩＪＫＬＭＮ~Ｚ
1
2
3
4
5
6