VBA日期比较时出现Error 13（类型不匹配）问题求助

嘿，我来帮你搞定这个头疼的类型不匹配错误！错误13通常是因为变量类型和你要赋值的内容不兼容，或者单元格里的“日期”其实不是真正的日期格式，咱们一步步排查解决：

1. 检查变量声明是否正确 #

首先确保你给DTtoCompare声明了正确的类型。如果没声明，VBA会默认把它当成Variant，但明确声明为Date类型能避免隐式转换的坑：

Dim DTtoCompare As Date

如果工作表1的A1可能为空或者非日期值，也可以用Variant类型，之后再做有效性判断。

2. 处理单元格的日期值转换 #

很多时候问题出在：工作表1的A1单元格看起来是日期，但实际是文本格式的日期，直接赋值给Date变量就会报错。这时候需要用CDate()函数做显式转换，而且转换前一定要用IsDate()检查是否是有效的日期：

Dim ws1 As Worksheet
Set ws1 = ThisWorkbook.Worksheets(1)

If IsDate(ws1.Cells(1, 1).Value) Then
    DTtoCompare = CDate(ws1.Cells(1, 1).Value)
Else
    MsgBox "工作表1的A1单元格不是有效的日期，请检查格式或内容！"
    Exit Sub '终止程序，避免后续错误
End If

3. 处理工作表2的日期列时也要注意类型匹配 #

删除行的时候，同样要确保第7列的单元格值是有效的日期，不然比较时也可能出问题。另外，删除行建议倒序循环，这样不会因为删除行导致后续行的索引混乱：

Dim ws2 As Worksheet
Set ws2 = ThisWorkbook.Worksheets(2)
Dim currentRow As Long
Dim currentDate As Date

'从最后一行往上循环，避免删除行后索引错位
For currentRow = ws2.Cells(ws2.Rows.Count, 7).End(xlUp).Row To 2 Step -1
    If IsDate(ws2.Cells(currentRow, 7).Value) Then
        currentDate = CDate(ws2.Cells(currentRow, 7).Value)
        '比较日期，删除小于目标日期的行
        If currentDate < DTtoCompare Then
            ws2.Rows(currentRow).Delete
        End If
    Else
        '可选：处理非日期的行，比如删除或者标记
        'ws2.Rows(currentRow).Delete
        '或者 MsgBox "第" & currentRow & "行的日期无效"
    End If
Next currentRow

额外小提示 #

• 可以选中工作表1的A1单元格，右键查看“设置单元格格式”，确认是“日期”格式，而不是“文本”格式。
• 如果单元格里的日期是通过公式生成的，也要确保公式返回的是日期值，而不是文本。

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