以下の項目があります。
ID,レースID,芝0・ダ1,平地0・障害1,距離,騎手名,調教師名,人気,単勝オッズ,着順,開催
ピボットテーブルで、騎手別の着順数をSheet2のA1に出力しようと、マクロの自動記録で以下を作りましたが、「コピーまたは移動先のセルの内容を置き換えますか」とエラーになります。
データ数は、増えていくので、可変になるようにお願いします。
Sub Macro3()
'
' Macro3 Macro
' マクロ記録日 : 2013/5/6 ユーザー名 :
'
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Sheet1!R1C1:R3785C11").CreatePivotTable TableDestination:=Range("A1"), _
TableName:="ピボットテーブル1"
ActiveSheet.PivotTables("ピボットテーブル1").SmallGrid = False
ActiveSheet.PivotTables("ピボットテーブル1").AddFields RowFields:="騎手名", _
ColumnFields:="着順"
With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("着順")
.Orientation = xlDataField
.Caption = "データの個数 : 着順"
.Function = xlCount
End With
End Sub
No.1ベストアンサー
- 回答日時:
>Sheet2のA1に出力しようと
のように作成できていません。
Sub Macro3()
'
' Macro3 Macro
' マクロ記録日 : 2013/5/6 ユーザー名 :
'
worksheets("Sheet2").columns.delete
worksheets("Sheet2").select
’Range("A1").Select
’Range(Selection, Selection.End(xlDown)).Select
’Range(Selection, Selection.End(xlToRight)).Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Sheet1!" & worksheets("Sheet1").range("A1").currentregion.address).CreatePivotTable TableDestination:=Range("A1"), _
TableName:="ピボットテーブル1"
ActiveSheet.PivotTables("ピボットテーブル1").SmallGrid = False
ActiveSheet.PivotTables("ピボットテーブル1").AddFields RowFields:="騎手名", _
ColumnFields:="着順"
With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("着順")
.Orientation = xlDataField
.Caption = "データの個数 : 着順"
.Function = xlCount
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Excel(エクセル) excel ピポットテーブルの更新について 1 2022/05/13 16:12
- Excel(エクセル) ExcelVBAについて。 2 2022/12/10 20:08
- Excel(エクセル) excelVBAについて。 8 2022/12/11 13:47
- Visual Basic(VBA) excelVBAについて。 4 2022/11/21 16:15
- Visual Basic(VBA) エクセル VBA 処理スピードを上げたいのですが。 6 2023/03/31 20:52
- Excel(エクセル) ②Excel 簡単にシートコピーしたら前日の残高と日付を変更させたい→マクロの記録でエラーが出ます 8 2022/07/16 20:40
- Visual Basic(VBA) excelVBAについて。 1 2022/11/30 06:16
- Excel(エクセル) エクセル VBAでシートのコピーを作りたい 1 2023/05/18 07:42
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
おすすめ情報