VBA遍历单元格区域按条件删除行单次运行不完整如何解决？

问题核心原因 #

• 初始遍历范围错误：原代码ws2.Range("A" & LastRow)仅选中最后一行A列单元格，未覆盖完整目标区域
• 正向遍历删除行导致行偏移：使用正向For Each遍历单元格时，删除当前行后下方行会上移填补空缺，下一轮循环会直接跳到偏移后的下一行，导致部分行未被判断，因此需要多次运行才能删完所有不符合条件的行
• VBA没有内置continue关键字，可通过GoTo+标记实现同类效果，但该语法不是本场景的必须项，核心问题是遍历方向错误

修正后可一次性执行完成的代码 #

Sub DeleteRows()
    Dim wb As Workbook: Set wb = ThisWorkbook
    Dim ws As Worksheet, ws2 As Worksheet
    Dim LastRow As Long, i As Long
    Dim id1, id2
    
    Set ws = wb.Sheets("ID_value_source")
    Set ws2 = wb.Sheets("Sheet2")
    
    id1 = ws.Range("A2").Value
    id2 = ws.Range("A3").Value
    
    LastRow = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row
    
    ' 从最后一行倒序遍历到第1行，避免删除行导致的偏移问题
    For i = LastRow To 1 Step -1
        If ws2.Range("A" & i).Value <> id1 And ws2.Range("A" & i).Value <> id2 Then
            ws2.Rows(i).Delete
        End If
    Next i
End Sub

补充：VBA实现类似continue的跳转写法 #

如果需要在其他循环场景中跳过当前迭代进入下一轮，可以使用如下语法：

For Each cell In yourRange
    If 跳过条件 Then GoTo ContinueLoop
    ' 满足执行条件时运行的代码
ContinueLoop:
Next

内容的提问来源于stack exchange，提问作者eM_Sk