求大神帮我看看代码怎么优化

活在理想的世界

浠朢↘恠明兲 发表于 2018-6-24 16:10
新手，改了一下，可以运行了，还能优化吗？，实在愚钝，请老师指点

以后求助最好把话一次性说清楚。否则谁知道你的真实目的是什么？

活在理想的世界

浠朢↘恠明兲 发表于 2018-6-24 17:02
arr = Array(Sheet1., Sheet1.[c6], Sheet1.[c6]。。。。。。。。。。700多个数据有什么办法？)

你说你700个数据谁知道你700个数据都放在什么地方？
都是分开放的吗？一点规律都没有？

浠朢↘恠明兲

活在理想的世界 发表于 2018-6-24 17:09
你是装数组不会装？还是数据比较乱无法装？

附件你看一下，这只是一部分，还有好多数据，数组不会装。
我要的功能是每天通过表1录入，表2保存（不能替换）
老师看看有什么好方法吗？

活在理想的世界

你这个不是数组赋值的问题，你的问题是报表架构的问题。
你需要一个数据录入和保存的小系统。可能还需要一个查询的系统（毕竟保存的目的是为了随时查询）

liulang0808

浠朢↘恠明兲 发表于 2018-6-24 16:10
新手，改了一下，可以运行了，还能优化吗？，实在愚钝，请老师指点

For i = 1 To 3
    Worksheets(2).Cells(x, i).Value = QD(i)
Next

修改

    Worksheets(2).Cells(x, 1).resize(1,3)Value = QD

浠朢↘恠明兲

活在理想的世界 发表于 2018-6-24 17:30
你这个不是数组赋值的问题，你的问题是报表架构的问题。
你需要一个数据录入和保存的小系统。可能还需要一 ...

是的，架构比较复杂，有想过用gui界面来保存，会不会更简单一点呢？

浠朢↘恠明兲

liulang0808 发表于 2018-6-24 18:02
For i = 1 To 3
    Worksheets(2).Cells(x, i).Value = QD(i)
Next

数据并不止3条，有700多条，for循环执行效率会很慢吗？

liulang0808

浠朢↘恠明兲 发表于 2018-6-24 18:23
数据并不止3条，有700多条，for循环执行效率会很慢吗？

能一次性的，就尽可能不适用循环的
具体效率对比，楼主可以自己测试看看的