怎样用宏做工作薄中各个工作表的数据透视表？

sjf19-521

各位大虾：
       在一个工作薄，各个工作表的格式是一样的，每个工作表都要做出相对应的数据透视表出来，工作薄中的工作表很多，在每个工作表中重复做数据透视表的步骤很麻烦忧，所以有这么一个想法，能不能做出一个宏出来，按一下快捷键或自定义按扭就能生成相对应的数据透视表呢？我就开始做，可是我做的那个宏生成的数据透视表的数据源是录制宏的那个工作表，应哪样做？步骤是？谢谢各位大虾了！！！

蓝桥玄霜

Sub 数据透视表()
'
' 数据透视表 Macro
' 宏由 浩海技术 录制，时间: 2008-12-18
'
' 快捷键: Ctrl+t
Dim Sht As Worksheet, Arr
Dim wk As Workbook
Set wk = ActiveWorkbook
n = Sheets.Count
ReDim Arr(n)
    For Each Sht In Sheets
        Sht.Activate
        r = r + 1
        Arr(r) = "'" & Sht.Name & "'!R1C1:R24C4"
        wk.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        Arr(r)).CreatePivotTable TableDestination:="", TableName:= _
        "数据透视表" & i, DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    With ActiveSheet.PivotTables("数据透视表" & i).PivotFields("业务员")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("数据透视表" & i).PivotFields("结算方式")
        .Orientation = xlColumnField
        .Position = 1
    End With
    ActiveSheet.PivotTables("数据透视表" & i).AddDataField ActiveSheet.PivotTables("数据透视表" & i _
        ).PivotFields("金额"), "求和项:金额", xlSum
    With ActiveSheet.PivotTables("数据透视表" & i).PivotFields("付款单位")
        .Orientation = xlPageField
        .Position = 1
    End With
    ActiveSheet.Name = Sht.Name & "表"
    Next
End Sub

sjf19-521

谢谢了，很管用，就是现在还看不懂这些代码！
谢谢