如何修改VBA累积求和函数以实现多列批量计算？

现有包含SumOffset1函数的VBA代码可正常运行，能在单元格(5,2)得到正确结果（计算起始于单元格(3,3)）。需要修改代码，使其能在单元格(5,3)（计算起始于单元格(3,4)）及后续对应列中输出正确结果。

原工作代码 #

Sub commulative()
   
    Dim i As Integer
    For i = 0 To 5
        If Cells(4, 2) <= SumOffset1(i) Then
            Cells(5, 2) = (i - 1) * 5 + (Cells(4, 2) - SumOffset1(i - 1)) / (Cells(3, i + 2) / 5)    
            Exit For
        End If     
    Next i
 
End Sub

Function SumOffset1(iteration As Integer) As Double
    Dim sum As Double   
    Dim j As Integer   
    For j = 1 To iteration
        sum = sum + Cells(3, 2).Offset(0, j)
    Next j
   
    SumOffset1 = sum
End Function

用户尝试的错误修改代码 #

Sub commulative()
   
    Dim i As Integer 
    For i = 0 To 5
        If Cells(4, k) <= SumOffset1(i) Then       
            Cells(5, k)= (i - 1) * 5 + (Cells(4, k) - SumOffset1(i - 1)) / (Cells(3, i + k) / 5)                                 
            Exit For
        End If  
    Next i 

End Sub

Function SumOffset1(iteration As Integer) As Double
    Dim sum As Double
    Dim j As Integer
   
    For j = 1 To iteration   
        sum = sum + Cells(3, k).Offset(0, j)       
    Next j
   
    SumOffset1 = sum
End Function

注：此代码未定义变量k，且函数未接收列参数，导致无法正常运行。

正确修改方案 #

核心思路是让函数和子过程支持动态列参数，通过传递目标列号实现多列计算：

Sub commulative()
    Dim i As Integer
    Dim k As Integer
    ' 遍历需要处理的列，这里示例为第2列到第4列，可按需调整范围
    For k = 2 To 4
        For i = 0 To 5
            If Cells(4, k) <= SumOffset1(i, k) Then
                Cells(5, k) = (i - 1) * 5 + (Cells(4, k) - SumOffset1(i - 1, k)) / (Cells(3, i + k) / 5)
                Exit For
            End If
        Next i
    Next k
End Sub

Function SumOffset1(iteration As Integer, colOffset As Integer) As Double
    Dim sum As Double
    Dim j As Integer
    sum = 0
    For j = 1 To iteration
        ' 根据传入的列偏移，从Cells(3,colOffset)的下一列开始累加
        sum = sum + Cells(3, colOffset).Offset(0, j)
    Next j
    SumOffset1 = sum
End Function

关键修改点 #

• 在commulative过程中添加列遍历循环For k = 2 To 4，指定需要处理的列范围
• 给SumOffset1函数新增参数colOffset As Integer，接收当前处理的目标列号
• 所有单元格引用中，静态列号（原代码中的2）替换为动态参数k，确保每列计算对应正确的起始位置
• 每次累加前重置sum为0，避免残留值影响计算结果

代码逻辑说明 #

1. 外层循环遍历目标列k，从第2列到第4列（可自行修改范围）
2. 内层循环保持原有判断逻辑，但所有列相关的引用都使用当前列k
3. SumOffset1函数根据传入的colOffset（即当前列k），从Cells(3,k)的偏移1位置开始，累加iteration次单元格值

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