vba在两张纸之间循环

所以我有这个挑战。 但首先给你一点信息：p从1到24。

当p是1，并且Cells（X，4）> 0时，我希望将所有值都存储为true（在将2000行循环下来的情况下可能会出现这种情况），并将其值存储在Worksheets（“myvalues” ）.Cells（6，11）.Value = a。

在此之后，我想p是2，然后执行相同的操作，并将这些总和存储到工作表（“myvalues”）。单元格（7,11）。值= a。

等到p是24（包括24）

Option Explicit Sub main() Dim x As Integer Dim rowshift As Integer Dim a As Double Dim b As Integer, p as Integer For x = 2 To 2000 If Worksheets("DATA").Cells(x, 2) = p And Worksheets("DATA").Cells(x, 4) > 0 Then a = a+ Worksheets("DATA").Cells(x, 5) p=p+1 End If For rowshift = 6 to 29 Worksheets("myvalues").Cells(rowshift, 11).Value = a 

Answer 1

这可能做你想要的吗？

 Sub Main() Dim TargetRow As Long Dim Spike As Double Dim p As Integer Dim R As Long TargetRow = 6 For p = 1 To 24 For R = 2 To 2000 With Worksheets("DATA").Rows(R) If (.Cells(2).Value = p) And (.Cells(4).Value > 0) Then Spike = Spike + .Cells(5).Value End If End With Next R Worksheets("MyValues").Cells(TargetRow, 11).Value = Spike Spike = 0 TargetRow = TargetRow + 1 Next p End Sub 

Answer 2

获得相当于Excel的公式

 =SUMIFS(Data!$E$2:$E$2000,Data!$B$2:$B$2000,ROW()-5,Data!$D$‌​2:$D$2000,">0") 

使用VBA，我build议你改变你的代码在一个循环内有一个循环

 Option Explicit Sub main() Dim x As Long Dim rowshift As Long Dim a As Double For rowshift = 6 to 29 a = 0 For x = 2 To 2000 If Worksheets("DATA").Cells(x, 2) = rowshift - 5 And _ Worksheets("DATA").Cells(x, 4) > 0 Then a = a + Worksheets("DATA").Cells(x, 5) End If Next Worksheets("myvalues").Cells(rowshift, 11).Value = a Next End Sub 

Answer 3

我认为你需要设置p值。 请试试这个完整的代码。

 Option Explicit Sub main() Dim x As Integer Dim rowshift As Integer Dim a As Double Dim b As Integer, p as Integer p = 1 For x = 2 To 2000 a = 0 If p < 25 Then If Worksheets("DATA").Cells(x, 2) = p And Worksheets("DATA").Cells(x, 4) > 0 Then a = a+ Worksheets("DATA").Cells(x, 5) p=p+1 End If End If If a > 0 Then For rowshift = 6 to 29 Worksheets("myvalues").Cells(rowshift, 11).Value = a Next rowshift End If Next x