Добрый день.  
Я нашла похожий пример решения своей задачи на вашем сайте. Но у меня почему-то выскакивает ошибка "нельзя установить свойство visible класса PivotItem". Причём она выскакиевает в команде: .PivotItems(i).Visible = True    
Как я понимаю .PivotItems(i).Visible = False оно пропустило.    
Подскажите, пожалуйста, с чем это может быть связано? Можно мне как "чайнику" объяснить, а-то я первый раз макросы пишу. Спасибо.  
 
Макрос:    
With ActiveSheet.PivotTables("Сводная таблица3").PivotFields( _"Влияние последствий")  
 For i = 1 To .PivotItems.Count  
   If .PivotItems(i).Value = "(пусто)" Or .PivotItems(i).Value = "" Then  
      .PivotItems(i).Visible = False  
   Else:  
      .PivotItems(i).Visible = True  
   End If  
 Next  
End With

Здравствуйте.  
Ивините, если не совсем точно написала название темы. Затрудняюсь её придумать.  
Мне нужно создать сводную карту. В приложении указан пример. Попробую пояснить:  
Нужно, чтобы из "Свод База" подтягивались данные в "Карта рисков" в зависимости от колонок "Влияние последствий" и "Оценка реализации риска".  
В "Свод База" колонка "Последствия (возможные риски)" может повторяться много раз. Мне нужно, чтобы в соответствующие ячейки попадало "Последствия (возможные риски)", потом "в частности:" и через Alt+Enter перечислялись все нарушения. К тому же, если по одному риску получается несколько разных "Влияние последствий" или "Оценка реализации риска", то нужно чтобы все нарушения всё равно попадали в одну ячейку по максимальному значению.  
Например, "Риск превышения полномочий при принятии решения" повторяется 2 раза с разными нарушениями и разными "Оценка реализации риска" (средняя и выше среднего), нужно, чтобы в ячейку G9 (выше среднего) попало:  
 
Риск превышения полномочий при принятии решения:  
факты нарушения лимитной дисциплины (п. 4 Отчета);  
отсутствие эффективного  управления  (п. 7 Отчета).  
 
Надеюсь, что я более менее понятно написала. Заранее спасибо за помощь.