[已解决]VBA时间计算自动填充

jk0932

在附件示例中：发货流程中包含
其中预计发货日期=实际发货日期-0.03，收货预计日期=实际收货日期-0.03，结果如结果表格所示，文件有若干行，需按公式自动填充再粘贴为值；
求代码实现：

货物

发货预计日期

实际发货日期

收货预计日期

实际收货日期

最佳答案

月排行榜 / 总排行榜

qh8600

2015-5-4 13:23

结果.rar (17.75 KB, 下载次数: 14)

2015-5-4 13:23 上传

点击文件名下载附件
楼主试试

跳转到最佳答案楼层

qh8600

1. Sub demo()
   
2. Dim ar, i
   
3.     ar = Range("a2:e" & Cells(Rows.Count, 1).End(3).Row)
   
4.     For i = 1 To UBound(ar)
   
5.         ar(i, 2) = ar(i, 3) - 0.3
   
6.         ar(i, 4) = ar(i, 5) - 0.3
   
7.     Next
   
8.     Range("a2").Resize(UBound(ar), UBound(ar, 2)) = ar
   
9.     Columns("b:e").NumberFormatLocal = "yyyy-m-d"
   
10. End Sub
    

复制代码

附件楼下

qh8600

结果.rar (17.75 KB, 下载次数: 14)

2015-5-4 13:23 上传

点击文件名下载附件
楼主试试