以下是代码的一个版本，其范围限定为工作表级别：

Dim LastColumn As Long
Set ws = ActiveSheet ' you should change this to Worksheets("YourSheetName") to be safer
Dim LastRow As Long
LastRow = 0
LastColumn = 0
With ws
    LastRow = .Range("c" & .Rows.Count).End(xlUp).Row
    LastColumn = .Cells(11, .Columns.Count).End(xlToLeft).Column
    .Range(.Cells(12, 1), .Cells(LastRow, LastColumn)).SpecialCells(xlCellTypeVisible).Interior.ColorIndex = -4142
    delay 60
    .Range("A1").Select
End With

这是假设所有的范围都在同一个Activesheet上。