Excel数字组合

Excel数字组合,excel,numbers,combinations,formula,Excel,Numbers,Combinations,Formula,谁能帮我在Excel上创建包括1到75个数字在内的5个数字的70种不同组合 我试过这个: =LARGE(行($1:$75)*NOT(COUNTIF($2:A2,行($1:$75))),randtween(1,(75+2-1)-行(A2)) 不幸的是,在组合中有许多零。我如何使它不会有零 范例 2,39,45,12,14 74,23,8,40,66 1,7,29,39,11。我已经给你写了一个宏 Sub Macro1() Dim number As Integer number = 0 Dim t

谁能帮我在Excel上创建包括1到75个数字在内的5个数字的70种不同组合

我试过这个:

=LARGE(行($1:$75)*NOT(COUNTIF($2:A2,行($1:$75))),randtween(1,(75+2-1)-行(A2))

不幸的是,在组合中有许多零。我如何使它不会有零

范例

2,39,45,12,14

74,23,8,40,66


1,7,29,39,11。

我已经给你写了一个宏

Sub Macro1()
Dim number As Integer
number = 0
Dim total As Integer
total = 0
For i = 1 To 70
    For j = 1 To 5
        Cells(i, j).Value = 0
    Next j
Next i
For i = 1 To 70
    total = 0
    For j = 1 To 5
        Cells(i, j).Value = Int((75) * Rnd + 1)
        total = total + Cells(i, j).Value
    Next j
    For k = i + 1 To 70
        number = 0
        For m = 1 To 5
            number = number + Cells(k, m).Value
        Next m
        If number = total And number > 0 Then
            i = i - 1
        End If
    Next k
Next i
End Sub
我必须道歉,我的代码有点不合逻辑,因为检查每一行的总和将消除一些可能不同的组合,但它确实保证了唯一性。

在A1中:

=RANDBETWEEN(1,15)  
在B1中,并复制到E1:

=RANDBETWEEN(A1+1,15*column())  

将A1:E1复制到A100,选择全部,将特殊值粘贴到顶部,删除重复项并删除第71行。

数字
40
中有一个零。这可以接受吗?@TimBiegeleisen 40属于范围1到75的一部分。当我在Excel中输入公式时,它也会给我0本身。