Excel 中1-20选任意5个数字排列组合怎样做.比如1,2,3,4,5或者1,2,3,4,5,20等等一共有15504个组合吧?并如何在excel表中一一把它列出来,请高手指教.
来源:学生作业帮助网 编辑:六六作业网 时间:2024/10/05 23:33:38
Excel 中1-20选任意5个数字排列组合怎样做.比如1,2,3,4,5或者1,2,3,4,5,20等等一共有15504个组合吧?并如何在excel表中一一把它列出来,请高手指教.
Excel 中1-20选任意5个数字排列组合怎样做.比如1,2,3,4,5或者1,2,3,4,5,20等等
一共有15504个组合吧?并如何在excel表中一一把它列出来,请高手指教.
Excel 中1-20选任意5个数字排列组合怎样做.比如1,2,3,4,5或者1,2,3,4,5,20等等一共有15504个组合吧?并如何在excel表中一一把它列出来,请高手指教.
下面程序只算出组合,没有排列
Sub 组合5in20()
Dim I1, I2, I3, I4, I5, M
M = 0
For I1 = 1 To 16
For I2 = I1 + 1 To 17
For I3 = I2 + 1 To 18
For I4 = I3 + 1 To 19
For I5 = I4 + 1 To 20
M = M + 1
Range("A" & M) = I1: Range("B" & M) = I2: Range("C" & M) = I3: Range("D" & M) = I4: Range("E" & M) = I5
Next
Next
Next
Next
Next
End Sub