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

中华美德

2019.11.29每天更新中明天2019.11.30  后天2019.12.1

liulang0808

欢迎新朋友，建议结合内容举例描述具体需求吧

拼音佳佳

位置固定的录下来,位置不固定的改成动态代码...

中华美德

w = Array("代码", "名称", "1部门金额(元)2019.11.29", "2部门金额(元)2019.11.29", "比(%)2019.11.29", "结账时间2019.11.29", "离开时间2019.11.30", "连续(天）2019.11.29")  中2019.11.29随每天的日期在变化

中华美德

要达到：2当日结账整理   工作表2的效果

中华美德

liulang0808 发表于 2019-12-2 07:36
欢迎新朋友，建议结合内容举例描述具体需求吧

w = Array("代码", "名称", "1部门金额(元)2019.11.29", "2部门金额(元)2019.11.29", "比(%)2019.11.29", "结账时间2019.11.29", "离开时间2019.11.30", "连续(天）2019.11.29")  中2019.11.29随每天的日期在变化。

目前用VBA执行时只能在天天修改2019.11.29变成2019.11.30

liulang0808

    str1 = "代码,名称,1部门金额(元)2019.11.29,2部门金额(元)2019.11.29,比(%)2019.11.29,结账时间2019.11.29,离开时间2019.11.30,连续(天）2019.11.29"
    str1 = Replace(str1, , Format(Date, "yyyy.mm.dd"), Format(Date + 1, "yyyy.mm.dd"))
    str1 = Replace(str1, , Format(Date - 1, "yyyy.mm.dd"), Format(Date, "yyyy.mm.dd"))
    w = Split(str1, ",")

针对那段代码的做的处理。楼主测试看看吧

中华美德

liulang0808 发表于 2019-12-2 12:40
str1 = "代码,名称,1部门金额(元)2019.11.29,2部门金额(元)2019.11.29,比(%)2019.11.29,结账时间2019.1 ...

老师加油，多分析 一下吧：就差一点了，比如今天：1结账数据源  中的日期会变成2019.12.2，用VBA就不能执行！
出错点：缺少语句结束

liulang0808

中华美德 发表于 2019-12-2 13:16
老师加油，多分析 一下吧：就差一点了，比如今天：1结账数据源  中的日期会变成2019.12.2，用VBA就不能执行 ...

楼主核对下代码吧，跟楼上有无出入的

中华美德

出错点：缺少语句结束