Как выделить столбец или заголовок столбца, если он отфильтрован в 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 выберите первую ячейку таблицы, где нужно выделить заголовок отфильтрованного столбца или весь отфильтрованный столбец, а затем нажмите кнопку ОК.

Заголовок столбца или весь столбец будут немедленно выделены, если столбец отфильтрован в определенной таблице. См. скриншоты:

Выделение заголовка столбца, если столбец отфильтрован в таблице:

Выделение всего столбца, если он отфильтрован в таблице:

Раскройте магию Excel с Kutools AI

• Умное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это посредством простых команд.
• Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации ваших рабочих процессов.
• Кодирование VBA: Пишите и внедряйте код VBA без особых усилий.
• Интерпретация формул: Легко разбирайтесь в сложных формулах.
• Перевод текста: Преодолейте языковые барьеры в ваших таблицах.

Улучшите возможности Excel с помощью инструментов на базе ИИ. Скачать сейчас и испытайте беспрецедентную эффективность!