如何用Excel生成7列随机数使其和匹配指定单元格值

前提说明 #

首先要确保目标单元格（如C4）的数值在合理范围内：0 ≤ 目标值 ≤ 84（因为7个0-12的整数最大和为7×12=84），超出这个范围无法生成符合要求的随机数。

方法1：Excel公式法（适用于Excel 365/2021等支持动态数组的版本） #

结合LET、RANDARRAY、BYROW函数实现，核心逻辑是先随机生成前6个符合范围的数，再计算第7个数，若第7个数不在0-12范围内则重新生成。

以处理D4:J10区域（对应C4:C10为目标值）为例，在D4单元格输入以下公式：

=BYROW(C4:C10,LAMBDA(target,
    LET(
        gen_num, RANDARRAY(1,6,0,MIN(12,target),TRUE),
        seventh, target - SUM(gen_num),
        IF(AND(seventh>=0,seventh<=12), HSTACK(gen_num, seventh), "")
    )
))

• 若生成的第7个数不符合0-12范围，单元格会返回空，按F9刷新即可重新生成。
• 生成符合要求的数值后，可复制区域并右键选择粘贴值来固定结果。

方法2：VBA宏法（适用于所有Excel版本） #

如果需要自动批量生成且无需手动刷新，可使用VBA脚本：

1. 按Alt+F11打开VBA编辑器，插入新模块，粘贴以下代码：

Sub GenerateRandomSumNumbers()
    Dim targetRng As Range, outputRng As Range
    Dim row As Integer, col As Integer
    Dim sumVal As Integer, currentSum As Integer
    Dim nums(1 To 7) As Integer
    Dim valid As Boolean
    
    ' 根据实际情况修改工作表和区域范围
    Set targetRng = ThisWorkbook.Sheets("Sheet1").Range("C4:C10")
    Set outputRng = ThisWorkbook.Sheets("Sheet1").Range("D4:J10")
    
    For row = 1 To targetRng.Rows.Count
        sumVal = targetRng.Cells(row, 1).Value
        ' 校验目标值范围
        If sumVal < 0 Or sumVal > 84 Then
            outputRng.Rows(row).ClearContents
            GoTo NextRow
        End If
        
        valid = False
        Do While Not valid
            currentSum = 0
            ' 生成前6个0-12的随机整数
            For col = 1 To 6
                nums(col) = Int((13) * Rnd)
                currentSum = currentSum + nums(col)
            Next col
            ' 计算第7个数
            nums(7) = sumVal - currentSum
            ' 验证第7个数是否符合范围
            If nums(7) >= 0 And nums(7) <= 12 Then
                valid = True
            End If
        Loop
        ' 将结果写入对应行
        outputRng.Rows(row).Value = nums
NextRow:
    Next row
End Sub

2. 修改代码中的工作表名称（Sheet1）和区域范围（C4:C10、D4:J10）为你的实际数据区域。
3. 运行宏即可自动生成符合要求的随机数，需要重新生成时再次运行宏即可。

内容的提问来源于stack exchange，提问作者Karthik S