Удалить строки "(пусто)" в сводной таблице

[kipish_lp]

Да именно из ячейки "(пусто)" убрать не проблема, строка лишняя.

[Serge 007]

Единственное что могу предложить...
Вы вроде с макросами дружите?
Напишите такой, который находит "(пусто)" на листе и скрывает эту строку. При обновлении запускается вновь.
Больше наверное никак...

[kipish_lp]

Если вдруг кому надо:
Модуль:

Sub Скрыть_Ненужное()
With Worksheets(1).Range("D:D")
Set c = .Find("(пусто)", LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
          c.Select
            Selection.EntireRow.Hidden = True
            Set c = .FindNext(c)
        Loop While Not c Is Nothing
       
    End If
End With
End Sub

Sub Отобразить_Все()
  Rows.Hidden = False
End Sub

Эта книга:

Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)
Отобразить_Все
Скрыть_Ненужное
End Sub

Serge 007, Спасибо за идею!