VBA删除行代码异常：误删命名区域行且仅隔行删除

问题根源分析 #

• 隔行删除：正向循环删除行时，每删除一行，下方行会自动上移填补空缺，导致循环变量i递增后跳过了原本要删除的行。
• 误删命名区域行：原代码对var2的范围界定错误，可能导致循环逻辑触及named_range2所在行。

修正代码 #

Sub DeleteAddedRows()
    Dim startRow As Long, endRow As Long
    
    ' 确定删除区域起始行（保留named_range1下方3行默认内容）
    startRow = Range("named_range1").Row + 3
    ' 确定删除区域结束行（严格避开named_range2所在行）
    endRow = Range("named_range2").Row - 1
    
    ' 仅当存在需要删除的行时执行操作
    If startRow <= endRow Then
        ' 反向循环删除，避免行移位导致漏删
        For i = endRow To startRow Step -1
            Rows(i).Delete
        Next i
    End If
End Sub

关键改进点 #

• 反向循环逻辑：从下往上删除行，彻底解决正向删除时行移位导致的隔行漏删问题。
• 精准边界控制：将结束行设为named_range2.Row - 1，确保不会误触重要标题行；新增行存在判断，避免无新增行时执行无效循环。
• 简化操作流程：移除不必要的Select操作，直接删除行，提升代码执行效率和稳定性。

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