带隐藏单元VBA的慢宏

Question

这是一个非常基本的问题，但是，到目前为止，我还无法在线找到解决方案。我有一个处理大量数据的宏，通常需要2-3秒才能运行。但是，我隐藏了它引用的某些单元格，以保护这些单元格不被其他用户编辑，现在宏需要5到10分钟才能运行。是否知道为什么会发生以及如何避免这种情况？提前致谢！

'Delete previous data from the same month

Sheet3.Select
intValueToFind = Sheet8.Range("K6")
Range("A2").Select
Selection.AutoFilter
ActiveSheet.UsedRange.Select
Selection.AutoFilter field:=9, Criteria1:=intValueToFind

Selection.Offset(1, 0).Select

lr = Cells(Rows.Count, 1).End(xlUp).Row
If lr > 1 Then
    Range("a2:A" & lr).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End If

问题始于Selection.Autofilter行。

Answer 1

我在运行带有大量数据的宏时也遇到了同样的问题，由于某种原因，隐藏的单元格大大减慢了该过程。我会尝试隐藏单元格，然后如上所述将其隐藏在您的函数中。