我真的不知道这是否可能,但我正在尝试编写一个使用内置日期/时间函数进行计算并将其输出到单元格的 Excel 程序。它将使用下载的日期(位于 A 列)、数据输入的最后时间(B 的底行)和每个独立的数据输入时间(B 列)。
我希望每个单元格中的公式如下所示:: A2 - Time(0,0,(B_Last - B_Current)/1000)
我假设我会在某种循环中需要它。
我当前的代码如下所示::
Sub Bottom()
Dim Count As Integer
Dim i As Integer
Dim Last As Double
Set myRange = Columns("B:B")
Last = Cells(Rows.Count, "B").End(xlUp)
Set r1 = ThisWorkbook.Sheets("Sheet1").Range("A2")
Count = Application.WorksheetFunction.CountA(myRange)
For i = 1 To Count
Set r2 = ThisWorkbook.Sheets("Sheet1").Range("B" & i)
r2 = r1 - Time(0, 0, (Last - r2) / 1000)
Next
End Sub
对此的任何帮助将不胜感激!
谢谢!!