DateDiff用于一列date

我可以帮助这个，我正在寻找这样的一列中date的date差异，

很明显，我已经尝试了一个for循环，但它从来没这么容易，谁能帮助:)

Answer 1

如果你正在试图用VBA实现这一点，假设你的date是在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 

Answer 2

如果您的date全部放在B列A3-A2 A列中，并拖动所有包含date​​的单元格（最后一个除外）