满足条件时重置for循环vba

每当条件满足时，我想在一个循环中重置一个计数器。

在这里我的代码：

Set report = Workbooks("Rapports").Worksheets("Relevé_" & Client & "_" & Datereport2) For i = 1 To 11 'pas auto VM1 = report.Range("G" & i + 11).Value VM2 = report.Range("H" & i + 11).Value If VM1 = 0 And VM2 = 0 Then report.Rows(i + 11 & ":" & i + 11).Delete End If Next end sub 

当行被删除，我想重新启动我在1，直到没有更多的单元= 0。此外，我不想删除有空单元格的行。

谢谢 ！！

Answer 1

两个变化：

 Set report = Workbooks("Rapports").Worksheets("Relevé_" & Client & "_" & Datereport2) For i = 11 To 1 Step -1 'pas auto VM1 = report.Range("G" & i + 11).Value VM2 = report.Range("H" & i + 11).Value If VM1 = "0" And VM2 = "0" Then report.Rows(i + 11 & ":" & i + 11).Delete End If Next End Sub 

1. 向后循环。 这将照顾任何重复，不需要运行多次。

2. 将0改为"0"这将迫使它find0而不是空的单元格。