Excel VBA循环的效率问题

Question

我需要浏览一个有几千行的数据，并根据几个字段的值(如果它们符合某些标准)编辑特定的行。

问题是它需要很长时间(每个循环约13秒，有时我有100个循环)…我还试图使VBA过滤表，然后对过滤行工作，但它需要同样的时间。

While l < CurrAloc And k <= lastrow
  If Cells(k, g) = "Pass" And Cells(k, h) <> "" And Cells(k, i) = "" And Cells(k, j) = "Available" Then
    Cells(k, ULDecCol) = CurrCustomer
    Cells(k, ULFromClassifierCol) = CurrClassifier
    add_to_log k
    Sheets("Unit List").Select
    l = l + 1
  End If
  k = k + 1
Wend

Answer 1

Try

Application.Calculation = xlCalculationManual

在while循环之前，后面跟着

Application.Calculation = xlCalculationAutomatic

while循环结束后。