发布网友 发布时间:2024-10-24 17:51
共1个回答
热心网友 时间:2024-11-05 18:47
Sub Click()
Dim a, b, c, d, e, f, i
i = 1
For a = 1 To 10
For b = a + 1 To 10
For c = b + 1 To 10
For d = c + 1 To 10
Cells(i, 1) = a
Cells(i, 2) = b
Cells(i, 3) = c
Cells(i, 4) = d
i = i + 1
Next d
Next c
Next b
Next a
End Sub