帮忙检查下数据透视表的代码

hotf4zhl

希望高手帮忙查下代码，不知道是哪里出了问题。代码做不出数据透视表

附件里有个“”成品”工作表 是最后做成的样子。



Sub InsertPivotTable()
'Declare Variables
Dim PSheet As Worksheet
Dim DSheet As Worksheet
Dim PCache As PivotCache
Dim PTable As PivotTable
Dim PRange As Range
Dim LastRow As Long
Dim LastCol As Long
'Insert a New Blank Worksheet
On Error Resume Next
Application.DisplayAlerts = False
Worksheets("PivotTable").Delete
Sheets.Add Before:=ActiveSheet
ActiveSheet.Name = "PivotTable"
Application.DisplayAlerts = True
Set PSheet = Worksheets("PivotTable")
Set DSheet = Worksheets("sheet2")
'Define Data Range
LastRow = DSheet.Cells(Rows.Count, 1).End(xlUp).Row
LastCol = DSheet.Cells(1, Columns.Count).End(xlToLeft).Column
Set PRange = DSheet.Cells(1, 1).Resize(LastRow, LastCol)
'Define Pivot Cache
Set PCache = ActiveWorkbook.PivotCaches.Create _
(SourceType:=xlDatabase, SourceData:=PRange). _
CreatePivotTable(TableDestination:=PSheet.Cells(2, 2), _
TableName:="MediaPivotTable")
'Insert Blank Pivot Table
Set PTable = PCache.CreatePivotTable _
(TableDestination:=PSheet.Cells(1, 1), TableName:="MediaPivotTable")
'Insert Row Fields
With PTable.PivotFields("Media")
        .Orientation = xlRowField
        .Position = 1
    End With
ActiveSheet.PivotTables("PivotTable").AddDataField ActiveSheet.PivotTables( _
        "PivotTable").PivotFields("Client Name"), "Sum of Client Name", xlSum

End Sub

hotf4zhl

顶一下，希望有高手帮忙看一下。谢谢。

蓝桥玄霜

建议用录制宏的方法获得代码，再加以修改。

hotf4zhl

顶一下，希望有高手帮忙看一下。谢谢。