隐藏Excel中的所有红色单元格

Question

我想通过按下命令按钮来隐藏工作表中的所有RED单元格。如何使用宏来完成此操作？我还想要另一个按钮来取消隐藏它们。目前，我有以下工作：

Sub HideRow()    
Dim i As Long    
Dim LASTROW As Long    
Application.ScreenUpdating = False

LASTROW = Cells(Rows.Count, 2).End(xlUp).Row

For i = 1 To LASTROW    
    If Range("C" & i).Interior.ColorIndex = 3 Then    
        Range("C" & i).EntireRow.Hidden = True    
    End If    
Next i

Application.ScreenUpdating = True

End Sub

谢谢，

Answer 1

你确定LASTROW是有效的，也许你搞砸了列？

您按Cells(Rows.Count, 2)搜索最后一行，2表示B列。 但你检查C列中的颜色Range("C" & i) 顺便说一下，您可以使用Cells(i,3)代替Range("C" & i)