首页 > 解决方案 > vba计算两个单元格中日期之间的天数,如果两个单元格都有日期,则仅返回一个值

问题描述

我有下面的代码来计算两个单元格中日期之间的天数,但是如果 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

标签: excelvba

解决方案


您可以执行以下操作:

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

推荐阅读