Excel / VBA - 循环遍历 [英] Excel/VBA - Loop through range

问题描述

我有以下代码：

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

正如你所看到的那样，效率不是很高。问题是，我找不到一个循环解决方案，使之更好。当我尝试创建一个循环，我得到的结果，我不会期望或它不工作。我在我需要一些帮助的帮助下...帮助！谢谢你提前。

As you can see... it's not very efficient. Problem is, i cant find a loop solution to make it better. When i try to create a loop i either get results i dont expect or it doesnt work. I'm at the point where i need some help... help! And thank you in advance.

推荐答案

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

只要你不介意宏在相反的方向，那应该达到你想要的。

As long as you don't mind the macro going in the opposite direction, that should achieve what you're looking for.

这篇关于Excel / VBA - 循环遍历的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！