Дэвид задается вопросом, есть ли способ отобразить имя сводной таблицы в самой сводной таблице.

Короткий ответ заключается в том, что это невозможно сделать автоматически. Более длинный ответ заключается в том, что вы можете «обмануть» и принудительно указать имя в сводной таблице. Например, вы можете выбрать ячейку с меткой строки в сводной таблице и отредактировать ее (F2), заменив все, что там есть, на любое имя, которое вы хотите ввести. Это далеко не автоматически, и когда вы обновляете сводную таблицу, вам нужно не забыть отредактировать ячейку еще раз.

Еще один способ принудительно указать имя в сводной таблице — использовать макрос. Вероятно, есть несколько подходов, которые вы могли бы использовать в своем макросе. Один из подходов — создать таблицу данных, на которой будет основана ваша сводная таблица. Дайте таблице данных заголовок в первом столбце. (Подойдет любой старый текст для заголовка, поскольку макрос перезапишет его.)

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

Sub GetPVName()

Dim pvt As PivotTable     Dim PVName As String

' Get the PivotTable name from the ActiveSheet     ' If there are multiple PivotTables, this approach     ' ensures the macro will work with the last PivotTable     ' in the PivotTables collection     For Each pvt In ActiveSheet.PivotTables         PVName = pvt.Name     Next pvt

' Put PivotTable name as a heading for the first     ' column of the data table     Range("Table1").Cells(0, 1) = PVName

' Refresh the PivotTable     ActiveSheet.PivotTables(PVName).PivotCache.Refresh

' Set the PivotTable name in the report filter     With ActiveSheet.PivotTables(PVName).PivotFields(PVName)

.Orientation = xlPageField         .Position = 1     End With End Sub

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (3233) применим к Microsoft Excel 2007, 2010, 2013 и 2016.