[aggelaki83]

Γεια σου Χρήστο και πάλι,
Μόλις βρήκα αυτόν τον κωδικά εγώ και βγαίνουν 156 διατάξεις. Παράξενο που έχουμε απόκλιση. Βέβαια εγώ δεν ξέρω να διαβάζω σωστά τον κώδικα οπότε δεν ξέρω αν υπάρχει κάποιο λάθος μέσα. Τον παραθέτω για να τον δεις.

Sub GenerateCombinations()
Dim ws As Worksheet
Dim i As Long, j As Long, k As Long, lRow As Long
Dim letters As String
Dim comb As Variant

' Define the letters
letters = "RIASEC" ' Change this to your letters if different

' Set the worksheet to store the combinations
Set ws = ThisWorkbook.Sheets.Add
ws.Name = "Combinations"

' Initialize row counter
lRow = 1

' Generate all combinations of 1 to 3 letters
For i = 1 To Len(letters)
ws.Cells(lRow, 1).Value = Mid(letters, i, 1)
lRow = lRow + 1
For j = 1 To Len(letters)
If j <> i Then
ws.Cells(lRow, 1).Value = Mid(letters, i, 1) & Mid(letters, j, 1)
lRow = lRow + 1
For k = 1 To Len(letters)
If k <> i And k <> j Then
ws.Cells(lRow, 1).Value = Mid(letters, i, 1) & Mid(letters, j, 1) & Mid(letters, k, 1)
lRow = lRow + 1
End If
Next k
End If
Next j
Next i

' Autofit the column width
ws.Columns("A").AutoFit
End Sub