使用CDate/IsDate时的类型不匹配/运行时错误排查求助

第一个错误（Type Mismatch）的原因 #

IsDate("201.07.01")返回True是因为VBA的日期解析逻辑会尝试将不规范文本识别为日期，但此时单元格内容仍是文本格式，直接执行Cells(1,1) + 365时，VBA无法将这类文本与数字进行运算，触发类型不匹配错误。另外，3位年份的日期虽被IsDate识别，但属于不规范格式，后续运算极易出问题。

第二个错误（Run-time error '1004'）的原因 #

出现1004错误通常有两种可能：

• 目标单元格处于工作表保护状态，无法修改内容；
• 单元格内容是错误值（如#N/A、#VALUE!），执行Replace操作时无法对错误值进行字符串处理，触发应用程序级错误。

完整解决方案 #

以下代码会先处理错误值、规范日期格式，验证日期有效性（含年份合理性），最终统计超过1年的日期数量：

Sub CountOlderDates()
    Dim ws As Worksheet
    Dim cell As Range
    Dim count As Integer
    Dim cellText As String
    Dim parsedDate As Date
    
    Set ws = ActiveSheet ' 指定目标工作表，可改为Sheets("Sheet1")
    count = 0
    
    ' 遍历目标区域，这里假设是A列，可按需修改范围
    For Each cell In ws.Range("A1:A100")
        ' 跳过错误值单元格，避免后续操作报错
        If Not IsError(cell.Value) Then
            cellText = Trim(cell.Value)
            ' 将点分隔符替换为标准日期横杠
            cellText = Replace(cellText, ".", "-")
            
            ' 验证日期有效性，同时校验年份合理性
            If IsDate(cellText) Then
                parsedDate = CDate(cellText)
                ' 过滤3位年份等不规范日期，可调整年份范围
                If Year(parsedDate) >= 1900 And Year(parsedDate) <= 2100 Then
                    ' 用DateAdd判断更准确，避免闰年天数误差
                    If parsedDate < DateAdd("yyyy", -1, Date) Then
                        count = count + 1
                    End If
                Else
                    cell.ClearContents ' 清除不合理年份的内容
                End If
            Else
                cell.ClearContents ' 清除非日期格式内容
            End If
        Else
            cell.ClearContents ' 清除错误值单元格
        End If
    Next cell
    
    MsgBox "超过1年的日期单元格数量：" & count
End Sub

关键优化点 #

• 先判断单元格是否为错误值，规避Replace操作的报错风险；
• 用DateAdd替代直接加365，解决闰年导致的天数计算误差；
• 增加年份范围校验，过滤3位年份这类不规范日期；
• 批量遍历指定区域，同时完成清理与统计，替代单个单元格的零散操作。

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