VBA跨表取3列数据复制到另外一个工作表

中华美德

liulang0808 发表于 2019-12-7 12:57
w = Array("代码", "名称", "1部门金额(元)2019.11.29", "2部门金额(元)2019.11.29", "比(%)2019.11.29", ...

有关系，以前到现在为止我的笨方法是每天修改替换VBA代码中的日期，2019.11.29全部变化替换成2019.12.06再执行才能按照固定的模式复制过来，大家都说这不是太笨了吗？VBA为什么不能自动运行?所以才请教老师们能够有耐心的认真看完并且一年365天做到不要去修改字段＋日期的字段名

中华美德

中华美德 发表于 2019-12-6 20:37
先感谢忙中抽时间给解答，老师的VBA程序可以执行，您没有理解我的意思，是我表达不清楚：1结账数据源的日 ...

20楼的是我最详细的表述和想法，希望老师能够有兴趣和耐心重新看一下，给予帮助，再次感谢

liulang0808

中华美德 发表于 2019-12-7 13:11
有关系，以前到现在为止我的笨方法是每天修改替换VBA代码中的日期，2019.11.29全部变化替换成2019.12.06 ...

楼主修改下电脑时间，然后测试下代码
看看w数组中的时候，是不是跟着电脑的日期在变化？
str1的初始赋值是多少不重要，是在split前已经替换成当天日期的。
看下24楼跟26的代码，之前是理解有出入的

中华美德

liulang0808 发表于 2019-12-7 13:36
楼主修改下电脑时间，然后测试下代码
看看w数组中的时候，是不是跟着电脑的日期在变化？
str1的初始赋 ...

代码测试不成功也先感谢老师们的工作！！！！附件重新表达了我的想法，希望大师们能够认真仔细分析，按照标准要求达到：2当日整理.xlsm/最终的工作表6列固定顺序 里面的要求