如何在Excel中高亮显示被筛选的列或列标题？

对于具有多列的表格，由于被筛选的列没有明显的标识符号（除了一个标记外），很难一眼看出哪一列被筛选了。 如果您希望在表格中突出显示被筛选的列，本文中的方法可以帮助您实现。

使用VBA代码高亮显示被筛选的列标题或整列

使用VBA代码高亮显示被筛选的列标题或整列

如下截图所示，如果某列在表格范围内被筛选，您需要高亮显示整列或仅高亮显示列标题，请应用以下VBA代码。

1. 按下 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，请点击 插入 > 模块。然后将以下VBA代码复制到模块窗口中。

VBA代码：如果列被筛选，则高亮显示列标题

Sub HighLightTitle()
'Updated by Extendoffice 2017/9/12
    Dim xRg As Range
    Dim I As Integer
    Dim xCount As Long
    Dim xRgCol As Long
    Dim xAddress As String
    Dim xFilterCount As Long
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the first cell of the table range：", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xRg.Select
    With xRg(1).Parent.AutoFilter
        xFilterCount = .Range.Columns.Count
        xRgCol = xRg.Offset(1).Column - .Range.Column + 1
        For I = xRgCol To xFilterCount
            xCount = xRg.Offset(, I - xRgCol).Column - .Range.Column + 1
            With .Filters(xCount)
                If .On Then
                    xRg.Offset(, I - xRgCol).Interior.Color = 16736553
                End If
            End With
        Next
    End With
End Sub

要高亮显示被筛选的整列，请将以下VBA代码复制并粘贴到模块窗口中。

VBA代码：如果列被筛选，则高亮显示整列

Sub HighLightCols()
'Updated by Extendoffice 2017/9/12
    Dim xRg As Range
    Dim xCount As Long
    Dim xRgCol As Long
    Dim xAddress As String
    Dim xRgFilter As Range
    Dim xFilterCount As Long
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the first cell of the table range：", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xRg.Select
    With xRg(1).Parent.AutoFilter
        xFilterCount = .Range.Columns.Count
        xRgCol = xRg(1).Column - .Range.Column + 1
        For I = xRgCol To xFilterCount
            xCount = xRg.Offset(, I - xRgCol).Column - .Range.Column + 1
            With .Filters(xCount)
                Set xRgFilter = xRg.Offset(, I - xRgCol).Parent.AutoFilter.Range.Columns(xCount)
                If .On Then
                    xRgFilter.Interior.Color = 16736553
                End If
            End With
        Next
    End With
End Sub

3. 按下 F5 键运行代码。在弹出的 Kutools for Excel 对话框中，请选择需要高亮显示筛选列标题或整列的第一个单元格，然后点击 确定 按钮。

如果某一列在特定表格中被筛选，那么列标题或整列将立即被高亮显示。请参见截图：

如果列在表格中被筛选，则高亮显示列标题：

如果列在表格中被筛选，则高亮显示整列：

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！