搜索请大神做个EXCEL宏代码
5组0,1,2,3,4,5,6,7,8,9所有数字组成的10万组合,都有哪些!比如01235,算1个组合!
最新回答(1条回答)
2023.05.27 回答
Sub GenerateCombinations()
Dim i As Integer, j As Integer, k As Integer
Dim count As Integer
For i = 0 To 9
For j = i + 1 To 9
For k = j + 1 To 9
count = count + 1
Debug.Print i & j & k & " "
Next k
Next j
Next i
Debug.Print "-------"
Next i
MsgBox "Total combinations: " & count
End Sub