VBA中怎么实现两个时间循环相减？A列下一行时间减去上一行时间写在B列，一直循环到最后

Question

如题所述

Answer 1

直接在B1输入公式：=a2-a1
将A1的格式刷到B1
选中B1，双击右下角的黑点即可，不用VBA做，也方便追问

我主要是想知道怎么在VBA里写出该代码的格式，因为后面还有很多表格，在公式里做太久了

追答

Sub MM()
Dim I, X As Integer
X = Range("A65536").End(xlUp).Row
For I = 2 To X
Cells(I, 2).NumberFormat = Cells(I, 1).NumberFormat
Cells(I, 2) = Cells(I, 1) - Cells(I - 1, 1)
Next I
End Sub

Answer 2

Sub 时间()

Dim s%, ss As Date

s = Range("A65355").End(3).Row

For k = 1 To s

ss = Cells(k + 1, 1) - Cells(k, 1)

Cells(k + 1, 2) = Format(ss, "yyyy-mm-dd")

Next k

End Sub