如何用VBA按条件删除Excel行？现有代码无法完全删除目标行求助

原代码问题分析 #

• 正向循环删除行导致遗漏：删除第N行后，第N+1行会自动上移到第N行位置，但循环会继续执行到N+1，直接跳过了原本的第N+1行。
• 未处理重复行：原代码仅判断了A、B列值相同的情况，完全没覆盖重复行的删除需求。
• 语法与变量问题：With ThisWorkbook.Worksheets("Table10").Activate 用法错误，Activate 是方法不能放在With语句中；rows5 定义为Variant 不合适，应改为Integer；rowsend 用Integer 可能因行数超出范围报错，建议用Long。

正确VBA代码实现 #

以下代码会先删除所有A列与B列值相同的行，再删除A+B组合重复的行（仅保留首次出现的唯一行）：

Sub DeleteTargetRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 直接指定目标工作表，避免依赖Activate
    Set ws = ThisWorkbook.Worksheets("Table10")
    
    ' 获取B列最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    ' 1. 从下往上循环删除A、B列值相同的行
    For i = lastRow To 1 Step -1
        If ws.Cells(i, "A").Value = ws.Cells(i, "B").Value Then
            ws.Rows(i).Delete
        End If
    Next i
    
    ' 更新最后一行行号（因为已删除部分行）
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    ' 2. 删除A+B组合重复的行，保留首次出现的行
    ' 若数据无表头，将Header参数改为xlNo
    ws.Range("A1:B" & lastRow).RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
End Sub

代码说明 #

• 反向循环删除：从最后一行往上遍历，避免删除行后行号错乱，确保每一行都能被检查到。
• 直接引用工作表：不用Activate切换工作表，代码更稳定，避免操作错误。
• RemoveDuplicates快速去重：通过指定A、B两列作为判断依据，一键删除重复组合行，效率远高于循环判断。
• 更新行号：删除A=B的行后重新获取最后一行行号，保证后续去重范围准确。

执行代码后，即可得到你需要的结果：所有A列与B列值相同的行被删除，A+B组合重复的行仅保留唯一一行。

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