VBA批量删除非指定内容行失效求助：遍历仅单次删一行

核心原因 #

不是设备问题，是正向遍历删除行时的索引移位bug：
用For Each从前往后遍历单元格时，一旦删除某一行，Excel会把下方所有行上移一行填补空缺。比如刚删了第3行，原来的第4行就变成新的第3行，但For Each会直接跳到下一个原索引位置（新的第4行），导致新的第3行被彻底跳过。这就是为什么每次运行只删部分行，得反复执行才能删干净。

优化方案 #

推荐两种高效解决方式，既解决遗漏问题，又能提升处理速度：

方案1：反向遍历行 #

从最后一行往前倒着遍历，删除行不会影响前面未遍历的行位置，避免遗漏：

'Delete everything that isn't Customer Owned from Column F

'Dynamically get the last row number
Dim Last_InstallStatus As Long
Last_InstallStatus = Cells(Rows.Count, 6).End(xlUp).Row

Dim i As Long
'从最后一行往第2行倒着遍历
For i = Last_InstallStatus To 2 Step -1
    If Cells(i, 6).Value <> "Customer Owned" Then
        Rows(i).Delete
    End If
Next i

方案2：批量选中后一次性删除（效率最高） #

先把所有要删的行收集到一个Range对象里，最后一次性删除，大幅减少Excel的界面刷新次数，处理大数量数据时速度提升明显：

'Delete everything that isn't Customer Owned from Column F

'Dynamically get the last row number
Dim Last_InstallStatus As Long
Last_InstallStatus = Cells(Rows.Count, 6).End(xlUp).Row

Dim deleteRange As Range
Dim cell As Range

For Each cell In Range("F2:F" & Last_InstallStatus)
    If cell.Value <> "Customer Owned" Then
        '将目标行加入待删除范围
        If deleteRange Is Nothing Then
            Set deleteRange = cell.EntireRow
        Else
            Set deleteRange = Union(deleteRange, cell.EntireRow)
        End If
    End If
Next cell

'一次性删除所有目标行
If Not deleteRange Is Nothing Then
    deleteRange.Delete
End If

额外提示 #

方案2的效率远高于逐个删除（包括反向遍历），完全契合你“减少等待时间”的需求，数据量越大，优势越明显。

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