小编Lee*_*Sin的帖子

我有一个excel文件,可以在添加条目时自动为其添加时间戳.我想要一个脚本,找到第一个和最后一个条目之间的时间差.这是我到目前为止所提出的.

Sub Duration()

Dim lRow As Long Dim lValue Dim fValue Dim Duration As Long, n As Integer

'Find the last non-blank cell in column A(1)
lRow = Cells(Rows.Count, 1).End(xlUp).Row
lValue = Cells(lRow, 5).Value
MsgBox (lValue)
fValue = Cells(5, 5).Value
MsgBox (fValue)
Duration = DateDiff("n", "fValue", "lValue")
MsgBox (Duration)

Cells(3, 5) = Duration 

End Sub