Excel VBA实现V列条件赋值：12万表格批量替代Solver

一、公式方案（适合单表快速验证） #

如果仅做单表测试，可按以下步骤操作：

1. 初始比例分配：在V2单元格输入=MIN(T2, DEMAND*T2/SUM(T:T))，下拉填充整列。这一步会按T列数值占比分配DEMAND，同时保证每个V值不超过对应T列的上限。
2. 处理剩余量：计算=DEMAND - SUM(V:V)得到剩余未分配的量。如果结果为0，直接完成；若有剩余，手动将剩余量逐个分配给仍有容量（T>V）的单元格，直到总和达标。不过这种方法手动操作多，不适合12万张表的批量场景。

二、VBA宏方案（批量处理首选） #

以下是可直接运行的VBA代码，能自动遍历所有工作表完成赋值：

Sub BatchAssignVColumn()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim totalT As Double
    Dim demand As Double
    Dim remaining As Double
    Dim i As Long
    
    ' 遍历工作簿中所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 假设DEMAND存放在每个工作表的A1单元格，可根据实际位置修改
        demand = ws.Range("A1").Value
        lastRow = ws.Cells(ws.Rows.Count, "T").End(xlUp).Row
        
        ' 计算当前表T列的总和
        totalT = Application.Sum(ws.Range("T2:T" & lastRow))
        
        ' 若DEMAND超过T列总和，直接跳过并提示
        If demand > totalT Then
            MsgBox "工作表" & ws.Name & "：DEMAND超过T列总和，无法完成分配", vbExclamation
            GoTo NextSheet
        End If
        
        ' 第一步：按比例分配，确保V≤对应T值
        For i = 2 To lastRow
            ws.Range("V" & i).Value = Application.Min(ws.Range("T" & i).Value, demand * ws.Range("T" & i).Value / totalT)
        Next i
        
        ' 第二步：分配剩余量，确保总和等于DEMAND
        remaining = demand - Application.Sum(ws.Range("V2:V" & lastRow))
        i = 2
        Do While remaining > 0 And i <= lastRow
            ' 当前单元格还有余量时，分配1（若需小数精度，可改为0.01等更小单位）
            If ws.Range("T" & i).Value > ws.Range("V" & i).Value Then
                ws.Range("V" & i).Value = ws.Range("V" & i).Value + 1
                remaining = remaining - 1
            End If
            i = i + 1
            ' 到最后一行后从头循环，直到剩余量为0
            If i > lastRow Then i = 2
        Loop
        
NextSheet:
    Next ws
    MsgBox "批量处理完成", vbInformation
End Sub

代码说明 #

• 需根据实际情况修改demand = ws.Range("A1").Value，将A1替换为DEMAND值所在的单元格位置。
• 先按比例分配保证不超上限，再通过循环分配剩余量，确保最终总和完全匹配DEMAND。
• 若DEMAND为小数，可将代码中的+1改为对应精度的数值（如+0.01），适配小数场景。

三、批量处理注意事项 #

• 运行宏前务必备份文件，避免数据丢失。
• 12万张表建议分批次处理（比如每次处理1万张），防止内存溢出导致程序崩溃。

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