ピボットテーブルの行ラベルを結合するVBA

Windows7　エクセル2013を使用しています。
（VBAコードはエクセル2003で書いたコードをそのまま使っています）

添付画像ピボットテーブルの行ラベル「A店」「X」「Y」を結合するVBAはどうしたら良いでしょうか？
画像は手書きサンプルですが左から右のようにしたいのです。）
理由は6月の右隣り列に計算式を入れオートフィルターで抽出した時に
行ラベル「店名」や「分類」が抽出後に見えなくならないようにする為です。
よろしくお願いします。

質問者からの補足コメント

• ２回目エラーになるのは"ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1"がデータファイルを閉じても"ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2"となぜかなってしまうからのようです。

  No.1の回答に寄せられた補足コメントです。 補足日時：2015/03/19 23:20

No.1 ベストアンサー 回答者： m-harmony 回答日時： 2015/03/19 19:12

ＶＢＡ初心者です。

もっとすっきりしたやり方があると思いますが、参考にどうぞ。
「X」や「Y」のセル番号に変動がなければ・・・ですが・・・
Sub Macro1()
Range("A3:A10,B3:B5,B7:B10").Select
Range("B7").Activate
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("A3:A10").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorLight2
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
Range("B7:B10,B3:B5").Select
Range("B3").Activate
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 49407
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub

この回答へのお礼

回答有難う御座います。
セル番号に変動は毎回ありまして・・・

マクロの記録でやってみたところ以下コードで出来ました。
ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").MergeLabels = True

しかしなぜか別要因と思われますが１回目の実行は大丈夫なのですが
VBAは立ち上げたまま再度データを開き実行すると
実行時エラー1004　WorksheetクラスのPivotTablesプロパティを取得できません。
と２回目はエラーになります。
VBAのバグでしょうか？なんでかさっぱりわかりません。

お礼日時：2015/03/19 22:45