Excel 中1-20选任意5个数字排列组合怎样做.比如1,2,3,4,5或者1,2,3,4,5,20等等一共有15504个组合吧?并如何在excel表中一一把它列出来,请高手指教.
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/30 02:16:51
![Excel 中1-20选任意5个数字排列组合怎样做.比如1,2,3,4,5或者1,2,3,4,5,20等等一共有15504个组合吧?并如何在excel表中一一把它列出来,请高手指教.](/uploads/image/z/5497692-60-2.jpg?t=Excel+%E4%B8%AD1-20%E9%80%89%E4%BB%BB%E6%84%8F5%E4%B8%AA%E6%95%B0%E5%AD%97%E6%8E%92%E5%88%97%E7%BB%84%E5%90%88%E6%80%8E%E6%A0%B7%E5%81%9A.%E6%AF%94%E5%A6%821%2C2%2C3%2C4%2C5%E6%88%96%E8%80%851%2C2%2C3%2C4%2C5%2C20%E7%AD%89%E7%AD%89%E4%B8%80%E5%85%B1%E6%9C%8915504%E4%B8%AA%E7%BB%84%E5%90%88%E5%90%A7%3F%E5%B9%B6%E5%A6%82%E4%BD%95%E5%9C%A8excel%E8%A1%A8%E4%B8%AD%E4%B8%80%E4%B8%80%E6%8A%8A%E5%AE%83%E5%88%97%E5%87%BA%E6%9D%A5%2C%E8%AF%B7%E9%AB%98%E6%89%8B%E6%8C%87%E6%95%99.)
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