則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向下拖動，有日期

的所有單元格（除了最後一個）