如何批量筛选Excel中至少含一个红色单元格的列？

嘿，面对100列的表格逐列筛选确实太折磨人了！给你两个高效的解决方案，不用再手动挨个点：

方法一：VBA宏（最快最省心） #

这是批量处理这类问题的首选，几秒就能完成所有列的判断和隐藏：

1. 打开你的Excel表格，按下 Alt + F11 打开VBA编辑器
2. 右键点击左侧的工作簿名称 → 插入 → 模块
3. 把下面的代码粘贴进去，然后按下 F5 运行：

Sub HideColumnsWithoutRedCells()
    Dim ws As Worksheet
    Dim col As Range
    Dim hasRed As Boolean
    Dim cell As Range
    
    ' 设置要处理的工作表，这里用当前激活的工作表，也可改成具体表名比如Sheets("Sheet1")
    Set ws = ActiveSheet
    
    ' 先取消所有列的隐藏，避免漏判
    ws.Columns.Hidden = False
    
    ' 遍历每一列
    For Each col In ws.UsedRange.Columns
        hasRed = False
        ' 检查当前列的每个单元格
        For Each cell In col.Cells
            ' 判断单元格填充色是否为红色（如果是字体红，改成cell.Font.Color = vbRed）
            If cell.Interior.Color = vbRed Then
                hasRed = True
                Exit For ' 找到红色就不用继续检查这列了
            End If
        Next cell
        
        ' 如果该列没有红色单元格，就隐藏它
        If Not hasRed Then
            col.Hidden = True
        End If
    Next col
    
    MsgBox "处理完成！已隐藏所有无红色单元格的列。"
End Sub

提示：如果你的红色是自定义色（不是默认的vbRed），可以先选中一个红色单元格，在VBA编辑器的立即窗口（按下Ctrl + G打开）输入?ActiveCell.Interior.Color，回车得到颜色代码，把代码替换掉vbRed即可。

方法二：辅助列+筛选（适合不想用宏的情况） #

如果不想碰VBA，用公式和筛选也能搞定：

1. 在表格第一行上方插入一行（右键点击行号1 → 插入）
2. 按下Ctrl + F3打开名称管理器 → 新建：
   • 名称填CellColor，引用位置填=GET.CELL(38,Sheet1!A2)（A2是你表格数据区域的第一个单元格，按需修改）
3. 在新第一行的A1单元格输入=CellColor，横向拖动填充到所有列
4. 选中新第一行的所有单元格 → 点击「数据」选项卡 → 筛选
5. 点击筛选按钮，只勾选红色对应的颜色代码，然后选中所有未勾选的列，右键选择「隐藏」即可

这个方法比VBA繁琐一点，适合对宏有顾虑的场景。

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