Davidは、ピボットテーブル自体の中にピボットテーブルの名前を表示する方法があるかどうか疑問に思います。

簡単に言うと、これを自動的に行う方法はありません。より長い答えは、名前を「チート」してピボットテーブルに強制することができるということです。たとえば、ピボットテーブルで行ラベルセルを選択して編集し（F2）、そこにあるものを入力したい名前に置き換えることができます。これは自動ではありません。ピボットテーブルを更新するときは、セルを再度編集することを忘れないでください。

名前をピボットテーブルに強制する別の方法は、マクロを使用することです。マクロで採用できるアプローチはおそらくいくつかあります。 1つのアプローチは、ピボットテーブルの基になるデータテーブルを作成することです。最初の列に、データテーブルに見出しを付けます。 （マクロが見出しを上書きするため、見出しの古いテキストでもかまいません。）

ピボットテーブルを作成したら、次のマクロを実行します。ピボットテーブルの名前を決定し、それをデータテーブルの見出しに詰め込み、ピボットテーブルを更新して（名前がそこに表示されるように）、ピボットテーブルレポートフィルターの名前を更新して、ピボットテーブルの名前と同じにします。

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_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（3233）は、Microsoft Excel 2007、2010、2013、および2016に適用されます。