则DateDiff的日期

Question

我能有帮助，这一个的一列，我找工作出日期在这样一个栏的时间差，

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

Answer 1

如果你想用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 

Answer 2

如果你的日期都在列A放于列BA3-A2向下拖动，有日期

的所有单元格（除了最后一个）