Excel VBA代码异常：遍历O列删除不含'apprentice'的行时误删全部仅保留一行'labourer'求助

嗨，我来帮你排查这个问题！你的需求是保留O列中包含'apprentice'（不区分大小写）的行、删除其他行，但结果却几乎删光了所有行，只留下了一行标注'labourer'的，这确实有点奇怪，咱们一步步来分析。

首先看你当前的代码，逻辑框架其实没问题，但有几个可能的坑导致了异常：

• 最后一行获取的兼容性问题：你用Range("O65536").End(xlUp).Row获取最后一行，这是旧版Excel（2003及以前）的写法，新版Excel（2007+）最大行数是1048576，虽然你的情况大概率不是这个原因，但还是建议改成兼容所有版本的写法，避免后续踩坑。
• 隐藏字符/内容导致判断失误：那行'labourer'没被删除，说明InStr(1, LCase(.Value), "apprentice")返回了非0值——很可能是这个单元格里藏了你没注意到的内容，比如末尾有空格、换行符，或者单元格实际内容是labourer apprentice但你只看到了前半部分，甚至可能是公式返回的结果包含目标字符串。
• 列标是否选错：再确认下你要检查的确实是O列，有没有不小心把列标写错成其他列？

接下来给你几个改进方案：

方案一：增加调试输出，排查异常行的问题 #

这段代码会在运行时打印每一行的详细信息，帮你搞清楚为什么'labourer'行没被删除：

Dim RowNum As Long
Dim lastRow As Long

' 兼容所有Excel版本的最后一行获取方式
lastRow = Cells(Rows.Count, "O").End(xlUp).Row

For RowNum = lastRow To 2 Step -1
    With Cells(RowNum, "O")
        ' 打印调试信息到立即窗口
        Debug.Print "行号：" & RowNum & "，内容：" & .Value & "，InStr结果：" & InStr(1, LCase(.Value), "apprentice")
        
        If InStr(1, LCase(.Value), "apprentice") = 0 Then
            .EntireRow.Delete
        End If
    End With
Next RowNum

运行后打开VBA编辑器的立即窗口（按Ctrl+G），重点看那行'labourer'的InStr结果，如果结果大于0，说明单元格里确实包含'apprentice'相关字符，你可以去编辑栏里查看单元格的完整内容。

方案二：更严谨的判断逻辑（处理空白单元格和空格干扰） #

如果想避免空格、空白单元格导致的误判，可以用Trim()去掉内容前后的空格，同时明确处理空白行：

Dim RowNum As Long
Dim lastRow As Long

Application.ScreenUpdating = False ' 关闭屏幕更新，提升运行速度

lastRow = Cells(Rows.Count, "O").End(xlUp).Row

For RowNum = lastRow To 2 Step -1
    With Cells(RowNum, "O")
        ' 先处理空白单元格，再判断是否包含目标字符串
        If Trim(.Value) = "" Then
            .EntireRow.Delete
        ElseIf InStr(1, LCase(Trim(.Value)), "apprentice") = 0 Then
            .EntireRow.Delete
        End If
    End With
Next RowNum

Application.ScreenUpdating = True ' 恢复屏幕更新

另外，操作行删除时关闭ScreenUpdating不仅能让代码运行更快，还能避免屏幕频繁闪烁，体验更好。

最后再提醒下：去检查那行'labourer'的单元格完整内容，选中单元格后看Excel顶部的编辑栏，那里会显示单元格的全部内容，说不定就能找到为什么它没被删除的原因啦！

备注：内容来源于stack exchange，提问作者jacques_412