Question

任何人都可以帮我创建70个不同的5个数字组合，包括1到75个Excel吗？

我试过这个：

= LARGE（ROW（$ 1：75 $）* NOT（COUNTIF（$ A $ 2：A2，ROW（$ 1：$ 75））），RANDBETWEEN（1，（75 + 2-1）-ROW（A2 ）））

不幸的是，在组合中有很多零。我怎么能这样做它不会有零？

示例

2,39,45,12,14

74,23,8,40,66

1,7,29,39,11。

Answer 1

我写了一个宏

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

我必须道歉，我的代码有点不合逻辑，因为检查每一行的总和将消除一些本来不同的组合，但它确实保证了唯一性。

Answer 2

在A1：

=RANDBETWEEN(1,15)

在B1中并复制到E1：

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

将A1：E1复制到A100，选择全部，在顶部粘贴特殊值删除重复项并从中删除第71行。

Excel数字组合

2 个答案: