为何3-4万行数据集U列含“TUN”单元格无法被下述VBA全部删除？

看起来你的代码在处理3-4万行的大数据集时，因为依赖不稳定的手动选择、固定范围操作，导致漏删了很多目标行。我来帮你梳理问题并给出可靠的修复方案：

原代码的核心问题 #

• 依赖Select和End(xlDown)：Range(Selection, Selection.End(xlDown))会在遇到空行时直接停止，3-4万行的数据大概率存在空行，导致后面的行根本没被选中。
• 固定范围限制：代码里硬写了A3:AB30000，但你的数据集有3-4万行，超过30000的部分直接被忽略了；而且筛选后的可见行不一定集中在这个范围，逻辑完全不匹配。
• 筛选步骤冗余混乱：先执行Selection.AutoFilter再重新设置范围筛选，多余的操作容易引发状态错误。

修复后的可靠代码 #

Sub DeleteTUNRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim filterRange As Range
    
    ' 指定要操作的工作表（建议替换成你的实际表名）
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 关闭屏幕更新，大幅提升大数据集的处理速度
    Application.ScreenUpdating = False
    
    ' 取消现有筛选（避免之前的筛选状态干扰）
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    ' 动态获取U列最后一行的行号，自动适配3-4万行的数据集
    lastRow = ws.Cells(ws.Rows.Count, "U").End(xlUp).Row
    
    ' 设置完整的筛选范围：从A1表头到X列最后一行
    Set filterRange = ws.Range("A1:X" & lastRow)
    
    ' 对U列（第21列）筛选包含"TUN"的行
    filterRange.AutoFilter Field:=21, Criteria1:="*TUN*", Operator:=xlFilterValues
    
    ' 删除筛选后的可见行（跳过表头行），添加错误处理防止无匹配行时报错
    On Error Resume Next
    filterRange.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    On Error GoTo 0
    
    ' 取消筛选，恢复表格正常状态
    ws.AutoFilterMode = False
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
    
    MsgBox "已完成删除含'TUN'的行！", vbInformation
End Sub

关键改进点 #

• 彻底抛弃Select操作：直接操作工作表和范围对象，消除因选中状态变化导致的各种错误。
• 动态适配数据集大小：用lastRow自动获取最后一行，不管是3万还是4万行都能全覆盖。
• 精准定位目标行：用SpecialCells(xlCellTypeVisible)只选中筛选后的可见行，确保所有匹配行都被删除，不会漏删。
• 加入错误处理：防止没有匹配行时代码报错中断。
• 优化运行效率：关闭屏幕更新后，大数据集的处理速度会快很多。

额外提示 #

• 如果你需要精确匹配"TUN"（而不是单元格包含"TUN"），把Criteria1:="*TUN*"改成Criteria1:="TUN"即可。
• 建议先备份数据集再运行代码，避免误删数据。

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