EXCEL裏的編程問題，有關組合

運行以下宏，結果在A2:A57

Sub combinxx()

n = 2

For i = 1 To 4

For j = i + 1 To 5

For k = j + 1 To 6

For l = k + 1 To 7

For m = l + 1 To 8

Range("a" & n) = Cells(1, i) & "," & Cells(1, j) & "," & Cells(1, k) & "," & Cells(1, l) & "," & Cells(1, m)

n = n + 1

Next

Next

Next

Next

Next

End Sub