以下是这段代码ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "SourceData!R1C1:R82C5").CreatePivotTable TableDestination:="", TableName:= _
        "PivotTable4", DefaultVersion:=xlPivotTableVersion10
        
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(4, 1)
    
    ActiveSheet.Cells(4, 1).Select
    
    With ActiveSheet.PivotTables("PivotTable4").PivotFields("Country")
        .Orientation = xlPageField
        .Position = 1
    End With
    
    With ActiveSheet.PivotTables("PivotTable4").PivotFields("Salesperson")
        .Orientation = xlRowField
        .Position = 1
    End With
    
    ActiveSheet.PivotTables("PivotTable4").AddDataField ActiveSheet.PivotTables( _
        "PivotTable4").PivotFields("Order Amount"), "Sum of Order Amount", xlSum有没有人做过?