ピボットテーブルのマクロについて
ピボットテーブルのマクロについて教えてください。
NO 場所 ランク 面積
1 東京 上 10
2 大阪 上 20
3 福岡 中 20
4 広島 中 30
5 東京 中 15
6 東京 中 25
7 大阪 下 35
8 福岡 下 45
9 大阪 下 10
10 大阪 下 10
という表があり、
場所ごとランクごとの面積集計を
ピボットテーブルのマクロを組んで実施したい
のですが(同じ作業を繰り返すので)、
マクロを記録して、内容を実行しようとすると、
「実行時エラー」が出てしまいます。
記録したマクロは以下の通りです。
( → ←のところでエラーが出ます)
Sub Macro1()
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Sheet1!C2:C4").CreatePivotTable TableDestination:="", TableName:= _
"ピボットテーブル2", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
→ With ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("場所") ←
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("ランク")
.Orientation = xlRowField
.Position = 2
End With
ActiveSheet.PivotTables("ピボットテーブル2").AddDataField ActiveSheet.PivotTables( _
"ピボットテーブル2").PivotFields("面積"), "データの個数 / 面積", xlCount
Range("A3").Select
ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("データの個数 / 面積
").Function = _
xlSum
End Sub
ピボットテーブルのフィールドリストがうまく挙がってこないようなのですが、
どのようにマクロを組み直せば、よいのでしょうか?
作りたい集計表は、以下のようなものです。
場所 ランク 合計
広島 中 30
集計 30
大阪 下 55
上 20
集計 75
東京 上 10
中 40
集計 50
福岡 下 45
中 20
集計 65
総計 220
長々とまた見づらくてすみません。
よろしくお願いします。