Фильтр сводной таблицы

Ниже приведено простое представление огромных данных и их сводной таблицы.

Данные

+ ------ + ------ +
| Проект | Данные |
+ ------ + ------ +
| ABC | S |
| ABC | U |
| ABC | S |
| ABC | U |
| ABC | U |
| XYZ | U |
| XYZ | U |
| XYZ | U |
| XYZ | U |
| XYZ | U |
+ ------ + ------ +

Когда мы применяем
сводную таблицу к этим данным, метка Coulumn - Proj
Row Label -
Значение данных - Данные

Мы получаем,

+ ------- + --- + --- + ------- +
| Проект | S | U | Всего |
+ ------- + --- + --- + ------- +
| ABC | 2 | 3 | 5 |
| XYZ | | 5 | 5 |
| Всего | 2 | 8 | 10 |
+ ------- + --- + --- + ------- +

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

+ ------- + --- + --- + ------- +
| Проект | S | U | Всего |
+ ------- + --- + --- + ------- +
| ABC | 2 | 3 | 5 |
| Всего | 2 | 3 | 5 |
+ ------- + --- + --- + ------- +

Спасибо!

Я думаю, что вы можете сделать этот хороший фильтр и в Excel 2010 (пока я использую 2013).

ОБНОВИТЬ

Этот код сделает это:

Sub hide_pivot_items()
Dim pt As PivotTable
Set pt = ActiveSheet.PivotTables("PivotTable2")
Dim cell As Range

For Each cell In pt.PivotFields("Data").PivotItems("S").DataRange
    If cell.Value = vbNullString Then
        'hiding row
        pt.PivotFields("Proj").PivotItems(ThisWorkbook.ActiveSheet.Cells( _
            cell.Row, pt.PivotFields("Proj").DataRange.Column).Value).Visible = False
    End If
Next
End Sub

Просто используйте ваше реальное имя сводной таблицы вместо PivotTable2третьей строки.