Combin copy total 924 sets

Kishan · Jul 9, 2023

Hello @DanteAmor, could you please take a look my request under the following link.

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...

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.)---

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

1

N.X

1

N.X

1

2

3

4

5

6

7

2

N.X

1

2

N.X

1

N.X

1

N.X

1

2

3

4

5

6

8

3

N.X

1

2

3

N.X

1

N.X

1

2

3

N.X

1

2

3

4

5

6

7

9

4

N.X

1

2

N.X

1

N.X

1

2

3

4

5

6

N.X

1

2

3

4

5

6

7

10

5

N.X

1

N.X

1

N.X

1

N.X

1

2

3

4

N.X

1

2

3

4

5

6

11

6

1

N.X

1

2

N.X

1

N.X

1

2

3

N.X

1

N.X

1

2

3

4

5

6

12

7

1

N.X

1

N.X

1

N.X

1

2

N.X

1

N.X

1

N.X

1

2

3

4

5

6

13

8

1

N.X

1

N.X

1

N.X

1

N.X

1

2

3

4

5

6

7

8

14

9

N.X

1

N.X

1

N.X

1

2

3

N.X

1

N.X

1

2

3

4

5

6

7

8

15

10

1

2

N.X

1

2

N.X

1

2

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

1

N.X

1

2

3

N.X

1

2

3

4

5

6

17

12

1

2

N.X

1

2

N.X

1

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

1

N.X

1

N.X

1

N.X

1

N.X

1

2

3

4

5

6

26

2

N.X

1

2

N.X

1

N.X

1

N.X

1

2

3

4

5

6

27

3

N.X

1

2

3

N.X

1

N.X

1

2

3

N.X

1

2

3

4

5

6

7

28

4

N.X

1

2

N.X

1

N.X

1

2

3

4

5

6

N.X

1

2

3

4

5

6

7

29

5

N.X

1

N.X

1

N.X

1

N.X

1

2

3

4

N.X

1

2

3

4

5

6

30

6

1

N.X

1

2

N.X

1

N.X

1

2

3

N.X

1

N.X

1

2

3

4

5

6

31

32

1

N.X

1

N.X

1

N.X

1

N.X

1

2

3

4

5

6

33

2

N.X

1

2

N.X

1

N.X

1

N.X

1

2

3

4

5

6

34

3

N.X

1

2

3

N.X

1

N.X

1

2

3

N.X

1

2

3

4

5

6

7

35

4

N.X

1

2

N.X

1

N.X

1

2

3

4

5

6

N.X

1

2

3

4

5

6

7

36

5

N.X

1

N.X

1

N.X

1

N.X

1

2

3

4

N.X

1

2

3

4

5

6

37

7

1

N.X

1

N.X

1

N.X

1

2

N.X

1

N.X

1

N.X

1

2

3

4

5

6

38

39

1

N.X

1

N.X

1

N.X

1

N.X

1

2

3

4

5

6

40

2

N.X

1

2

N.X

1

N.X

1

N.X

1

2

3

4

5

6

41

3

N.X

1

2

3

N.X

1

N.X

1

2

3

N.X

1

2

3

4

5

6

7

42

4

N.X

1

2

N.X

1

N.X

1

2

3

4

5

6

N.X

1

2

3

4

5

6

7

43

5

N.X

1

N.X

1

N.X

1

N.X

1

2

3

4

N.X

1

2

3

4

5

6

44

8

1

N.X

1

N.X

1

N.X

1

N.X

1

2

3

4

5

6

7

8

Hoja1

Regards,
Kishan

GlennUK · Jul 24, 2023

Why have you asked that only one specific person answers this?

Kishan · Sep 18, 2023

GlennUK said:
Why have you asked that only one specific person answers this?

Hello GlennUK, it is just because he solved me the similar query this was just a modification of the same. I am sorry if I have hurt anyone.

Have a nice day.

Kind Regards,
Kishan

GlennUK · Sep 25, 2023

Hi Kisha, it's not about hurting anyone, other than yourself. People are less likely to help if they assume that you already have someone helping you is all. I assume you'd rather have anybody help on this?

Combin copy total 924 sets

Kishan

Well-known Member

Combin copy total 78 sets

Excel Facts

GlennUK

Well-known Member

Kishan

Well-known Member

GlennUK

Well-known Member

Similar threads

Forum statistics

Share this page

Combin copy total 924 sets

Kishan

Well-known Member

Combin copy total 78 sets

Excel Facts

GlennUK

Well-known Member

Kishan

Well-known Member

GlennUK

Well-known Member

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock