Excel宏增加年份1

Question

我有一个单元格，说A1有一个日期格式的日/月/年，我希望能够创建一个宏，按下时，它只添加1年的日期。我搜索了一下，并找到了功能DATE，但我有麻烦在一个循环中添加一个到今年。

Answer 1

三个解
信用@ @Scott克拉纳

Sub test1() 
    ActiveSheet.Range("A1") = DateSerial(Year(ActiveSheet.Range("A1"))+1,Month(ActiveSheet.Range("A1")) ,Day(ActiveSheet.Range("A1"))) 
End Sub 

信用@Kyle

Sub test2() 
    ActiveSheet.Range("a1") = DateAdd("yyyy",1,ActiveSheet.Range("a1")) 
End Sub 

信用@Ditto

认沽公式中A2

=DATE(YEAR(A1)+1,MONTH(A1),DAY(A1))