XLS VBA :如何每周对一行中的所有值求和，并在接下来的几周内执行该操作

Sub SumRowValues()
    Dim currentRow As Range
    Dim sumRange As Range
    Dim sumResult As Double
    Dim i As Integer
    
    ' 设置当前行范围
    Set currentRow = ActiveSheet.Range("A1:Z1")
    
    ' 设置求和范围，从第二列开始
    Set sumRange = currentRow.Offset(0, 1)
    
    ' 初始化求和结果
    sumResult = 0
    
    ' 循环遍历求和范围中的每个单元格
    For i = 1 To sumRange.Columns.Count
        sumResult = sumResult + sumRange.Cells(1, i).Value
    Next i
    
    ' 在当前行的下一行输出求和结果
    currentRow.Offset(1, 0).Value = "Sum:"
    currentRow.Offset(1, 1).Value = sumResult
    
    ' 在接下来的几周内重复执行该操作
    For i = 2 To 4
        currentRow.Offset(i, 0).Value = "Week " & i - 1 & " Sum:"
        currentRow.Offset(i, 1).Value = sumResult
    Next i
End Sub