Excel VBA重叠错误以删除突出显示的行

Question

我试图理解为什么此错误在没有之前

之前弹出

Sub deleterow()
   Dim cell As Range, DelRange As Range
   For Each cell In ActiveSheet.Range("A2:G2000")
       If cell.Interior.ColorIndex = 6 Then
           If DelRange Is Nothing Then
               Set DelRange = cell
           Else
               Set DelRange = Union(DelRange, cell)
           End If
       End If
    Next cell
   If Not DelRange Is Nothing Then DelRange.EntireRow.Delete ' error here
End Sub

这是用于删除突出显示的行的录制的VBA宏的一部分，但它显示出错误运行时间错误" 1004" - "在Line Delrange.entrange.entirerow.delete中无法在重叠选择上使用该命令。

它没有发生。

预先感谢

Answer 1

Sub deleterow()
Dim cell As Range
Application.ScreenUpdating = False
For Each cell In ActiveSheet.Range("A2:G2000")
    With cell
        If .Interior.ColorIndex = 6 Then .EntireRow.Delete
    End With
Next cell
Application.ScreenUpdating = True
End Sub