如果在Excel中进行过滤，如何突出显示列或列标题？

网友投稿 133 2024-01-01

如果在Excel中进行过滤，如何突出显示列或列标题？

对于具有多列的表，一目了然地找出要过滤的列并不容易，因为除了标记。如果要使表中未过滤的列突出显示，本文中的方法可以为您提供帮助。

突出显示列标题或整个列（如果已使用VBA代码过滤）

惊人的！在 Excel 中使用高效的选项卡，如 Chrome、Firefox 和 Safari！ 每天节省50％的时间，并减少数千次鼠标单击！

如下面的屏幕截图所示，如果在表范围内过滤了此列，则需要突出显示整个列或仅突出显示列标题，请应用以下VBA代码。

1。按其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

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

Copy

如果要突出显示整个表格（如果已在表格中进行过滤），请复制以下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

Copy

3。按 F5 键来运行代码。在弹出 Kutools for Excel 对话框中，请选择您需要突出显示过滤后的列标题或整个过滤后的列的表的第一个单元格，然后单击 OK 按钮。

然后，如果在特定表中过滤了该列，则列标题或整个列将立即突出显示。查看屏幕截图：

如果表中过滤了列，则突出显示列标题：

突出显示整列（如果在表格中进行了过滤）：

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！

为什么需要 Kutools for Excel

🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。