在使用Excel时，我们经常用设定单元格的颜色来区分一些内容，或者用颜色来标记一些相关的数据，而这时如果要将这些按填充颜色筛选出来，用平常的筛选又怎么做呢？
    这个问题可以插入一个辅助列来解决，而且还要用到EXCEL4.0的一个宏表函数：GET.CELL，现在的版本已经不能直接使用这个函数了，只能通过定义名称的办法间接使用。如果以填充颜色进行筛选，就要先通过GET.CELL宏表函数求出颜色值，然后再以这个值来进行筛选。具体步骤：
    假设需要筛选的数据在表1的A列
    1、活动单元格置于B1，在插入-名称-定义里定义一个名称，X=GET.CELL(38,SHEET1!A1)。
    2、在B1中输入=X。
    但一些时候，我们不希望插入一个辅助列，这时就只能用VBA来解决这个问题了。下面这段代码可以实现，除首行外，将当前单元格所在列数据与当前单元格不同颜色的行隐藏起来！
数据首行为标题列，如有其它情况或想法，请自行修改代码。

Sub FilterColor()
Dim UseRow, AC
UseRow = Cells.SpecialCells(xlCellTypeLastCell).Row
If ActiveCell.Row > UseRow Then
 MsgBox "请在要筛选的区域选择颜色条件格！", vbExclamation, "错误"
Else
 AC = ActiveCell.Column
 Cells.EntireRow.Hidden = False
 For i = 2 To UseRow
 If Cells(i, AC).Interior.ColorIndex <> ActiveCell.Interior.ColorIndex Then
 Cells(i, AC).EntireRow.Hidden = True
 End If
 Next
End If
End Sub

使用方法：先把条件颜色的单元格设定为当前单元格，再运行此宏即可。
附上Get.Cell的各参数代表的意义：