Excel数字组合答案

【问题标题】：Excel numbers combinationExcel数字组合
【发布时间】：2015-08-05 01:01:58
【问题描述】：

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

我试过这个：

=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.

【问题讨论】：

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

标签： excel numbers combinations formula

【解决方案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

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

【讨论】：

【解决方案2】：

在 A1 中：

=RANDBETWEEN(1,15)

在 B1 中并复制到 E1：

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

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

【讨论】：