如何加快我的宏清除特定單元格基於字符串comparisson

Question

我需要在很大範圍內（更多1000行）清除單元格值「noinfo」。我使用下面提到的宏，但它很慢。也許有更好的方法來完成這項任務？

For Each cell In Range("L2:N" & Range("N" & Rows.count).End(xlUp).Row) 
    If cell.Value = "noinfo" Then cell.ClearContents 
Next cell 

Answer 1

我發現將所有值複製到數組，更改數組並將它們一次寫入範圍要快得多。

Dim values(), r As Long, c As Long 
With Range("L2:N" & Range("N" & Rows.Count).End(xlUp).Row) 
    values = .Value 
    For r = 1 To UBound(values, 1) 
     For c = 1 To UBound(values, 2) 
      If values(r, c) = "noinfo" Then values(r, c) = Empty 
     Next 
    Next 
    .Value = values 
End With 

優點：

• 沒有屏幕更新或計算，直到你寫的所有值;
• 使用內部數據，而不是屬性。