六个数每三个一组无重复,求excel公式,我手动算出20组,求自动。_百度知 ...

发布网友发布时间：2024-08-19 14:43

共2个回答

热心网友时间：2024-08-25 12:50

Sub 排列组合() 'C(6,3)
Dim a, b, c As Integer
For a = 1 To 4
For b = a + 1 To 5
For c = b + 1 To 6
ActiveCell.FormulaR1C1 = "'" & a & "-" & b & "-" & c
ActiveCell.Offset(1, 0).Select
Next c
Next b
Next a
End Sub
1

热心网友时间：2024-08-25 12:46

=COMBIN(6,3)

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com