基于行列总和生成符合约束的非负随机数（Excel VBA需求）

需要在表格蓝色区域填充非负随机数，满足两个核心约束：

• 第3行中C列至R列（C3:R3）的求和结果等于B3单元格的数值124
• C列中第3行至第26行（C3:C26）的求和结果等于C2单元格的数值705

注：生成的随机数必须为非负数。

现有代码的局限性 #

你提供的VBA代码无法满足需求，主要问题包括：

• 仅处理了C至G列，未覆盖约束要求的C至R列范围
• 仅实现了每行B列数值的拆分逻辑，未考虑列方向的全局求和约束
• 没有针对双重约束（行总和+列总和）的协调处理逻辑

修正后的VBA解决方案 #

以下代码可同时满足行、列的双重求和约束，生成符合要求的非负随机数：

Sub GenerateConstrainedRandomNumbers()
    Dim ws As Worksheet
    Dim targetRowSum As Long, targetColSum As Long
    Dim startRow As Long, endRow As Long, startCol As Long, endCol As Long
    Dim r As Long, c As Long
    Dim remaining As Long, maxPossible As Long
    
    ' 配置核心参数
    Set ws = ThisWorkbook.Worksheets("SPLIT BY DAYS")
    targetRowSum = ws.Range("B3").Value ' 行目标总和：124
    targetColSum = ws.Range("C2").Value ' 列目标总和：705
    startRow = 3
    endRow = 26
    startCol = 3 ' C列
    endCol = 18 ' R列对应的列编号
    
    ' 清空目标区域旧值
    ws.Range(ws.Cells(startRow, startCol), ws.Cells(endRow, endCol)).Value = 0
    
    ' 第一步：填充主体区域（除最后一行、最后一列）的随机数
    For r = startRow To endRow - 1
        For c = startCol To endCol - 1
            ' 计算当前单元格可分配的最大数值：不超过行剩余额度，也不超过列剩余额度
            maxPossible = Application.Min( _
                targetColSum - Application.WorksheetFunction.Sum(ws.Columns(c).Rows(startRow).Resize(r - startRow + 1)), _
                targetRowSum - Application.WorksheetFunction.Sum(ws.Rows(r).Columns(startCol).Resize(c - startCol + 1)) _
            )
            If maxPossible > 0 Then
                ws.Cells(r, c).Value = Int(Rnd() * (maxPossible + 1))
            End If
        Next c
        ' 补全当前行最后一列，确保行总和达标
        remaining = targetRowSum - Application.WorksheetFunction.Sum(ws.Rows(r).Columns(startCol).Resize(endCol - startCol))
        ws.Cells(r, endCol).Value = remaining
    Next r
    
    ' 第二步：补全最后一行，确保每列总和达标
    For c = startCol To endCol
        remaining = targetColSum - Application.WorksheetFunction.Sum(ws.Columns(c).Rows(startRow).Resize(endRow - startRow))
        ws.Cells(endRow, c).Value = remaining
    Next c
    
    ' 验证最后一行总和是否符合要求（参数冲突时会触发提示）
    If Application.WorksheetFunction.Sum(ws.Rows(endRow).Columns(startCol).Resize(endCol - startCol + 1)) <> targetRowSum Then
        MsgBox "参数冲突：无法同时满足行、列约束，请检查目标值是否合理。"
    End If
End Sub

代码逻辑说明 #

1. 初始化：清空目标区域旧值，避免干扰计算
2. 主体随机填充：遍历除最后一行、最后一列的单元格，生成不超过当前行/列剩余额度的非负随机数
3. 行内补全：每行最后一列用剩余值填充，确保该行总和等于目标值
4. 列内补全：最后一行用每列剩余值填充，确保该列总和等于目标值
5. 参数验证：检查最后一行总和是否符合要求，若不符合则提示参数冲突（当行总和×行数≠列总和×列数时会出现）

关键注意事项 #

• 必须确保全局总数值一致：124 × 24（行3-26共24行）= 705 × 16（列C-R共16列），否则无法同时满足两个约束
• 若需要生成非整数随机数，可将Int(Rnd() * (maxPossible + 1))改为Rnd() * maxPossible并调整数值精度

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