|
▼MMX さん:
>指定が抜けているように思われます。
詳しくいいますと、マクロの記録で下のようなテキストを得ました。
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Sheet1!R1C1:R15000C14").CreatePivotTable TableDestination:="", TableName:= _
"ピボットテーブル1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("課")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("商品")
.Orientation = xlColumnField
.Position = 1
End With
このなかのR15000C14を、R[" & m & "]C[" & n & "]にしたいのです。
しかしうまくいきません。マクロの記録で得たテキストは変えられないのですか?
|
|