Find Duplicate

[gnusmas]

Hi Friend i have sheet with the following values my last range is a refenrence.
I need <acronym title="visual basic for applications">vba</acronym> code to find duplicate IF the neighbors values "+1" OR "-1".
Exemple:

11	12	14	22	31	47
06	13	28	29	42	43
21	23	27	28	33	48
01	05	11	20	22	30
16	18	24	29	36	44

<tbody>
</tbody>

16	25	34	41	45	47
15	32	35	36	42	47
06	08	27	28	31	47
13	14	20	28	29	33
09	11	16	19	42	44

<tbody>
</tbody>

Sheet 2 Result

29

28

20

<tbody>
</tbody>

28

28

19 28 33 48 <tbody> </tbody>

<tbody>
</tbody>

	47
29	33

<tbody>
</tbody>

Etc...

Thank you for Help!!

 

[oldbrewer]

clear as mud to me

define neighbours

are neighbours up down left right and diagonal

no takers after this time means people do not understand what you want usually....

 

[gnusmas]

Thank you friend I apreciate your help !!
Yes the neighbours are up down left right and diagonal!!
Another exemple :

01	02	12	30	40	47
09	10	17	18	22	47
01	21	30	36	45	48
04	06	20	29	31	37
13	20	24	25	29	44

<tbody>
</tbody>

11	12	14	22	31	47
06	13	28	29	42	43
21	23	27	28	33	48
01	05	11	20	22	30
16	18	24	29	36	44

<tbody>
</tbody>

30 36 45 in range A1:F5

29 36 44 in range A7:F11

Ray = Array(Array(0, 1), Array(1, 1), Array(1, 0), Array(1, -1), Array(0, -1), Array(-1, -1), Array(-1, 0), Array(-1, 1))

I hope you understand my exemple!

 

[oldbrewer]

why is 36 listed as its neighbours are 17 18 22 30 45 20 39 41

 

[gnusmas]

30 36 45 in range A1:F5

30 36 45 in range A7:F11

"36" in the second exemple and it is duplicate when you look the values left and right the neighbors +1,-1
30 36 45
29 36 44
I hope it help you!!

 

[oldbrewer]

36 IN A1:F5 does not have 37 or 35 as a neighbour