下面的宏在当前工作表填充数据:
Sub 生成组合()
Dim I As Integer, J As Integer, K As Integer, L As Integer, M As Integer, N As Integer, Row As Long
Dim R As Range
Set R = Range("A1")
[a1] = "序号"
[b1] = "数字1"
[c1] = "数字2"
[d1] = "数字3"
[e1] = "数字4"
[f1] = "数字5"
[g1] = "数字6"
Row = 1
For I = 0 To 9
For J = I + 1 To 9
For K = J + 1 To 9
For L = K + 1 To 9
For M = L + 1 To 9
For N = M + 1 To 9
R.Offset(Row, 0).Value = Row
R.Offset(Row, 1).Value = I
R.Offset(Row, 2).Value = J
R.Offset(Row, 3).Value = K
R.Offset(Row, 4).Value = L
R.Offset(Row, 5).Value = M
R.Offset(Row, 6).Value = N
Row = Row + 1
Next
Next
Next
Next
Next
Next
End Sub
温馨提示:答案为网友推荐,仅供参考