能否依据行总和与列总和填写单元格？求公式或VBA脚本

当然可以做到！不过首先得明确一个核心前提：所有行总和的累加值必须等于所有列总和的累加值，不然这个问题没有可行解。比如你提到的35行+5列的场景，35行的总和加起来得刚好等于5×300=1500，要是不匹配，不管用什么方法都填不出符合要求的数值。

下面分几种场景给你具体的解决方案：

场景1：快速生成一个满足条件的基础解（非唯一解） #

如果只需要一个符合要求的填充方案，不需要特定规则，比例分配法是最简单的选择，思路是把每行的总和按比例分配到各列：

1. 先计算该行总和占所有行总累加值的比例：行占比 = 当前行总和 / 所有行总和的总和
2. 每个单元格的数值 = 对应列的总和 × 该行的占比

举个例子，假设第1行总和是300，所有行总累加值是1500，那该行占比就是300/1500=0.2，每列总和是300，那第1行每列的数值就是300×0.2=60，刚好和你第一个例子的结果一致。

如果用Excel公式实现，假设：

• 行总和放在A36:A70（35行数据）
• 列总和放在B31:F31（5列的目标总和）
• 所有行总和的累加值存在G31（公式=SUM(A36:A70)）

那第1行第1列的单元格（B36）可以用这个公式：

=ROUND((A36/$G$31)*B$31, 2)

下拉+右拉就能填充所有单元格，ROUND函数是为了避免浮点精度带来的微小误差，你可以根据需要调整小数位数。

场景2：需要灵活调整（比如手动填部分单元格后自动补全） #

如果需要手动指定部分单元格的数值，剩下的自动计算，或者需要满足额外规则（比如非负数、整数），可以用Excel自带的规划求解工具：

1. 先加载规划求解：点击「文件」→「选项」→「加载项」→「转到」→勾选「规划求解加载项」→确定
2. 选中需要填充的35×5的单元格区域作为可变单元格
3. 添加约束条件：
   • 每行的单元格总和等于对应的行总和（比如SUM(B36:F36)=A36）
   • 每列的单元格总和等于对应的列总和（比如SUM(B36:B70)=B31）
   • （可选）添加其他约束，比如单元格数值≥0或单元格为整数
4. 点击「求解」，Excel会自动生成一个符合所有约束的解

场景3：用VBA脚本自动化处理 #

如果需要批量处理或者重复执行这个操作，下面是一个实用的VBA脚本。假设你的数据布局是：

• 行总和在A2:A36（35行，A2到A36）
• 列总和在B1:F1（5列，B1到F1）
• 需要填充的区域是B2:F36

Sub FillCellsByRowColTotals()
    Dim rowTotals As Range, colTotals As Range, fillArea As Range
    Dim totalOverall As Double, rowProportion As Double
    Dim rowIdx As Integer, colIdx As Integer
    
    ' 请根据你的实际工作表和单元格范围修改这里
    Set rowTotals = ThisWorkbook.Sheets("Sheet1").Range("A2:A36")
    Set colTotals = ThisWorkbook.Sheets("Sheet1").Range("B1:F1")
    Set fillArea = ThisWorkbook.Sheets("Sheet1").Range("B2:F36")
    
    ' 计算所有行总和的累加值
    totalOverall = Application.Sum(rowTotals)
    
    ' 校验行总和与列总和是否匹配
    If totalOverall <> Application.Sum(colTotals) Then
        MsgBox "行总和的累加值与列总和的累加值不相等，无法生成有效解！", vbExclamation
        Exit Sub
    End If
    
    ' 按比例填充每个单元格
    For rowIdx = 1 To rowTotals.Rows.Count
        rowProportion = rowTotals.Cells(rowIdx, 1).Value / totalOverall
        For colIdx = 1 To colTotals.Columns.Count
            fillArea.Cells(rowIdx, colIdx).Value = Round(colTotals.Cells(1, colIdx).Value * rowProportion, 2)
        Next colIdx
    Next rowIdx
    
    MsgBox "填充完成！", vbInformation
End Sub

使用步骤：

1. 打开Excel，按Alt+F11打开VBA编辑器
2. 右键点击你的工作表→插入→模块
3. 粘贴上面的代码，修改区域定义为你实际的单元格范围
4. 按F5运行宏，或者回到Excel里通过「开发工具」→「宏」来执行

最后补充一点：除了行数等于列数且行/列总和都严格确定的特殊情况外，这类问题通常有无数个可行解。上面的方法都是生成其中一个符合要求的解，如果你需要特定规则的解（比如所有单元格都是整数、非负数），可以在规划求解或VBA里添加对应的约束条件。

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