要按单元格颜色进行筛选，可以使用VBA代码来实现。下面是一个示例代码：

Sub FilterByCellColor()
    Dim cell As Range
    Dim filterRange As Range
    
    '设置筛选范围
    Set filterRange = Range("A1:D10")
    
    '清除所有筛选
    ActiveSheet.AutoFilterMode = False
    
    '循环检查每个单元格的颜色
    For Each cell In filterRange
        '如果单元格的颜色是红色，则显示该行
        If cell.Interior.Color = RGB(255, 0, 0) Then
            cell.EntireRow.Hidden = False
        Else
            cell.EntireRow.Hidden = True
        End If
    Next cell
    
    '应用筛选
    filterRange.AutoFilter Field:=1, Criteria1:="<>", VisibleDropDown:=False
End Sub

以上代码中，首先设置了要筛选的范围，然后清除当前所有的筛选。接着，使用循环来检查每个单元格的颜色，如果单元格的颜色是红色，则显示该行，否则隐藏该行。最后，应用筛选，将不符合条件的行隐藏起来。

请注意，代码中的颜色判断部分使用了RGB函数来指定颜色的RGB值。你可以根据需要修改这个部分的颜色值来适应你的需求。