excel - 删除和重新上传数据表而没有引用有 #REF 问题 [Excel]

Question

我创建了一个 VBA 脚本，用于删除现有数据表(名为 Data)并将其替换为新版本(具有相同的标题并名为 Data)。我有很多依赖于该表的公式和图表，并且想知道如何在更改表后保持引用正常工作(以便在更新数据表时自动更新数据透视表、公式和数组公式)。

以下是我遇到的问题的一些图片:

未使用新数据更新数据透视表


数据转向#REF!删除数据表后

Answer 1

可能发生的情况是，一旦您删除了表格(根据您对问题的定义)，图表的链接就会丢失。

与其删除表(作为一个整体)，不如删除单个数据行:

Sub RemoveTableBodyData()

Dim tbl As ListObject

Set tbl = ActiveSheet.ListObjects("Table1")

'Delete Table's Body Data
  If tbl.ListRows.Count >= 1 Then
    tbl.DataBodyRange.Delete
  End If

End Sub

来自: The VBA Guide To ListObject Excel Tables

否则，这应该保持图表的表格引用完整。仅供引用:由于数据已更新，您可能需要调用以刷新任何相关的数据透视表和图表，否则可能不清楚数据已更新...我可能会在数据集后调用刷新一次已被清除，然后在更新后再次清除......这将清楚地表明枢轴/图表已更新。

祝你好运。