如何提高excel 计算速度

丰收互联

我是初学EXCEL VBA， 下面是弄出来的代码，但是运行时的计算速度太慢了，哪位高手能给我学习的机会吗？ 谢谢 excelhome 的高手们！

Dim i As Integer
For i = 2 To 500
If Range("a" & i) = "" Then Exit Sub
Sheet4.Cells(i, 27).Value = WorksheetFunction.Sum(Sheet4.Range(Sheet4.Cells(i, 7), Sheet4.Cells(i, 26)))
Sheet4.Cells(i, 48).Value = WorksheetFunction.Sum(Sheet4.Range(Sheet4.Cells(i, 28), Sheet4.Cells(i, 47)))
Sheet4.Cells(i, 69).Value = WorksheetFunction.Sum(Sheet4.Range(Sheet4.Cells(i, 49), Sheet4.Cells(i, 68)))
Sheet4.Cells(i, 90).Value = WorksheetFunction.Sum(Sheet4.Range(Sheet4.Cells(i, 70), Sheet4.Cells(i, 89)))
Sheet4.Cells(i, 111).Value = WorksheetFunction.Sum(Sheet4.Range(Sheet4.Cells(i, 91), Sheet4.Cells(i, 110)))
Sheet4.Cells(i, 132).Value = WorksheetFunction.Sum(Sheet4.Range(Sheet4.Cells(i, 112), Sheet4.Cells(i, 131)))
Sheet4.Cells(i, 153).Value = WorksheetFunction.Sum(Sheet4.Range(Sheet4.Cells(i, 133), Sheet4.Cells(i, 152)))
Sheet4.Cells(i, 174).Value = WorksheetFunction.Sum(Sheet4.Range(Sheet4.Cells(i, 154), Sheet4.Cells(i, 173)))
Sheet4.Cells(i, 175).Value = Sheet4.Cells(i, 27).Value + Sheet4.Cells(i, 48).Value + Sheet4.Cells(i, 69).Value + Sheet4.Cells(i, 90).Value + Sheet4.Cells(i, 111).Value + Sheet4.Cells(i, 132).Value + Sheet4.Cells(i, 153).Value + Sheet4.Cells(i, 174).Value
Next
End Sub

丰收互联

在线等老师协助啊，谢谢excelhomer的高手们！

丰收互联

丰收互联 发表于 2021-7-11 09:24
在线等老师协助啊，谢谢excelhomer的高手们！

别沉下去啊，希望得到帮助。谢谢您们。

丰收互联

丰收互联 发表于 2021-7-13 21:01
别沉下去啊，希望得到帮助。谢谢您们。

自己已解决。谢谢