Очень простой макрос для быстрого создания интерактивных отчетов. Здесь показан эффективный способ фильтрации данных сводных таблиц с использованием события листа "Смена фокуса". А вот и текст макроса: Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next If Target.Column = 1 Then ActiveSheet.PivotTables("Сводная таблица2").PivotFields("Клиент"). _ ClearAllFilters ActiveSheet.PivotTables("Сводная таблица2").PivotFields("Клиент").CurrentPage _ = CStr(Target(1, 1)) End If End Sub