Shortcut for Permutations with Repetition

[mlarson]

Hi all, in the excerpt of a code below I am trying to enter all permutations of 4 things. Is there a shortcut to do this without typing out all 256 permutations with repetition (4^4 = 256)? Thanks for your help!

If Col = 1 Then
Ary = Array (1, 1, 1, 1)
ElseIf Col = 2 Then
Ary = Array (1, 1, 1, 1)
ElseIf Col = 3 Then
Ary = Array (1, 1, 1, 1)
ElseIf Col = 4 Then
Ary = Array (1, 2, 3, 4)

 

[cerfani]

this will print all combos...

Sub h()
    Dim r As Long, a As Long, b As Long, c As Long, d As Long
    r = 1
    
    For a = 1 To 4
    For b = 1 To 4
    For c = 1 To 4
    For d = 1 To 4
        Cells(r, 1) = a & b & c & d
        r = r + 1
    Next d
    Next c
    Next b
    Next a
    
End Sub

you can build an array instead of printing, just modify the code

 

[mlarson]

Thanks, cerfani! I'll play around and modify that and let you know if I have any follow-up questions, and will let you know how well it works. Thanks again!

 

[cerfani]

No prob!

 

[mlarson]

cerfani, how exactly would I modify the code to build an array? I'm a novice when it comes to coding.

 

[cerfani]

Sub h()
    Dim a As Long, b As Long, c As Long, d As Long
    Dim arrays As New Collection

    For a = 1 To 4
    For b = 1 To 4
    For c = 1 To 4
    For d = 1 To 4
        arrays.Add Array(a, b, c, d)
    Next d
    Next c
    Next b
    Next a

    'all your arrays are in the arrays collection
End Sub

one example, i put all the arrays into another array... you can decide what to do with them but the arrays collection can reference each array using index 0 - 255

 

[mlarson]

Thank you, cerfani. Appreciate that help.