一段循环代码速度慢，如何加快呢？谢谢！

wangweihebtu

我鼓捣了个excle文件，本打算用VBA，奈何水平低，算法不会写，凑合着写了几个公式
我需要在 A2 单元格写入学校名称，然后其他表格都是运算过程，然后将A2和 G2 的数据取出另存

这是我写的代码，数量大的话运行太慢，有没有好办法能提高速度呢？谢谢

1. Private Sub CommandButton1_Click()
   
2. Application.ScreenUpdating = False   '禁止屏幕刷新
   
3. For i = Range("B7").Value To Range("b8").Value
   
4. Range("B6") = i
   
5. Worksheets("预估分数线2").Cells(i, 1) = Cells(2, 1)
   
6. Worksheets("预估分数线2").Cells(i, 2) = Cells(2, 7)
   
7. Next
   
8. Application.ScreenUpdating = True
   
9. End Sub
   

复制代码

自己写了段查找的代码，完成了，感谢大家！

lsc900707

建议上传附件，说明要求。

wangweihebtu

lsc900707 发表于 2018-7-30 21:55
建议上传附件，说明要求。

谢谢您！有7个单元格都是公式，链接在6个sheet表中，太麻烦，求助整个VBA，我回头还是不会写

所以就目前这点代码，您看有提升的空间不？谢谢

魂断蓝桥

单元格循环需要逐一写入单元格，速度慢，需要改成数组。

Chip_Kenny

似乎不需循環，但沒有實際數據，樓主不防試試以下代碼:

1. Private Sub CommandButton1_Click()
   
2. Application.ScreenUpdating = False   '禁止屏幕刷新
   
3. i = Range("B7").Value
   
4. j = Range("B8").Value
   
5. Range("B6") = j
   
6. Worksheets("预估分数线2").Range(Cells(i, 1), Cells(j,1)) = Cells(2, 1)
   
7. Worksheets("预估分数线2").Range(Cells(i, 2), Cells(j, 2)) = Cells(2, 7)
   
8. Application.ScreenUpdating = True
   
9. End Sub

复制代码

Chip_Kenny

奇怪，複製第二行，會自動多了    
樓主留意

山菊花

Chip_Kenny 发表于 2018-7-31 09:52
似乎不需循環，但沒有實際數據，樓主不防試試以下代碼:

不循环是不行的。程序通过给B6单元格赋值，更新A2、G2的值（这里的公式我们看不到）。
没有附件，没有多大的修改价值。

Chip_Kenny

山总說得對，没有附件，没有多大的修改价值。

wangweihebtu

魂断蓝桥 发表于 2018-7-31 09:28
单元格循环需要逐一写入单元格，速度慢，需要改成数组。

我不会用数组，然后查找功能也是用VBA完成就可以提高效率了，我以为我自己鼓捣不成，整好了，十分感谢您！