Огромное спасибо.  
Мой первый макрос и даже вроде бы получился. :)  
Нужно проверить ещё конечно, как он будет подтягивать данные, если что-то изменится. Но на первый взгляд работает.    
Спасибо, спасибо. :)

{quote}{login=Евгений}{date=29.11.2011 02:21}{thema=}{post}Добавьте после обновление кэша сводной таблицы on error resume next.{/post}{/quote}  
Простите, а можно как для "чайника" написать куда мне чего добавить. А-то я ничего не поняла.

{quote}{login=Евгений}{date=29.11.2011 12:56}{thema=}{post}Если у вас вопрос состоит в том, чтобы скрывать "пусто" и пустые значения, то я бы делал проще:  
 
Sheets("Лист1").PivotTables("НазваниеТаблицы").PivotFields("НазваниеПоля").ClearAllFilters  
   Sheets("Лист1").PivotTables("НазваниеТаблицы").PivotCache.Refresh  
   With Sheets("Лист1").PivotTables("НазваниеТаблицы").PivotFields("НазваниеПоля")  
       .PivotItems("").Visible = False  
       .PivotItems("(blank)").Visible = False  
   End With{/post}{/quote}  
 
Я бы с радостью, но у меня могут меняться значения в сводной таблице и не всегда есть "пусто" или пустые значения. А в случае их отсутствия выскакивает ошибка. Поэтому я и начала пользоваться "If". Если можно как-то по другому, то помогите.

Добрый день.  
Я нашла похожий пример решения своей задачи на вашем сайте. Но у меня почему-то выскакивает ошибка "нельзя установить свойство 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 Отчета).  
 
Надеюсь, что я более менее понятно написала. Заранее спасибо за помощь.