如何在Excel中同时按日期和单元格背景颜色筛选数据？

这个需求完全可行，之前的方法没成功是因为没找对正确的实现路径，下面给两种实用的解决办法：

方法一：辅助列+普通筛选（非编程方案） #

这是最容易上手的方式，步骤如下：

• 新增一列辅助列（比如D列），在D2单元格输入公式 =CELL("color",A2)，下拉填充到所有数据行。这个公式会返回对应单元格的颜色索引值（不同背景色对应不同数值，你可以先选中一个浅绿色单元格，输入公式看返回的具体数字）。
• 用Excel自带的筛选功能：先在日期列筛选出26-feb-23，再在辅助列筛选出浅绿色对应的颜色索引值，就能得到同时满足两个条件的单元格。

方法二：VBA自定义筛选（无辅助列） #

如果不想加辅助列，直接用VBA实现精准筛选，以下是可直接运行的代码：

Sub FilterByDateAndColor()
    Dim targetDate As Date
    Dim targetColorIndex As Integer
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 替换成你的目标日期和浅绿色对应的颜色索引值
    targetDate = DateValue("26-feb-23")
    targetColorIndex = 35 ' 先通过?ActiveCell.Interior.ColorIndex获取实际值
    
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 清除原有筛选
    ws.AutoFilterMode = False
    
    ' 遍历行，隐藏不符合条件的记录
    For i = 2 To lastRow
        ' 检查A、B、C三列是否存在符合双条件的单元格
        If (ws.Cells(i, "A").Value = targetDate And ws.Cells(i, "A").Interior.ColorIndex = targetColorIndex) Or _
           (ws.Cells(i, "B").Value = targetDate And ws.Cells(i, "B").Interior.ColorIndex = targetColorIndex) Or _
           (ws.Cells(i, "C").Value = targetDate And ws.Cells(i, "C").Interior.ColorIndex = targetColorIndex) Then
            ws.Rows(i).Hidden = False
        Else
            ws.Rows(i).Hidden = True
        End If
    Next i
End Sub

使用步骤：

1. 按Alt+F11打开VBA编辑器，插入新模块，粘贴代码。
2. 选中一个浅绿色单元格，在VBA编辑器的立即窗口输入 ?ActiveCell.Interior.ColorIndex，回车得到颜色索引值，替换代码里的targetColorIndex。
3. 运行代码，即可只显示满足日期和颜色条件的行。

关于之前失败原因的说明 #

• 高级筛选本身不支持将单元格背景色作为筛选条件，所以单纯用高级筛选无法实现。
• 之前的VBA函数没生效，大概率是颜色索引值获取错误，或者条件判断逻辑没同时兼顾日期和颜色，也可能是遍历的范围不对。

内容的提问来源于stack exchange，提问作者Fields