使用宏减去日期

Question

在 myexcel 中，我想计算单元格中的单个日期与列 AS2:AS400 中的一系列日期之间的天数差异

还有天数的差异，我希望它在一个单独的列中。

我试图通过记录宏来理解代码并将其修改为两行代码。但我无法做到。任何人都可以将以下代码简化为简化程序。这样我就可以大量使用了。很容易将数据放在一列中，而不是为每个单元格编写数据。

Range("AS2").Select
ActiveCell.FormulaR1C1 = "=R[3]C[-42]-RC[-22]"
Range("AS3").Select
ActiveCell.FormulaR1C1 = "=R[2]C[-42]-RC[-22]"
Range("AS4").Select
ActiveCell.FormulaR1C1 = "=R[1]C[-42]-RC[-22]"
Range("AS5").Select
ActiveCell.FormulaR1C1 = "=RC[-42]-RC[-22]"
Range("AS6").Select
ActiveCell.FormulaR1C1 = "=R[-1]C[-42]-RC[-22]"
Range("AS7").Select
ActiveCell.FormulaR1C1 = "=R[-2]C[-42]-RC[-22]"
Range("AS8").Select
ActiveCell.FormulaR1C1 = "=R[-3]C[-42]-RC[-22]"   

Answer 1

看看DateDiff Function的文档：

例如：

Range("BA2").Value = DateDiff("d", Range("C5").Value,  Range("AS2").Value)

... 将 C5 和 AS2 的天数差返回到 BA2。

---

但您也可以不使用 VBA：

将下面的公式代入BA2=DAYS(C5,AS2)得到天数的差异。

---

或者您可以使用 VBA 将该公式写入单元格：

Range("BA2").Formula = "=DAYS(C5,AS2)"

---

在循环中编写多个公式：

Dim i As Long
For i = 2 to 5
    Range("BA" & i).Formula = "=DAYS(C5,AS" & i &")"
Next i

或者最好只写第一个单元格并将其复制下来

Range("BA2").Formula = "=DAYS($C$5,AS2)" 'write first formula
Range("BA2").AutoFill Destination:=Range("BA2:BA5"), Type:=xlFillDefault 'copy it down until BA5

注意$C$5 是一个固定单元格，但AS2 会在您向下复制时动态调整。