８方向との数字の差が０か１の場合にセルを塗潰す方法
どなたかご存知でしたら回答をお願いします。
【質問】
例題の様に6×6のセルが２つあり、それぞれ１~９９迄の数字がランダムに重複有りで入っています。
左上から右下へセルの数字を１つずつ中心にして見た場合、
８方向（上、下、左、右、右下、左下、右上、左上）の数字との差が０と１の場合に、
黄色に塗潰す方法が知りたいです。
【例題】
A Ｂ Ｃ Ｄ Ｅ Ｆ Ｇ Ｈ Ｉ Ｊ Ｋ Ｌ Ｍ
1 01 11 15 18 20 25 04 05 08 27 38 42
2 03 26 30 31 34 41 01 02 09 26 27 29
3 05 16 20 22 37 41 03 08 23 24 25 39
4 02 07 17 25 28 38 04 22 23 29 33 34
5 08 17 21 23 24 36 02 06 26 29 30 37
6 04 05 09 12 24 42 22 23 29 35 36 37
【結果】
A1~F6で塗る潰される数字 H1~M6で塗潰される数字
30 31 41 04 05 08 27
41 01 02 09 26 27
25 03 23 24 25 22
23 24 23 29 33 34 29
04 05 24 29 35 36 37
●説明
A1~F6で23、24（2か所）、25が塗潰される理由。
(1)セルD4の25から見た８方向にある数字は20、22、37、17、28、21、23、24なので、
25との数字の差が０か１となる数字としては、24なので、24のセルが塗潰される。
(2)セルD5の23から見た８方向にある数字は17、25、28、21、24、9、12、24なので、
23との数字の差が０か１となる数字としては24なので、右の24と右下の24のセルが
塗潰される。
(3)セルE5の24から見た８方向にある数字は25、28、38、23、36、12、24、42なので、
24との数字の差が０か１となる数字としては25と24なので、左上の25と下の24のセルが 塗潰される。
(4)セルE6の24から見た８方向にある数字は23、24、36、12、42なので、
24との数字の差が０か１となる数字としては23と24なので、左上の23と上の24のセルが
塗潰される。
【注意事項】
・使用するエクセルは２０１０です。
・セルの中の数字は２桁で表しています。（例：1ではなく01）
・6×6のセルの位置は下記のとおりです。
１個目の6×6マス・・・A1~F6
２個目の6×6マス・・・H1~M6
※G列は空白列として空けています。
・回答はＶＢでも関数でも構いません。
以上、よろしくお願いします。
