满足条件时重置for循环vba答案

【问题标题】：Reset a for loop when a condition is met vba满足条件时重置for循环vba
【发布时间】：2016-01-28 04:29:20
【问题描述】：

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

这是我的代码：

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。另外，我不想删除有空单元格的行。

谢谢！！

【问题讨论】：

其他方法见HERE

标签： excel vba

【解决方案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

向后循环。这将处理所有重复项，并且不需要多次运行。
将 0 更改为 "0" 这将强制它找到 0 而不是空单元格。

【讨论】：