Excel VBA脚本问题：第二日期字段为空时计算日期差值

问题根源 #

你的脚本无法识别空的第二日期字段，核心问题有两个：

1. 变量声明错误：Dim dtToday, FirstDate, SecondDate As Date 中仅SecondDate是Date类型，dtToday和FirstDate默认是Variant。空单元格赋值给Date类型变量时，会自动转为1900-01-00，导致无法判断为空。
2. 空单元格判断逻辑错误：SecondDate = ""的判断无效，因为Date类型变量无法存储空字符串，空单元格赋值后会变成无效日期值而非空字符串。

修正后的代码 #

Dim dtToday As Date
Dim ws As Worksheet
Dim Column1 As Long, Column2 As Long, Column4 As Long, RowNo As Long
dtToday = Date

Set ws = Sheets("Sheet3")
Column1 = 1
Column2 = 2
Column4 = 4

For RowNo = 2 To 10000
    ' 直接操作单元格值，规避类型转换异常
    If IsDate(ws.Cells(RowNo, Column1).Value) And _
       IsEmpty(ws.Cells(RowNo, Column2).Value) Then
        ws.Cells(RowNo, Column4).Value = DateDiff("d", ws.Cells(RowNo, Column1).Value, dtToday)
    End If
Next

关键修正说明 #

• 取消冗余Date变量：直接引用单元格值做判断和计算，避免空单元格赋值给Date类型变量引发的异常。
• 正确检测空单元格：用IsEmpty()函数判断单元格是否真正为空，比= ""更可靠（可覆盖单元格原生为空、而非公式返回空字符串的场景）。
• 明确变量类型：规范变量声明，避免隐式Variant类型带来的不确定问题。

备选判断逻辑 #

如果第二日期列存在公式返回的空字符串，可替换判断条件为：

ws.Cells(RowNo, Column2).Value = ""

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