[已解决]请高手帮我看下如何把单元格中的2011批量改成2012

qiongmei

我附件上有1个表，在a列中，他的日期都是2011几月几号，我想改成2012的几月几号，意思是能否提供一个代码，根据c1的年份，当执行后他把a列改成c1年同月同日。例如当执行该代码后，a1=2012年3月22，谢谢高手的帮忙。

最佳答案

月排行榜 / 总排行榜

lisachen

2011-12-21 23:36

1. Sub xg1()
   
2.     For x = 1 To [a65536].End(3).Row
   
3.         Cells(x, 1) = VBA.DateAdd("yyyy", 1, Cells(x, 1))
   
4.     Next
   
5. End Sub

复制代码

这个也可以

跳转到最佳答案楼层

windimi007

直接替换行不？{:3912:}

lisachen

1. Sub xg()
   
2. Dim arr
   
3. yy = [c1]
   
4. arr = Range("a1:a" & [a65536].End(3).Row)
   
5. For x = 1 To UBound(arr)
   
6. mm = VBA.Month(arr(x, 1))
   
7. dd = VBA.Day(arr(x, 1))
   
8. arr(x, 1) = VBA.DateSerial(yy, mm, dd)
   
9. Next
   
10. Range("b1").Resize(UBound(arr)) = arr
    
11. End Sub

复制代码

更改日期.zip (7.27 KB, 下载次数: 6)

2011-12-21 23:02 上传

点击文件名下载附件

lisachen

1. Sub xg1()
   
2.     For x = 1 To [a65536].End(3).Row
   
3.         Cells(x, 1) = VBA.DateAdd("yyyy", 1, Cells(x, 1))
   
4.     Next
   
5. End Sub

复制代码

这个也可以