VBA或Excelmacros添加1年

我有一个Excel电子表格，我想添加一个单元格中的date。

单元格B3当前的值为1/1/2014

想要创build一个macros，将该date更改为1/1/2015

似乎很容易，但我的search没有给出预期的结果。 任何帮助，将不胜感激。

Answer 1

select你的细胞并运行：

Sub dateFixer() Dim d As Date d = ActiveCell.Value ActiveCell.Value = DateSerial(Year(d) + 1, Month(d), Day(d)) End Sub