VBA按日期条件删除Excel行时遇Run-time error 13求助

错误根源 #

出现类型不匹配错误，主要是这几个原因：

• 原代码循环从第1行开始，表头行的O列不是日期值，执行CDate转换时直接报错
• O列中存在非日期格式的单元格（比如空值、乱码文本），无法被CDate正常转换
• E列的值可能是数字类型（比如1535），和文本字符串"001535"直接比对不匹配，或者单元格为空引发异常

修正后的代码 #

Sub DeleteRows()
    Dim x As Long
    Dim lastRow As Long
    Dim ws As Worksheet
    
    ' 绑定当前操作的工作表，避免切换表导致错误
    Set ws = ActiveSheet
    ' 用A列最后一行确定数据范围，比SpecialCells更可靠
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 从最后一行反向循环到第2行，跳过表头，同时避免删除行后漏判
    For x = lastRow To 2 Step -1
        ' 先验证E列文本是否为"001535"，再检查O列是否为有效日期
        If ws.Cells(x, 5).Text = "001535" And IsDate(ws.Cells(x, 15).Value) Then
            ' 满足日期条件则删除行
            If CDate(ws.Cells(x, 15).Value) < CDate("2002/7/1") Then
                ws.Rows(x).EntireRow.Delete
            End If
        End If
    Next x
End Sub

核心修改说明 #

• 缩小循环范围：直接从第2行开始循环，彻底跳过表头行，避免表头非日期值触发转换错误
• 用Text属性匹配E列：确保和单元格显示的文本"001535"精确匹配（如果E列是数字格式，可改为CStr(ws.Cells(x,5).Value) = "001535"）
• 增加IsDate校验：先判断O列内容能否转换为日期，跳过非日期单元格，避免转换失败报错
• 修正日期条件：原代码写的是2003年1月2日，改成需求要求的2002年7月1日
• 锁定工作表对象：明确指定操作的工作表，避免因激活其他工作表导致代码执行异常

大数量数据优化建议 #

如果表格有数千行，加上以下设置可以大幅提升运行速度：

Sub DeleteRowsFast()
    Dim x As Long
    Dim lastRow As Long
    Dim ws As Worksheet
    
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 关闭屏幕刷新和事件触发，减少卡顿
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    For x = lastRow To 2 Step -1
        If ws.Cells(x, 5).Text = "001535" And IsDate(ws.Cells(x, 15).Value) Then
            If CDate(ws.Cells(x, 15).Value) < CDate("2002/7/1") Then
                ws.Rows(x).EntireRow.Delete
            End If
        End If
    Next x
    
    ' 恢复系统设置
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

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