优化代码

平東

写了代码可以用，但觉得有点不太人性化，想各位老师优化一下，要求：
1.把图一中红色部份用图二和图三的代码代替，即以图二、图三形式打开两个工作簿。
2.结束前将A工作簿另存为同名后面加上当前日期时间的工作簿，如：A202405061518.xlsx


补充内容 (2024-5-11 14:44):
已处理，请板主删除。

平東

已经解决，请板主删除

平東

自己顶一下，不要潜下去

ykcbf1100

你这个可以整表复制吧。

平東

ykcbf1100 发表于 2024-5-7 20:05
你这个可以整表复制吧。

老师你好，可以复制，问题是16~33列的数据内容是由几个(协管、部门1、部门2......)不同部门填写，我要把他们回填的数据进行汇总到一个总表上。所以一但复制就可能会把别的部门数据搞乱了，而且我只列出一小部和一个部门的数据，还有好多没放上去。

ykcbf1100

平東 发表于 2024-5-8 09:25
老师你好，可以复制，问题是16~33列的数据内容是由几个(协管、部门1、部门2......)不同部门填写，我要把 ...

我看A和B二个工作簿表数据完全相同的，应该可以直接复制的。

平東

ykcbf1100 发表于 2024-5-8 09:30
我看A和B二个工作簿表数据完全相同的，应该可以直接复制的。

我只要目的上想能不能把图一中红色代码用图二和图三代替，这样直接选择两个工作簿进行运行，而不用去改代码。