excel 组合

来源：百度知道 编辑：UC知道 时间：2024/05/28 15:32:00
求1,2,3,4,5,6,7,8,9,10选3个的所有排列组合的EXCEL文件列表,尽量说详细点

复杂的组合要使用VBA实现:

Sub ListCombin()
Dim h, i, j, k As Integer
For h = 1 To 10
For i = h + 1 To 10
For j = i + 1 To 10

ActiveCell.FormulaR1C1 = h & " " & i & " " & j
ActiveCell.Offset(1, 0).Select

Next j
Next i
Next h
End Sub

1 启动Excel
2 按Alt+F11
3 双击左侧的Sheet1
4 在右边粘贴代码
5 回到Excel中，按Alt+F8，选择ListCombin，运行。

查核:在另一个空单元格输入下面公式:
=COMBIN(10,3)
结果是120,与代码运行一致.