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