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，直到不再有cell = 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

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

当满足条件时重置for循环vba

1 个答案: