IT備忘録

VBAにてピポットテーブルを作成する方法です。

----
Dim COUNT as integer

COUNT = Range("A65536").End(xlUp).Row  ' 最後のレコードの行番号を入手

ActiveSheet.PivotTableWizard xlDatabase, Range(Cells(1, 1), Cells(COUNT, 10)), "", "集計テーブル"

ActiveSheet.PivotTables("集計テーブル").AddFields RowFields:=Array("ROW-01", _
    "ROW-02"), ColumnFields:=Array("COL-01", "COL-02")

With ActiveSheet.PivotTables("集計テーブル").PivotFields("DATA")
    .Orientation = xlDataField
    .Caption = "合計 / DATA"
    .Function = xlSum
End With

ActiveWorkbook.ShowPivotTableFieldList = True
----

今回のポイントは、レコード数が可変であっても対応するようにしました。
斜線字を環境に応じて変更します。
また、必要に応じてピポットテーブルの作成をマクロに記録し、
コピー＆ペーストにて編集しましょう。

--参考ページ
http://www.serpress.co.jp/excel/vba027.html
http://www11.plala.or.jp/koma_Excel/index.html