|
Dim m As Long
Dim n As Long
m = ActiveSheet.Range("A65535").End(xlUp).Row
n = ActiveSheet.Range("A1").End(xlToRight).Column
> Range("A1").Select
> Range(Selection, Selection.End(xlDown)).Select
> Range(Selection, Selection.End(xlToRight)).Select
↑ mとn求めてるので
Range(Cells(1, 1), Cells(m, n)).Selectでもいけるけど
ここでの範囲のセレクトは、無くても良いですね
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Sheet1!R1C1:R" & m & "C" & n).CreatePivotTable TableDestination:="", TableName:= _
"ピボットテーブル1"
あとは、MMX さんのおっしゃる通りにすればできると思います
▼MMX さん:
>縦の見出し、横の見出し、集計対象などの以下のような
>指定が抜けているように思われます。たぶんw(^^;
>
>ActiveSheet.PivotTables("ピボットテーブル1").AddFields _
> RowFields:="縦見出し(縦軸にしたい項目)", _
> ColumnFields:="横見出し(横軸にしたい項目)"
>
>ActiveSheet.PivotTables("ピボットテーブル1") _
> .PivotFields("集計したい項目").Orientation = xlDataField
|
|