Phép tinh chạy chậm (1 người xem)

[tuannguyen789]

Chào mọi người,

Với phép tính cộng này, mọi người giúp mình chính sửa lại dum nhé.
Lý do: nếu dữ lieu trên 1000 dòng chay rất chậm.
Mong được sự giúp đỡ của mọi người

 

[befaint]

Chào mọi người,

Với phép tính cộng này, mọi người giúp mình chính sửa lại dum nhé.
Lý do: nếu dữ lieu trên 1000 dòng chay rất chậm.
Mong được sự giúp đỡ của mọi người

Bạn thử đoạn sau:

Sub CONG()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim r As Long, tmp() As Variant, KQ() As Variant
On Error Resume Next
tmp = Sheet1.Range("A2:E" & Sheet1.Range("B65000").End(xlUp).Row).Value
ReDim KQ(1 To UBound(tmp, 1), 1 To 1)
For r = 1 To UBound(tmp, 1)
    If tmp(r, 1) <> vbNullString Then
        KQ(r, 1) = tmp(r, 1) - (tmp(r, 2) + tmp(r, 3) + tmp(r, 4) + tmp(r, 5))
    End If
Next r
Sheet1.Range("F2:F65000").ClearContents
Sheet1.Range("F2").Resize(UBound(KQ, 1), 1).Value = KQ
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

 

[VetMini]

Dùng 1 array tmp hoăc KQ đủ rồi. Đâu cần đến 2