Hello @DanteAmor, could you please take a look my request under the following link.
www.mrexcel.com
---Where I did request in my opening post “I want to make copies of 13 rows of 2 lines sets using =COMBIN(13,2) = means total 78 combinations like copy line1&2, 1&3, 1&4, 1&5, 1&6 so on up to 78 combinations.)---
But now I want to make copies of 12 rows of 6 lines sets using =COMBIN(12,6) = means total 924 combinations like copy line1&2&3&4&5&6, 1&2&3&4&5&7, 1&2&3&4&5&8 and so on up to 924 combinations. Please can you modify the code so it can work with the current layout?
Regards,
Kishan

Combin copy total 78 sets
Using Excel 2000 Hi, I got my data in the range A6:AX18 there are 13 lines “row6 to row18” 24 columns “A to AX” I want to make copies of 13 rows of 2 lines sets using =COMBIN(13,2) = means total 78 combinations like copy line1&2, 1&3, 1&4, 1&5, 1&6 so on up to 78 combinations. Copy start...
VBA Code:
Sub combin_13_2()
Dim a As Variant, b As Variant
Dim i As Long, j As Long, k As Long, m As Long, n As Long
a = Range("A6:AX18").Value
n = WorksheetFunction.Combin(13, 2) * 3
ReDim b(1 To n, 1 To UBound(a, 2))
For i = 1 To UBound(a, 1)
For j = i + 1 To UBound(a, 1)
m = m + 1
For k = 1 To UBound(a, 2)
b(m, k) = a(i, k)
b(m + 1, k) = a(j, k)
Next
m = m + 2
Next
Next
Range("A25").Resize(UBound(b, 1), UBound(b, 2)).Value = b
End Sub
But now I want to make copies of 12 rows of 6 lines sets using =COMBIN(12,6) = means total 924 combinations like copy line1&2&3&4&5&6, 1&2&3&4&5&7, 1&2&3&4&5&8 and so on up to 924 combinations. Please can you modify the code so it can work with the current layout?
Kishan Index.xlsx | |||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
A | B | C | D | E | F | G | H | I | J | K | L | M | N | O | P | Q | R | S | T | U | V | W | X | Y | Z | AA | |||
1 | |||||||||||||||||||||||||||||
2 | |||||||||||||||||||||||||||||
3 | |||||||||||||||||||||||||||||
4 | Serial Numbers | EM | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | ||
5 | Serial Numbers | EM | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | ||
6 | 1 | N.X | 1 | N.X | N.X | 1 | N.X | N.X | N.X | N.X | 1 | N.X | N.X | N.X | N.X | N.X | N.X | N.X | N.X | N.X | 1 | 2 | 3 | 4 | 5 | 6 | |||
7 | 2 | N.X | N.X | N.X | N.X | 1 | 2 | N.X | N.X | N.X | N.X | N.X | N.X | N.X | N.X | 1 | N.X | 1 | N.X | N.X | 1 | 2 | 3 | 4 | 5 | 6 | |||
8 | 3 | N.X | N.X | N.X | N.X | 1 | 2 | 3 | N.X | N.X | N.X | N.X | 1 | N.X | N.X | 1 | 2 | 3 | N.X | 1 | 2 | 3 | 4 | 5 | 6 | 7 | |||
9 | 4 | N.X | N.X | N.X | N.X | N.X | 1 | 2 | N.X | 1 | N.X | N.X | 1 | 2 | 3 | 4 | 5 | 6 | N.X | 1 | 2 | 3 | 4 | 5 | 6 | 7 | |||
10 | 5 | N.X | N.X | N.X | N.X | 1 | N.X | 1 | N.X | 1 | N.X | N.X | N.X | 1 | 2 | 3 | 4 | N.X | N.X | N.X | 1 | 2 | 3 | 4 | 5 | 6 | |||
11 | 6 | 1 | N.X | N.X | 1 | 2 | N.X | 1 | N.X | N.X | N.X | 1 | 2 | 3 | N.X | 1 | N.X | N.X | N.X | N.X | 1 | 2 | 3 | 4 | 5 | 6 | |||
12 | 7 | 1 | N.X | N.X | 1 | N.X | N.X | N.X | 1 | N.X | N.X | 1 | 2 | N.X | N.X | 1 | N.X | N.X | 1 | N.X | 1 | 2 | 3 | 4 | 5 | 6 | |||
13 | 8 | 1 | N.X | N.X | N.X | N.X | N.X | N.X | 1 | N.X | 1 | N.X | 1 | N.X | N.X | N.X | N.X | N.X | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | |||
14 | 9 | N.X | 1 | N.X | N.X | 1 | N.X | N.X | N.X | N.X | 1 | 2 | 3 | N.X | 1 | N.X | N.X | N.X | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | |||
15 | 10 | 1 | 2 | N.X | 1 | 2 | N.X | N.X | N.X | N.X | 1 | 2 | N.X | N.X | 1 | 2 | 3 | N.X | 1 | N.X | 1 | 2 | 3 | 4 | 5 | 6 | |||
16 | 11 | 1 | 2 | N.X | 1 | 2 | 3 | N.X | N.X | N.X | N.X | N.X | N.X | 1 | N.X | 1 | 2 | 3 | N.X | N.X | 1 | 2 | 3 | 4 | 5 | 6 | |||
17 | 12 | 1 | 2 | N.X | N.X | 1 | 2 | N.X | 1 | N.X | N.X | 1 | 2 | 3 | N.X | 1 | 2 | 3 | N.X | 1 | 2 | 3 | 4 | 5 | 6 | 7 | |||
18 | |||||||||||||||||||||||||||||
19 | |||||||||||||||||||||||||||||
20 | |||||||||||||||||||||||||||||
21 | |||||||||||||||||||||||||||||
22 | |||||||||||||||||||||||||||||
23 | |||||||||||||||||||||||||||||
24 | Serial Numbers | EM | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | ||
25 | 1 | N.X | 1 | N.X | N.X | 1 | N.X | N.X | N.X | N.X | 1 | N.X | N.X | N.X | N.X | N.X | N.X | N.X | N.X | N.X | 1 | 2 | 3 | 4 | 5 | 6 | |||
26 | 2 | N.X | N.X | N.X | N.X | 1 | 2 | N.X | N.X | N.X | N.X | N.X | N.X | N.X | N.X | 1 | N.X | 1 | N.X | N.X | 1 | 2 | 3 | 4 | 5 | 6 | |||
27 | 3 | N.X | N.X | N.X | N.X | 1 | 2 | 3 | N.X | N.X | N.X | N.X | 1 | N.X | N.X | 1 | 2 | 3 | N.X | 1 | 2 | 3 | 4 | 5 | 6 | 7 | |||
28 | 4 | N.X | N.X | N.X | N.X | N.X | 1 | 2 | N.X | 1 | N.X | N.X | 1 | 2 | 3 | 4 | 5 | 6 | N.X | 1 | 2 | 3 | 4 | 5 | 6 | 7 | |||
29 | 5 | N.X | N.X | N.X | N.X | 1 | N.X | 1 | N.X | 1 | N.X | N.X | N.X | 1 | 2 | 3 | 4 | N.X | N.X | N.X | 1 | 2 | 3 | 4 | 5 | 6 | |||
30 | 6 | 1 | N.X | N.X | 1 | 2 | N.X | 1 | N.X | N.X | N.X | 1 | 2 | 3 | N.X | 1 | N.X | N.X | N.X | N.X | 1 | 2 | 3 | 4 | 5 | 6 | |||
31 | |||||||||||||||||||||||||||||
32 | 1 | N.X | 1 | N.X | N.X | 1 | N.X | N.X | N.X | N.X | 1 | N.X | N.X | N.X | N.X | N.X | N.X | N.X | N.X | N.X | 1 | 2 | 3 | 4 | 5 | 6 | |||
33 | 2 | N.X | N.X | N.X | N.X | 1 | 2 | N.X | N.X | N.X | N.X | N.X | N.X | N.X | N.X | 1 | N.X | 1 | N.X | N.X | 1 | 2 | 3 | 4 | 5 | 6 | |||
34 | 3 | N.X | N.X | N.X | N.X | 1 | 2 | 3 | N.X | N.X | N.X | N.X | 1 | N.X | N.X | 1 | 2 | 3 | N.X | 1 | 2 | 3 | 4 | 5 | 6 | 7 | |||
35 | 4 | N.X | N.X | N.X | N.X | N.X | 1 | 2 | N.X | 1 | N.X | N.X | 1 | 2 | 3 | 4 | 5 | 6 | N.X | 1 | 2 | 3 | 4 | 5 | 6 | 7 | |||
36 | 5 | N.X | N.X | N.X | N.X | 1 | N.X | 1 | N.X | 1 | N.X | N.X | N.X | 1 | 2 | 3 | 4 | N.X | N.X | N.X | 1 | 2 | 3 | 4 | 5 | 6 | |||
37 | 7 | 1 | N.X | N.X | 1 | N.X | N.X | N.X | 1 | N.X | N.X | 1 | 2 | N.X | N.X | 1 | N.X | N.X | 1 | N.X | 1 | 2 | 3 | 4 | 5 | 6 | |||
38 | |||||||||||||||||||||||||||||
39 | 1 | N.X | 1 | N.X | N.X | 1 | N.X | N.X | N.X | N.X | 1 | N.X | N.X | N.X | N.X | N.X | N.X | N.X | N.X | N.X | 1 | 2 | 3 | 4 | 5 | 6 | |||
40 | 2 | N.X | N.X | N.X | N.X | 1 | 2 | N.X | N.X | N.X | N.X | N.X | N.X | N.X | N.X | 1 | N.X | 1 | N.X | N.X | 1 | 2 | 3 | 4 | 5 | 6 | |||
41 | 3 | N.X | N.X | N.X | N.X | 1 | 2 | 3 | N.X | N.X | N.X | N.X | 1 | N.X | N.X | 1 | 2 | 3 | N.X | 1 | 2 | 3 | 4 | 5 | 6 | 7 | |||
42 | 4 | N.X | N.X | N.X | N.X | N.X | 1 | 2 | N.X | 1 | N.X | N.X | 1 | 2 | 3 | 4 | 5 | 6 | N.X | 1 | 2 | 3 | 4 | 5 | 6 | 7 | |||
43 | 5 | N.X | N.X | N.X | N.X | 1 | N.X | 1 | N.X | 1 | N.X | N.X | N.X | 1 | 2 | 3 | 4 | N.X | N.X | N.X | 1 | 2 | 3 | 4 | 5 | 6 | |||
44 | 8 | 1 | N.X | N.X | N.X | N.X | N.X | N.X | 1 | N.X | 1 | N.X | 1 | N.X | N.X | N.X | N.X | N.X | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | |||
Hoja1 |
Regards,
Kishan