Question

我在E3开始的E列中有日期。

在F栏中，我希望天数不同。 F3 =今天-E3，F4 =今天-E4，依此类推，直到E栏的最后一个值。

这是代码：

'Calculate Overdue
For i = 1 To lastrow
    If i = 1 Then
        Workbooks(Main).Sheets(1).Cells(i + 1, lastcolumn + 1).Value = "Overdue [days]"
    Else
        Workbooks(Main).Sheets(1).Cells(i + 1, lastcolumn + 1).Value = _
        Now - Workbooks(Main).Sheets(1).Cells(i + 1, lastcolumn - 1).Value
    End If
Next i

Answer 1

如果您想使用VBA解决方案，下面的代码将有效。我更喜欢使用DateDiff函数，在下面的代码中它会在“d”（天）中返回过期。

另外，为了安全起见（并且代码更清晰）我总是定义我的Sheet对象（它还减少了以后遇到错误的可能性）。

由于你知道你的日期在 E列，结果在 F列，我已经在代码中实现了这一点（可以用{{1}替换}，但不确定为什么）。

lastcolumn

日期和今天之间的差异

1 个答案: