Excel VBA ActiveCell公式转换为值

我在单元格中有一个计算给定日期的公式。我想编写一个VBA宏，它将采用公式，将其转换为结果日期值并将该值复制到另一个/相邻单元格。

我试图使用“F2”和“F9”记录宏，但是VBA脚本返回，例如

ActiveCell.FormulaR1C1 = "12/31/2009".

我想编写宏来工作在未来几年日期单元格的公式可能是12/31/2012,2013等。我已经建立了公式来消除闰年的影响，所以我不能只添加365到明年派生。

microsoft-excel vba

— 查
source

这会将值和格式从当前活动单元格复制到右侧单元格

Sub CopyValue()
    ActiveCell.Offset(0, 1).Value = ActiveCell.Value
    ActiveCell.Offset(0, 1).NumberFormat = ActiveCell.NumberFormat
End Sub

— 克里斯尼尔森
source