Excel VBA 如何约束单行所有变量的总和恒定为100%？

首先明确核心疑问的答案：该需求完全不需要为了计算逻辑额外配置随机变量读取同行单元格的特殊规则，逐行随机占比的实现核心是对每一行单独做归一化处理，整个计算过程在单行内部就能形成闭环。

现有测试代码的问题定位 #

• 主过程Randomm存在核心逻辑偏差：
  • 代码将整个F6:R50区域的所有单元格汇总计算全局总和zum，仅单独修改每行F列的数值，没有对每一行做独立的总和校验和缩放，最终每一行的总和根本无法稳定达到100%。
  • 你预先编写的GenerateRandomNumbers函数本身符合逐行归一化的逻辑（生成组内随机值后除以组内总和得到占比），但该函数没有被主过程调用，处于完全未生效的状态。
  • 批量写入RAND()公式再转静态值的操作本身没有问题，只是缺少逐行处理的循环逻辑匹配。

可直接运行的修正代码 #

Sub 逐行生成随机占比()
    Dim rngTarget As Range, rowRegion As Range
    ' 设定需要处理的目标单元格区域
    Set rngTarget = Range("F6:R50")
    ' 统一设置区域百分比显示格式
    rngTarget.NumberFormat = "0.00%"
    
    ' 逐行遍历目标区域
    For Each rowRegion In rngTarget.Rows
        ' 给当前行写入随机生成值
        rowRegion.Formula = "=RAND()"
        ' 将公式转为静态值，避免打开文件时自动重算打乱结果
        rowRegion.Value = rowRegion.Value
        
        ' 计算当前行的数值总和
        Dim currentRowSum As Single
        currentRowSum = WorksheetFunction.Sum(rowRegion)
        
        ' 缩放当前行所有数值，确保行总和恰好为100%
        rowRegion.Value = rowRegion.Value / currentRowSum
    Next
End Sub

关于逻辑适配的补充说明
逐行生成占比的计算全程不需要读取其他行的数值，也不需要给随机变量配置专门的同单元格值读取权限。每一行的计算流程是完全独立的：生成行内的随机值→计算行内数值总和→将行内每个值除以总和完成缩放，整个流程的计算范围始终限定在当前行的单元格内，自然不需要跨行或跨单元格的特殊读取逻辑。你之前编写的GenerateRandomNumbers函数也可以搭配循环使用，效果和上述代码完全一致，只需要逐行将当前行的单元格数量传给函数，再把返回的数组赋值给对应行的单元格即可。

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