vba计算两个单元格中日期之间的天数，如果两个单元格都有日期

Question

我有以下代码来计算两个单元格中日期之间的天数，但如果列X没有日期，则返回错误值。如果X列中有日期，我希望代码只返回一个值，但我不知道如何做到这一点。我是VBA的新手。提前感谢您提供任何帮助。

Sub CalcDays()
Dim LastRow As Long
Dim wb As Workbook: Set wb = ThisWorkbook
Dim ws As Worksheet
Set ws = wb.Sheets("Sheet2")

LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

With Range("AA2:AA" & LastRow)
    [AA:AA] = [X:X-Z:Z]
End With

End Sub

Answer 1

您可以执行以下操作：

[AA:AA] = [if(X:X="", "", if(Z:Z="", "", X:X-Z:Z))]