Excel VBA问题：根据Sheet2值删除Sheet1对应行仅顶部行生效

原代码存在的问题 #

• 正向循环删除行：当删除第i行后，原第i+1行会上移成为新的第i行，但循环会直接跳到i+1，导致该行被跳过，无法批量处理
• 重复执行相同删除逻辑：两次判断Rev.Cells(i,13).Value = "Yes "并删除，属于冗余代码
• 未指定工作表的删除操作：Rows(i).EntireRow.Delete会操作当前激活的工作表，而非目标的Sheet1（Acc）
• 匹配条件带多余空格："Yes "（末尾有空格）可能与Sheet2中实际的"Yes"（无空格）不匹配，导致判断失效

修正后的代码 #

Sub Coentunnel_Delete_rows()
    Dim Acc As Worksheet
    Dim Rev As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    Set Acc = Worksheets("Sheet1")
    Set Rev = Worksheets("Sheet2")
    
    ' 获取Sheet1的最后一行（避免UsedRange可能的不准确）
    lastRow = Acc.Cells(Acc.Rows.Count, 1).End(xlUp).Row
    
    ' 反向循环：从最后一行往第一行遍历，避免删行后索引混乱
    For i = lastRow To 2 Step -1
        ' 修正匹配条件，去掉多余空格，同时确保文本匹配（忽略大小写可选）
        If Trim(Rev.Cells(i, 13).Value) = "Yes" Then
            ' 明确指定删除Sheet1的行
            Acc.Rows(i).EntireRow.Delete
            ' 若需要同步删除Sheet2的对应行，取消下面这行注释
            ' Rev.Rows(i).EntireRow.Delete
        End If
    Next i
End Sub

关键说明 #

• 反向循环：从最后一行开始往前遍历，即使删除行，前面的行索引不会受影响，确保所有符合条件的行都能被检查到
• 指定工作表操作：用Acc.Rows(i).EntireRow.Delete明确操作Sheet1，避免激活表变化导致的错误
• Trim函数处理空格：Trim(Rev.Cells(i,13).Value)可以去除单元格内容前后的空格，避免因输入时的空格导致匹配失败
• 获取准确最后行：用Cells(Rows.Count,1).End(xlUp).Row比UsedRange.Rows.Count更可靠，避免UsedRange包含空行的情况

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