EXCELマクロのピボットテーブル

質問

G列に名前、０列に点数があります。
ピボットテーブルで

名前,　平均／点数,　個数／点数

と横に表記したいのですが、

名前,　平均／点数,　
　　　 個数／点数

と2行分かれて表記されます。
マクロは以下です。どこをどう変更したらよいでしょうか。

'ピボットテーブル作成

Dim pvt As PivotTable
Dim rngData As Range

Set rngData = ActiveSheet.Range("A1").CurrentRegion
Sheets.Add
Set pvt = _
ActiveWorkbook.PivotCaches.Add( _
SourceType:=xlDatabase, _
SourceData:=rngData). _
CreatePivotTable(TableDestination:=Range("A3"))
With pvt
.PivotFields("名前").Orientation = xlRowField
.PivotFields("点数").Orientation = xlDataField
pvt.DataFields(1).Function = xlAverage

With pvt
.PivotFields("名前").Orientation = xlRowField
.PivotFields("点数").Orientation = xlDataField
pvt.DataFields(1).Function = xlCount

End With

End With
'

回答No.1

keithin · ベストアンサー

'ピボットテーブル作成

Dim pvt As PivotTable
Dim rngData As Range

Set rngData = ActiveSheet.Range("A1").CurrentRegion
Sheets.Add
Set pvt = _
ActiveWorkbook.PivotCaches.Add( _
SourceType:=xlDatabase, _
SourceData:=rngData). _
CreatePivotTable(TableDestination:=Range("A3"))
With pvt
.PivotFields("名前").Orientation = xlRowField
.PivotFields("点数").Orientation = xlDataField
.PivotFields("点数").Orientation = xlDataField

.DataFields(1).Function = xlAverage
.DataFields(2).Function = xlCount
.datafields(1).caption = "平均/点数"
.datafields(2).caption = "個数/点数"
.datapivotfield.orientation = xlcolumnfield

End With

お礼

迅速な回答ありがとうございます。
ばっちりです。
助かりました。