vba duplicate!

[gnusmas]

hi friends my objective to find duplicates values from first 3 columns ABC then next BCD NEXT CDF NEXT DFE etc and to transpose them
Sheet 1
A B C D E F G H I J K L M N etc....

03	01	05	02	02	02	02	01
07	02	06	04	03	03	03	02
08	05	07	05	05	05	04	05
11	06	11	06	07	07	06	06
12	07	12	07	17	08	07	07
17	11	15	08	18	09	08	11
18	17	19	10	20	12	10	12
19	18	20	11	21	13	11	13
22	19	22	12	23	15	12	15
23	20	23	17	29	16	14	17
24	23	24	18	30	19	15	19
25	25	27	21	32	21	17	20
27	26	28	22	34	22	19	23
28	27	30	26	35	23	20	24
29	28	31	31	37	25	21	25
31	31	34	32	39	32	27	29
32	32	35	34	40	34	28	32
33	34	36	35	42	35	29	33
37	36	37	36	43	36	32	34
39	37	38	39	44	38	36	35
41	38	39	42	45	40	37	41
42	40	42	44	46	43	38	45
45	43	43	47	48	44	39	46
46	44	44		49	48	45	47
48	45	46
	46	47
	48	49
	49

<colgroup><col span="8"></colgroup><tbody>
</tbody>

Sheet 2

11	19	23	27	28	31	37	46
05	06	11	31	34	36	44
05	34	35	39	42	44
02	05	21	32	34	35	44
02	03	21	32
02	12	15	19	32

<colgroup><col span="8"></colgroup><tbody>
</tbody>

thank you for help

 

[mirabeau]

hi friends my objective to find duplicates values from first 3 columns ABC then next BCD NEXT CDF NEXT DFE etc and to transpose them
...

thank you for help

like this?
although the output you give for sheet 2 doesn't entirely agree wirh your sheet 1 data

Sub same_in_3cols()

Const n& = 50
Dim a, b() As Byte, u&()
Dim i&, j&, k&, s&

For s = 1 To 6
a = Cells(s).Resize(n, 3)
ReDim b(n), u(1 To n): k = 0

For j = 1 To 3
    For i = 1 To n
        If b(a(i, j)) = j - 1 Then b(a(i, j)) = j
    Next i
Next j

For i = 1 To n
    If b(i) = 3 Then k = k + 1: u(k) = i
Next i

Sheets("Sheet2").Cells(s, 1).Resize(, k) = u
Next s

End Sub