软件: Excel VBA
版本: 2013
请问如想要利用VBA写出如下结果
1. value add 固定字段 如 range(B2:F152)
2. 打开当月每份档案相加档名一样 只有最后面日期不同
如XXXXX_20190101.xls-XXXXX_20190131.xls
3. 将整个月各字段加总结果于当月工作日最后一个档案
请问有什么比较简便的写法呢?

1号20190101和最后一日20190131可键于储存格内先开启workbooks.open最后当月最后一日的档案(相同档名字串&上述最后一日的储存格&.副档名)循环1号(20190101)至当月最后一日前一日复制range.copy，选择性贴上range.pastespecial operation以xladd加至最后一日的档案

这听起来直接用公式就可以达成，直接把每个日期要被加总的数字叫到同一个表格加总就行了。

感激S大回文 想请问如果并不是所有当月日期都有档案要怎么跳过那些不属于工作日或是自动判断资料夹内没有该日期档案就跳过的循环写法呢？

可判断dir("路径\*" & 循环变量 & ".xls") 不为空字串<>""时执行动作如果资料夹内都为当月档案的话，可循环于dir是否为空字串

了解 我会试试 谢谢 有问题再请教