第1个回答 2010-06-25
楼上的需要稍作改动如下即能满足要求:
Sub Click()
Dim a, b, c, d, e, f, i
i = 1
For a = 1 To 12
For b = a + 1 To 12
For c = b + 1 To 12
For d = c + 1 To 12
For e = d + 1 To 12
For f = e + 1 To 12
Cells(i, 1) = a
Cells(i, 2) = b
Cells(i, 3) = c
Cells(i, 4) = d
Cells(i, 5) = e
Cells(i, 6) = f
i = i + 1
Next f
Next e
Next d
Next c
Next b
Next a
End Sub本回答被提问者采纳
第2个回答 2010-06-25
Sub Click()
Dim a%, b%, c%, d%, e%, f%, i%
For a = 1 To 12
For b = a + 1 To 12
For c = b + 1 To 12
For d = c + 1 To 12
For e = d + 1 To 12
For f = e + 1 To 12
i = i + 1
Cells(i, 1) = a & "," & b & "," & c & "," & d & "," & e & "," & f
Next f
Next e
Next d
Next c
Next b
Next a
End Sub