Excel/VBA - 遍历范围

Question

我有以下代码：

TotalCount = Application.Sum(Worksheets("Data").Range("B14:G14"))
Sheets("Data").Range("H14") = TotalCount
TotalCount = Application.Sum(Worksheets("Data").Range("B13:G13"))
Sheets("Data").Range("H13") = TotalCount
TotalCount = Application.Sum(Worksheets("Data").Range("B12:G12"))
Sheets("Data").Range("H12") = TotalCount
TotalCount = Application.Sum(Worksheets("Data").Range("B11:G11"))
Sheets("Data").Range("H11") = TotalCount

如您所见...效率不高。问题是，我找不到一个循环解决方案来让它变得更好。当我尝试创建一个循环时，我要么得到我不期望的结果，要么它不起作用。我正处于需要帮助的地步……帮助！提前谢谢你。

Answer 1

这可以用 H 单元格中的公式替换。

或VBA:

Dim i As Long
Dim rngA As Range: Set rngA = Worksheets("Data").Range("B14:G14")
Dim rngB As Range: Set rngB = Worksheets("Data").Range("H14")

For i = 0 To 3
    rngB.Offset(-i, 0).Value = Application.Sum(rngA.Offset(-i, 0))
Next

您还可以：

With Sheets("Data")
    .Range("H14") = Application.Sum(.Range("B14:G14"))
    ....
End With

Answer 2

For i = 1 to 4
    For t = 1 to 6
        TotalCount = Worksheets("Data").Cells(i+10,t+1).Value + TotalCount
    Next t
    Worksheets("Data").Cells(i+10,11).Value = TotalCount
    TotalCount = 0 'reset TotalCount
Next i

只要您不介意宏向相反的方向移动，就应该可以实现您的目标。

Answer 3

我们可以使用循环:

Sub UseLoop()
   With Sheets("Data")
   For i = 11 To 14
      TotalCount = Application.Sum(.Range("B" & i & ":G" & i))
      .Range("H" & i) = TotalCount
   Next i
   End With
End Sub

Answer 4

你不需要循环，只需要一点魔法:)

Worksheets("Data").Range("H11:H14").Formula = "=B:B+C:C+D:D+E:E+F:F+G:G"

如果你不喜欢这个公式添加

Range("H11:H14").Value2 = Range("H11:H14").Value2

Answer 5

或者，只是为了好玩：

Dim i as integer
for i = 14 to 11 step -1
  Sheets("Data").Range("H" & i).Formula = "=SUM(B" & i & ":G" & i)
next

Answer 6

Range("H11:H14").Formula = "=SUM(B11:G11)"

Excel/VBA - 遍历范围

Excel/VBA - Loop through range

excel

vba

loops

range