我需要一种方法在跨列循环中使用 SUM

问：

我有许多列也想做同样的事情，即总结、平均和舍入。

这可行，但我想将 7 个总结语句包含在下面的循环中。我不知道（也无法找出）您如何使用索引描述范围：

' Summarize
Cells(x + 2, 23) = Application.WorksheetFunction.Sum(Range("W2:W" & x + 1))
Cells(x + 2, 24) = Application.WorksheetFunction.Sum(Range("X2:X" & x + 1))
Cells(x + 2, 25) = Application.WorksheetFunction.Sum(Range("Y2:Y" & x + 1))
Cells(x + 2, 26) = Application.WorksheetFunction.Sum(Range("Z2:Z" & x + 1))
Cells(x + 2, 27) = Application.WorksheetFunction.Sum(Range("AA2:AA" & x + 1))
Cells(x + 2, 28) = Application.WorksheetFunction.Sum(Range("AB2:AB" & x + 1))
Cells(x + 2, 29) = Application.WorksheetFunction.Sum(Range("AC2:AC" & x + 1))
' Average and round
For y = 23 To 29
' Average
    Cells(x + 3, y) = Cells(x + 2, y) / x
' Rounded
    Cells(x + 4, y) = Round((Cells(x + 3, y)), 0)
Next

我尝试了各种结构，我希望使用更少的语句来解决问题。