小编Pri*_*Bee的帖子

我想在P中创建一个名为的列Age of Ticket.它正在计算两个日期,然后自动填充.此宏将用于更改行数的报表.当我使用它时,它基本上在P2上进行计算,然后它在P1上进行计算(标签所在的位置)并且不进行自动填充.

Dim LastRow As Long

LastRow = Range("P65000").End(xlUp).Row

Range("P1").Select
ActiveCell.FormulaR1C1 = "Age of Ticket"
Range("P2").Select
ActiveCell.FormulaR1C1 = "=RC[-5]-RC[-8]"
Range("P2").Select
Selection.AutoFill Destination:=Range("P2:P" & LastRow)
Range("P2:P3000").Select
ActiveWindow.SmallScroll Down:=210

[结果]