满足条件 vba 时重置 for 循环

Question

我想在每次满足条件时在循环中重置计数器。

这是我的代码：

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 处重新启动 i，直到没有更多的单元格 = 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" 这将强制它查找0而不是空单元格。