3

我有一段相当简单的代码，用于循环遍历 Excel 数据表。基本上，我有超过 150,000 行数据，我想删除每一行，除了其中包含“仪器故障”的行，在这种情况下，我想要该行以及紧接其上方和下方的行（可能包含与失败）。这是我的代码：

Sub UnsignedFailure()
Application.ScreenUpdating = False
'Start point
Set r = Range("E1")

'Loop, total rows is a function, executes quickly
For t = 3 To TotalRows
    'Check for a failure
    k = InStr(1, r.Cells(t, 1).Value, "Instrument Failure")
    'Verify that it corresponds to a GC
    b = InStr(1, r.Cells(t, 1).Offset(0, -3).Value, "GC")
    If k <> 0 And b <> 0 Then
    'Skip two rows if it is true
        t = t + 2
    Else
    'Delete the previous row since this row is not a failure
        r.Cells(t - 1, 1).EntireRow.Delete
    'Go back a row to account for the deleted row
        t = t - 1
    End If
Next t

Application.ScreenUpdating = True
End Sub

我已经通过逐步检查了它并且它有效。然而，即使每次“IF”为真时代码中断，中断之间的时间似乎很长（检查 20,000 个单元格可能需要 5 分钟）。如果我让代码运行而不中断，我还没有完成它（计算机死机）。我的代码是否遗漏了什么或效率低下？任何帮助将不胜感激！

4

1 回答 1

12

我使用 excel 宏的经验告诉我，将符合条件的数据复制到新工作表中效率更高，而不是删除不匹配的行。

每次删除一行时，excel 需要几毫秒的时间来重新计算工作表（即使没有公式，它仍然会检查每个单元格以查看是否需要更新）并更新显示给用户。您已经禁用了屏幕更新，这肯定会减少一些时间。另一种方法是关闭 Excel Calculation，将其放在Application.Calculation = xlCalculationManualsub 的顶部以禁用重新计算，并Application.Calculation = xlCalculationAutomatic在底部再次启用它。 这个网站有一些关于excel VBA代码优化的很好的指导。

正如我所说，我认为最有效的方法是在数据符合您的条件时将其移动到新工作表。

于 2013-04-23T15:35:34.123 回答