【Excel VBA】ピボットのデータをコピーする際のエラーにつきまして

はじめまして。
VBA初心者の者です。

実現したいことはVBAで作成したピボットの
データをコピーして貼り付けたいのですがある行でエラーになってしまいます。

Sub
1    Dim D As Range
2    Set D = ActiveCell.CurrentRegion
3    Sheets.Add
4    ActiveWorkbook.PivotCaches.Add(xlDatabase, D).CreatePivotTable _
5    Range("A3")
6    With ActiveSheet.PivotTables(1)
7        .PivotFields("都道府県").Orientation = xlRowField
8        .PivotFields("性別").Orientation = xlColumnField
9        .PivotFields("性別").Orientation = xlDataField
10    End With
11    Range("A3").Activate
12    
13    Range("G1") = "都道府県"
14    Range("H1") = "女性"
15    Range("I1") = "男性"
16    Range("J1") = "合計"
17    
18    With ActiveSheet.PivotTables(1)
19        .RowFields("都道府県").DataRange.Copy Range("G2")
20        .RowFields("女性").DataRange.Copy Range("H2")
21        .RowFields("男性").DataRange.Copy Range("I2")
22        .RowFields("合計").DataRange.Copy Range("J2")
23    End With
24    
25End Sub
26
27コード

.RowFields("女性").DataRange.Copy Range("H2")
の部分で、”PivotableクラスのRowFieldsプロパティを取得できません。"
というエラーメッセージが出ます。

.RowFields("都道府県").DataRange.Copy Range("G2")
のデータはすべてコピ貼りする事ができたので何故エラーになってしまうのか
分からない状態です。

解決方法をご教授頂ければ幸いです。
宜しくお願い致します。

行動規範の内容に同意します

回答2件

ベストアンサー

.ColumnFields("女性").DataRange.Copy Range("H2")

上記コードで解決できました！

投稿2019/02/21 15:13

退会済みユーザー

総合スコア0

VBA
1With ActiveSheet.PivotTables(1)
2        .PivotFields("都道府県").Orientation = xlRowField
3        .PivotFields("性別").Orientation = xlColumnField
4        .PivotFields("性別").Orientation = xlDataField
5End With

ここに女性という文字がないからでは？

投稿2019/02/21 00:44