VBA日期范围判断失效问题：跨工作表数据迁移代码调试

哦，这个问题我碰到过好几次！核心问题出在你把单元格的日期值和字符串硬编码比较，还有变量声明、赋值的小细节上——Excel里的日期本质是浮点序列号，直接和字符串比很容易因为区域设置、格式差异导致判断失效，哪怕你肉眼看日期是对的。

关键修复点： #

• 不要用字符串字面量（比如"01/01/2018"）和日期值比较，改用DateSerial生成标准日期，这是最可靠的方式，完全不受系统区域设置影响
• 直接把变量声明为Date类型，而不是Variant，代码更严谨，也能避免类型混淆
• 别用Set关键字给普通变量赋值，Set是给对象（比如Range）用的，直接取单元格.Value就行

修改后的完整代码： #

'Dates columns
Dim fechaIniTarget As Date ' 直接声明为Date类型，明确变量用途
Dim fechaFinTarget As Date

'Ini = start / Fin = end
' 直接获取单元格的日期值，Range.Value会自动返回Date类型（如果单元格是日期格式）
fechaIniTarget = Range("D2").Value
fechaFinTarget = Range("E2").Value

' 用DateSerial生成精确的2018年起止日期，和单元格值做类型匹配的比较
If fechaIniTarget = DateSerial(2018, 1, 1) And fechaFinTarget = DateSerial(2018, 12, 31) Then
    ' 这里放入你的数据转移逻辑，比如复制到目标工作表
    MsgBox "PROCESO COMPLETO"
End If

额外的容错建议： #

如果你的单元格可能存在空值、文本或者无效日期，建议加个前置判断避免报错：

' 先检查单元格是否为有效日期
If IsDate(Range("D2").Value) And IsDate(Range("E2").Value) Then
    fechaIniTarget = Range("D2").Value
    fechaFinTarget = Range("E2").Value
    
    If fechaIniTarget = DateSerial(2018, 1, 1) And fechaFinTarget = DateSerial(2018, 12, 31) Then
        MsgBox "PROCESO COMPLETO"
    End If
Else
    MsgBox "单元格D2或E2不是有效的日期格式，请检查！"
End If

这样应该就能解决你的日期判断失效问题了，亲测好用！

内容的提问来源于stack exchange，提问作者Abdón Araya