VBA code to list all permutation of N distinct objects of size r without repetition

[Chyke_mxl]

Hi,
Can someone help me edit this code to list all permutation of n distinct object of size r without repetition. For example, if i have three letters, {A,B,C} to form arrangement of size two, i will get: {A,B}, {A,C}, {B,A}, {B,C}, {C,A} and {C,B}. {A,A}, {B,B} and {C,C} are NOT included..
The vba code is pasted below

Thank you.

Sub Permutations()
Dim rRng As Range, p As Integer
Dim vElements, lRow As Long, vresult As Variant

Set rRng = Range("A1", Range("A1").End(xlDown)) ' The set of numbers
p = Range("B1").Value ' How many are picked

vElements = Application.Index(Application.Transpose(rRng), 1, 0)
ReDim vresult(1 To p)
Columns("C").Resize(, p + 1).Clear
Call PermutationsNP(vElements, p, vresult, lRow, 1, 1)
End Sub

Sub PermutationsNP(vElements As Variant, p As Integer, vresult As Variant, lRow As Long, iElement As Integer, iIndex As Integer)
Dim i As Integer

For i = 1 To UBound(vElements)
vresult(iIndex) = vElements(i)
If iIndex = p Then
lRow = lRow + 1
Range("C" & lRow).Resize(, p) = vresult
Else
Call PermutationsNP(vElements, p, vresult, lRow, i + 1, iIndex + 1)
End If
Next i
End Sub

 

[Gerald Higgins]

Just to be clear, it appears to me that that code does actually work, EXCEPT for the fact that it includes results such as "AA", "BB" and so on.
Is that correct ?
In which case you are looking for a modification that results in "AA", "BB" etc not being included, correct ?

 

[Chyke_mxl]

Just to be clear, it appears to me that that code does actually work, EXCEPT for the fact that it includes results such as "AA", "BB" and so on.
Is that correct ?
In which case you are looking for a modification that results in "AA", "BB" etc not being included, correct ?

Yes, you are correct. I do not want the inclusion of AA, BB, CC.

 

[Gerald Higgins]

And just to clarify further, if r = 3, are these results acceptable . . . ?
AAB
ABA
ABB

 

[Chyke_mxl]

And just to clarify further, if r = 3, are these results acceptable . . . ?
AAB
ABA
ABB

Yes, they are acceptable. But will not include value like {AAA}, {BBB}, and {CCC}

 

[BSALV]

AAB, ABA and ABB aren't permutations of {A,B,C}

 

[Fluff]

Duplicate to: VBA code to list all permutation of N distinct objects of size r without repetition

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread.