多个数据透视表的 VBA 脚本

Question

我每周都会更换源数据，并附有许多数据透视表。但是，当我刷新表格时，它们开始丢失一些数据。因此，我继续记录了一些“宏”，以每次创建和替换新的数据透视表。粘贴的区域将保持不变，我给了它们足够的周围空间，使它们永远不会重叠。不幸的是，我遇到了很多错误，而且根本不擅长使用 VBA。我只知道论坛等。

源数据在“CopyData”上 国家/地区数据透视表应位于“国家/地区”

所以我的问题是： 1.如何创建一个 VBA 脚本来创建和替换数据透视表，并且可以在之后多次使用（所以也许从删除旧的数据透视表开始？） 2. 如何保持数据透视表的名称通用？我不知道下一个数据透视表在运行时会调用什么

任何帮助都会很棒！

下面是我的“宏”之一的代码，它应该创建和替换两个数据透视表。

   Sub Pivots_Country()
' Pivots_Country Macro
'
'
    Range("B215").Select
    ActiveWorkbook.Worksheets("Region").PivotTables("PivotTable10").PivotCache. _
        CreatePivotTable TableDestination:="Sheet1!R2C2", TableName:="PivotTable10" _
        , DefaultVersion:=xlPivotTableVersion14
    Sheets("Sheet1").Select
    Cells(2, 2).Select
    ActiveSheet.PivotTables("PivotTable11").AddDataField ActiveSheet.PivotTables( _
        "PivotTable11").PivotFields("storeId"), "Count of storeId", xlCount
    With ActiveSheet.PivotTables("PivotTable11").PivotFields("NewCountry")
        .Orientation = xlRowField
        .Position = 1
    End With
    Sheets("CopyData").Select
    Range("B10").Select
    ActiveWorkbook.Worksheets("Sheet1").PivotTables("PivotTable11").PivotCache. _
        CreatePivotTable TableDestination:="Sheet1!R4C6", TableName:="PivotTable12" _
        , DefaultVersion:=xlPivotTableVersion14
    Sheets("Sheet1").Select
    Cells(4, 6).Select
    With ActiveSheet.PivotTables("PivotTable12").PivotFields("plan")
        .Orientation = xlColumnField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("PivotTable12").PivotFields("planCode")
        .Orientation = xlPageField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("PivotTable12").PivotFields("NewCountry")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("PivotTable12").AddDataField ActiveSheet.PivotTables( _
        "PivotTable12").PivotFields("storeId"), "Count of storeId", xlCount
    ActiveWindow.SmallScroll Down:=-7
    Range("B2:C56").Select
    Selection.Copy
    Sheets("Country").Select
    Range("B4").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=7
    ActiveWindow.SmallScroll ToRight:=-2
    ActiveWindow.SmallScroll Down:=-2
    ActiveWindow.SmallScroll ToRight:=-1
    ActiveWindow.SmallScroll Down:=-1
    ActiveWindow.SmallScroll ToRight:=-2
    ActiveWindow.SmallScroll Down:=-30
    Sheets("Sheet1").Select
    ExecuteExcel4Macro "(""PivotTable12"",""planCode"",3,FALSE,TRUE)"
    Range("F2:P52").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Country").Select
    ActiveWindow.SmallScroll ToRight:=3
    ActiveWindow.SmallScroll Down:=-1
    ActiveWindow.SmallScroll ToRight:=2
    Range("R3").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=1
    Range("Q15").Select
    Sheets("Sheet1").Select
    Cells.Select
    Range("F2").Activate
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Range("J11").Select
    Sheets("CopyData").Select
End Sub

Answer 1

您确实不需要重新创建数据透视表。刷新数据后，您需要找出数据透视表中缺少数据的原因。这应该少很多工作。

我怀疑数据透视表正在从某个范围内获取数据，并且当您刷新数据时，新数据的行数比旧数据多，因此数据透视表会丢失额外的行。

确保您透视表的最佳方法是基于一个范围，该范围具有足够的行来存储您放入工作表中的所有当前和未来数据。

检查数据透视表。

1. 点击数据透视表

2. 在功能区>数据透视表工具>分析>数据>更改数据源您可以看到范围是什么（并更改它）

请告诉我你的进展情况。

将来您可能会考虑使用 excel 表格（也称为 ListObjects）

例如

1. 选择包含您的数据的范围

2. 单击功能区>插入>表格按钮将范围转换为 Excel 表格。

3. 更改您的数据透视表以引用表中的数据

4. 更改刷新数据的方式。

由于您是 excel 新手，我现在不会使用 Excel 表格，先让它工作，然后将其转换为使用它们。

我希望这会有所帮助。 哈维