一列日期的 DateDiff

Question

我可以在这方面得到帮助吗，我正在寻找这样的一列中日期的日期差异，

显然我已经尝试过 for 循环，但它从来没有那么容易，任何人都可以帮忙:)

Answer 1

如果您的日期都在第 A 列中，请放入第 B A3-A2 列并向下拖动所有包含日期的单元格（最后一个单元格除外）

Answer 2

如果您尝试使用 VBA 实现此目的，假设您的日期在 A2:A6 范围内，请尝试这样的操作...

Sub DateDif()
Dim lr As Long, i As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lr - 1
    If IsDate(Cells(i, 1)) And IsDate(Cells(i + 1, 1)) Then
        Cells(i, 2) = DateDiff("d", Cells(i, 1), Cells(i + 1, 1))
    End If
Next i
End Sub

或者像这样尝试，这很容易调整...

Sub DateDif()
Dim lr As Long
Dim Rng As Range, Cell As Range
lr = Cells(Rows.Count, "B").End(xlUp).Row
Set Rng = Range("B2:B" & lr)
For Each Cell In Rng
    If IsDate(Cell) And IsDate(Cell.Offset(1, 0)) Then
        Cell.Offset(0, 1) = DateDiff("d", Cell, Cell.Offset(1, 0))
    End If
Next Cell
End Sub

一列日期的 DateDiff

DateDiff for one column of Dates

excel

vba

datediff