Шаг 1: Подготовка данных и определение места для копирования

Убедитесь, что ваша таблица имеет четко определенную строку заголовка (обычно первая строка данных). Решите, куда вы хотите копировать заголовок. Например, в строку 1, если ваши данные начинаются со строки 3, или на отдельный лист.

Шаг 2: Открытие редактора VBA

Нажмите Alt + F11, чтобы открыть редактор Visual Basic for Applications (VBA).

Шаг 3: Вставка кода

В окне ‘Проект VBA’ (слева) найдите ваш рабочий лист (например, ‘Лист1 (Sheet1)’) и дважды щелкните по нему. Вставьте следующий код:

Private Sub Worksheet_Change(ByVal Target As Range)
    ' Отключаем события, чтобы избежать зацикливания
    Application.EnableEvents = False
    
    On Error GoTo ErrorHandler
    
    ' Проверяем, был ли изменен режим автофильтра
    If Me.AutoFilterMode And Me.FilterMode Then
        ' Диапазон исходного заголовка (например, строка 2)
        Dim headerRange As Range
        Set headerRange = Me.Rows(2) ' Измените 2 на номер строки вашего заголовка
        
        ' Место, куда будет скопирован заголовок (например, строка 1)
        Dim destinationRange As Range
        Set destinationRange = Me.Rows(1) ' Измените 1 на номер строки, куда копировать
        
        ' Копируем заголовок
        headerRange.Copy destinationRange
        
        ' Очищаем содержимое ниже, если нужно, чтобы не было дубликатов
        ' Me.Range("A" & headerRange.Row + 1 & ":Z" & destinationRange.Row - 1).ClearContents
        
        ' Дополнительно: можно настроить форматирование
        ' destinationRange.Font.Bold = True
        
    ElseIf Not Me.AutoFilterMode And Not Me.FilterMode Then
        ' Если фильтр снят, можно очистить скопированный заголовок
        Me.Rows(1).ClearContents ' Очищаем строку, куда копировали
    End If
    
ErrorHandler:
    ' Включаем события обратно
    Application.EnableEvents = True
End Sub
    

Шаг 4: Настройка диапазона и места копирования

В коде измените Me.Rows(2) на номер строки, где находится ваш исходный заголовок, и Me.Rows(1) на номер строки, куда вы хотите его скопировать. Убедитесь, что строка назначения не пересекается с исходным заголовком или данными, чтобы избежать перезаписи. Если вы работаете с динамическими диапазонами, вам может быть полезно ознакомиться со статьей о закреплении ссылок в Excel при вставке строк.

Шаг 5: Тестирование

Закройте редактор VBA и вернитесь в Excel. Примените фильтр к вашей таблице. Вы увидите, что заголовок автоматически скопируется в указанную вами строку. При снятии фильтра скопированный заголовок будет удален.

Шаг 1: Подготовка и добавление новой строки

Вставьте одну или несколько пустых строк над вашей таблицей, где будет располагаться динамический заголовок. Например, если ваши данные начинаются со строки 3, используйте строки 1 и 2.

Шаг 2: Использование функции SUBTOTAL для сводных данных

В ячейках нового заголовка вы можете использовать функцию

SUBTOTAL

для отображения сводной информации о видимых (отфильтрованных) данных. Например, чтобы посчитать количество видимых строк:

=СЧЁТЗ(B4:B1000) ' Для подсчета непустых ячеек в столбце B, начиная с B4
=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(3;B4:B1000) ' То же самое, но игнорирует скрытые строки
    

Функция

ПРОМЕЖУТОЧНЫЕ.ИТОГИ

(SUBTOTAL) имеет множество опций (например, 1 для СРЗНАЧ, 9 для СУММ, 3 для СЧЁТЗ), которые работают только с видимыми ячейками. Это отличный способ получить динамические итоги для отфильтрованных данных.

Шаг 3: Отображение первого видимого элемента (опционально)

Если вы хотите показать значение из первой видимой строки отфильтрованных данных (например, название категории), это сложнее, но возможно с комбинацией функций:

=ИНДЕКС(A:A;МИН(ЕСЛИ(ПРОМЕЖУТОЧНЫЕ.ИТОГИ(103;СМЕЩ(A2;СТРОКА(A2:A1000)-СТРОКА(A2);0));СТРОКА(A2:A1000))))
    

Эта формула является формулой массива и требует ввода с помощью Ctrl + Shift + Enter. Она находит номер строки первого видимого элемента в диапазоне A2:A1000 и возвращает его значение. Для более сложных сценариев работы с данными, возможно, вам будет полезен гайд по замене по нескольким условиям в Excel.