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

浠朢↘恠明兲

1. Sub 保存()
   
2. Application.ScreenUpdating = False '作用是使Excel停止刷新。这样可以提高代码的执行速度。
   
3. Dim Q1, Q2, Q3 As Integer
   
4. 
   
5. '获取数据
   
6. QD1 = Worksheets(1).Cells(2, 16).Value
   
7. QD2 = Worksheets(1).Cells(3, 6).Value
   
8. QD3 = Worksheets(1).Cells(3, 6).Value
   
9. 
   
10. x = Sheet2.[A65536].End(3).Row + 1   
    
11. 
    
12. '将获取的数据赋值到表2(保存到表2）
    
13. For i = 1 To 3
    
14. 
    
15.     Worksheets(2).Cells(x, i).Value = QD&i
    
16. 
    
17. Next
    
18. Application.ScreenUpdating = True
    
19. End Sub

复制代码

FOR语句：两个函数，分别是上面的QD1~3，两个函数怎么一起写？

liulang0808

楼主使用数组吧，替换q1，q2，q3吧，目前代码得不到预期结果吧

浠朢↘恠明兲

liulang0808 发表于 2018-6-24 16:04
楼主使用数组吧，替换q1，q2，q3吧，目前代码得不到预期结果吧

1. <div class="blockcode"><blockquote>Sub 保存()
   
2. '
   
3. ' 保存 宏
   
4. '
   
5. Application.ScreenUpdating = False '作用是使Excel停止刷新。这样可以提高代码的执行速度。
   
6. 
   
7. Dim QD(1 To 3)
   
8. 
   
9. '获取数据
   
10. QD(1) = Worksheets(1).Cells(2, 16).Value
    
11. QD(2) = Worksheets(1).Cells(3, 6).Value   
    
12. QD(3) = Worksheets(1).Cells(3, 6).Value
    
13. 
    
14. x = Sheet2.[A65536].End(3).Row + 1    '从A列最后一行向上找，找到有数据的行为止
    
15. MsgBox x
    
16. 
    
17. '将获取的数据赋值到表2(保存到表2）
    
18. For i = 1 To 3
    
19.     Worksheets(2).Cells(x, i).Value = QD(i)
    
20. Next
    
21. 
    
22. Application.ScreenUpdating = True
    
23. End Sub

复制代码

新手，改了一下，可以运行了，还能优化吗？，实在愚钝，请老师指点

活在理想的世界

不需要循环赋值的呀。直接赋值最快的。

活在理想的世界

其实你就是想把Sheet1里的三个单元格的数据赋值到Sheet2的最大空单元格而已啊。

定义完数组后直接对Sheet2进行赋值就行了。

活在理想的世界

就这三几句话

1. arr = Array(Sheet1.[b16], Sheet1.[c6], Sheet1.[c6])
   
2. k = Sheet2.Range("a" & Rows.Count).End(3).Row + 1
   
3. Sheet2.Range("a" & k).Resize(1, UBound(arr)) = arr

复制代码

浠朢↘恠明兲

活在理想的世界 发表于 2018-6-24 16:32
不需要循环赋值的呀。直接赋值最快的。

关键是数值太多了，每条记录有700多个值

浠朢↘恠明兲

活在理想的世界 发表于 2018-6-24 16:41
就这三几句话

arr = Array(Sheet1.[b16], Sheet1.[c6], Sheet1.[c6]。。。。。。。。。。700多个数据有什么办法？)

活在理想的世界

浠朢↘恠明兲 发表于 2018-6-24 17:00
关键是数值太多了，每条记录有700多个值

要么直接赋值，要么循环。

活在理想的世界

浠朢↘恠明兲 发表于 2018-6-24 17:00
关键是数值太多了，每条记录有700多个值

你是装数组不会装？还是数据比较乱无法装？