[RISOLTA] Permutazioni in Colonne Distinte

Sub permB()
Dim i As Long, j As Long, k As Long, l As Long, m As Long, n As Long
For i = 1 To 6: For j = 1 To 6: For k = 1 To 6
For l = 1 To 6: For m = 1 To 6: For n = 1 To 6
'FillC = ""
If (j = i Or k = i Or k = j Or l = i Or l = j Or l = k Or m = i Or m = j Or m = k Or m = l Or n = m Or n = l Or n = k Or n = j Or n = i) Then GoTo skip
'Range("A65536").End(xlUp).Offset(1, 0) = i & FillC & j & FillC & k & FillC & l & FillC & m & FillC & n
Range("A65536").End(xlUp).Offset(1, 0) = i & j & k & l & m & n
skip:
Next: Next: Next: Next: Next: Next
End Sub

Option Explicit

Sub permB()
Dim i As Long, j As Long, k As Long, l As Long, m As Long, n As Long, a As Long, b As Long
For i = 1 To 6
  b = i: a = 0
  For j = 1 To 6
    For k = 1 To 6
      For l = 1 To 6
        For m = 1 To 6
          For n = 1 To 6
            If (j = i Or k = i Or k = j Or l = i Or l = j Or l = k Or m = i Or m = j Or m = k Or m = l Or n = m Or n = l Or n = k Or n = j Or n = i) Then GoTo skip
            a = a + 1
            Cells(a, b) = i & j & k & l & m & n
skip:
          Next
        Next
      Next
    Next
  Next
Next
End Sub