[已解决]日期计算

qingyezhanglin

比如，我在b2单元格中输入日期格式，2013/3/1，C2单元格输入数值20，想D2单元格中得到2013/3/1过后20个月的日子，该怎么用VBA程序表示，请指教

最佳答案

月排行榜 / 总排行榜

france723

2017-5-21 16:21

代码如下。

1. Sub aaa()
   
2. Dim y, ar
   
3. y = Range("b1048576").End(3).Row '
   
4. ar = Range("b1:d" & y)
   
5. For i = 2 To UBound(ar)
   
6.     ar(i, 3) = ar(i, 1) + ar(i, 2)
   
7. Next i
   
8. Range("b1").Resize(UBound(ar), 3) = ar
   
9. End Sub

复制代码

跳转到最佳答案楼层

砂海

在表格用函数 直接写了
d2
=date(year(b2),month(b2)+c2,day(b2))

qingyezhanglin

砂海 发表于 2017-5-21 10:12
在表格用函数 直接写了
d2
=date(year(b2),month(b2)+c2,day(b2))

主要是处理数据量太大，100W条，想用宏来写，这样就跟其他数据统一处理了

france723

代码如下。

1. Sub aaa()
   
2. Dim y, ar
   
3. y = Range("b1048576").End(3).Row '
   
4. ar = Range("b1:d" & y)
   
5. For i = 2 To UBound(ar)
   
6.     ar(i, 3) = ar(i, 1) + ar(i, 2)
   
7. Next i
   
8. Range("b1").Resize(UBound(ar), 3) = ar
   
9. End Sub

复制代码