Loop set of 3, within 5 results

[motilulla]

Using Excel 2010

Hello, I got lottery results in column D:H approximately 2000+ rows, and set of triples in column K:M, I need a VBA which can loop set of 3… through column D:H and generate the count result in column O as shown in small example below

Count Triples And Find Dealy MrExcel.xlsm
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P
1
2															Results
3															Need VBA
4		Draw S.N		Results											To Count
5		Draw S.N		n1	n2	n3	n4	n5			Triples			Join Triples	Triples
6		1	13/02/2004	16	29	32	36	41			16	29	32	16 | 29 | 32	2
7		2	20/02/2004	16	13	29	32	50			1	2	5	1 | 2 | 5	3
8		3	27/02/2004	01	02	05	31	37			1	2	26	1 | 2 | 26	0
9		4	05/03/2004	01	02	04	05	39			1	4	16	1 | 4 | 16	0
10		5	12/03/2004	15	24	28	44	47			1	4	37	1 | 4 | 37	0
11		6	19/03/2004	33	36	37	42	45			1	5	21	1 | 5 | 21	1
12		7	26/03/2004	03	04	10	23	43			2	7	8	2 | 7 | 8	0
13		8	02/04/2004	04	12	24	27	36			6	29	48	6 | 29 | 48	0
14		9	09/04/2004	01	05	21	19	23			7	22	48	7 | 22 | 48	0
15		10	16/04/2004	01	02	03	04	05			9	12	25	9 | 12 | 25	0
16		11	23/04/2004	06	10	21	45	49			15	18	22	15 | 18 | 22	2
17		12	30/04/2004	05	06	16	23	27			24	27	32	24 | 27 | 32	0
18		13	07/05/2004	15	16	21	36	38			16	29	32	16 | 29 | 32	2
19		14	14/05/2004	01	03	21	32	39			1	2	5	1 | 2 | 5	3
20		15	21/05/2004	15	29	37	39	49			1	2	26	1 | 2 | 26	0
21		16	28/05/2004	06	11	35	41	44			1	4	16	1 | 4 | 16	0
22		17	04/06/2004	09	13	34	41	42			1	4	37	1 | 4 | 37	0
23		18	11/06/2004	15	18	22	10	47			1	5	21	1 | 5 | 21	1
24		19	18/06/2004	02	23	28	40	43			2	7	8	2 | 7 | 8	0
25		20	25/06/2004	03	21	30	34	35			6	29	48	6 | 29 | 48	0
26		21	02/07/2004	04	23	24	28	34			7	22	48	7 | 22 | 48	0
27		22	09/07/2004	15	16	18	19	22			9	12	25	9 | 12 | 25	0
28		23	16/07/2004	24	26	31	38	50			15	18	22	15 | 18 | 22	2
29		24	23/07/2004	07	10	27	31	34			24	27	32	24 | 27 | 32	0
30		25	30/07/2004	09	10	19	37	50			16	29	32	16 | 29 | 32	2
31		26	06/08/2004	05	15	24	35	44			1	2	5	1 | 2 | 5	3
32		27	13/08/2004	20	27	41	43	50			1	2	26	1 | 2 | 26	0
33		28	20/08/2004	06	09	10	27	35			1	4	16	1 | 4 | 16	0
34		29	27/08/2004	01	11	22	28	44			1	4	37	1 | 4 | 37	0
35
36
Sheet1

Regards,
Moti

 

[motilulla]

Hello Phuoc, this is amazing, I tried with my original data as per post#3 layout with 1700+ rows result in column D:H and 65000+ quads in the column K:N, it took only and only 21 second to finish.

I appreciate your help. Have a pleasant time. Good Luck.

Best Regards,
Moti

 

[Phuoc]

You're welcome! Thanks for your feedback.