Excel - 根据其他 2 列生成随机数

Question

我不确定如何完成以下任务： 在 A 列我有数字，在 B 列我有与这些数字相关联的名称。

我希望能够从 A 列生成一个随机数，但只能从 B 列上没有任何关联的数字生成。例如：如果我在 A1 中有一个数字，但我没有B1中的名称，A1中的数字应该是可以随机生成的数字之一。

如果 A2 有一个数字，并且 B2 不为空（它有一个名称），我不希望 A2 在随机范围内。

此外，能够重新生成随机数（也就是，如果我分配一个数字，比如说 321，我希望能够以某种方式再次生成随机数，但它不应该考虑到 321，因为它已经被分配）。

我很欣赏任何想法。

样本

Answer 1

您可以尝试以下方法：

根据您的示例数据/电子表格，执行以下操作：

1) 在单元格 C1 中：输入值“0”

2) 在 C2 单元格中：输入公式：

=IF(ISBLANK(B2), 1, 0)+OFFSET(C2,-1,0,1,1)

3) 将 C2 中的公式与所有数据一起复制。

4) 将此公式放在要显示 A 列随机 # 的任何位置：

=OFFSET(A1,MATCH(RANDBETWEEN(1,COUNTA(A:A)-COUNTA(B:B)),C:C,0)-1,0,1,1)

Answer 2

我认为您将很难使用工作表函数。这是一种至少在某些时候有效的快速而肮脏的方法---

1. 在两个（或更多）单元格中，添加公式=RANDBETWEEN(COLUMN(A1),COLUMN(D1))，将A1 和D1 替换为数字行中的第一个和最后一个单元格。这将选择随机列号。
2. 为每个单元格指定一个唯一的名称，例如，therand、therand2、...。
3. 在另一个单元格中，这将是您的答案，添加=IF(ISBLANK(INDIRECT(ADDRESS(2,therand))),INDIRECT(ADDRESS(1,therand)),INDIRECT(ADDRESS(1,therand2)))。这将检查第一个随机列号是否对应于空白标签 (ISBLANK(...))，如果是，则使用相应的 row-1 值。如果不是，它将使用第二个随机列号中的第 1 行值。
4. 按 F9 重新计算。

这不会总是给你一个空白标签的单元格。添加更多的随机列号和对应的IF(...) 子句，以减少错误选择的可能性。

编辑：您在原始问题中说“A 行”，但我看到您的意思是“A 列”（而不是“第 1 行”）。您需要转置上述公式中的行和列以使其正常工作。

Answer 3

这是一个 VBA 答案。可以直接作为工作表函数使用：

Function RandUnassigned(R As Range) As Variant
    Application.Volatile
    Dim A As Variant, i As Long, n As Long
    Dim num As Long
    n = R.Rows.Count

    ReDim A(1 To n)
    For i = 1 To n
        If Len(R.Cells(i, 2)) = 0 Then
            num = num + 1
            A(num) = R.Cells(i, 1)
        End If
    Next i
    RandUnassigned = A(Application.WorksheetFunction.RandBetween(1, num))
End Function

这样使用：

每次电子表格执行时都会重新计算。如果您希望它只绘制一次随机数，请从函数定义中删除 Application.Volatile 行。