可以使用以下命令标识VBA中的范围：

Activesheet.pivottables(1).databodyrange.address

也可以使用“相交”功能来确定两个范围是否相交。
http://www.globaliconnect.com/excel/index.php?option=com_content&view=article&id=154:referencing-an-excel-pivot-table-range-using-vba&catid=79&Itemid=475
您必须进一步挖掘，看看是否可以使用VBA移动透视表。或者，您可以使用宏记录器动态地重新创建透视表，并根据在同一页上创建的透视表的边界来定位它们。

此解决方案涉及一些VBA，但可以是复制/粘贴：
https://exceleratorbi.com.au/find-overlapping-pivot-tables/
本质上，它涉及“记录”透视表的每次刷新**。当透视表失败时，该条目不会被记录。允许您识别失败的表。

**您需要先从成功运行中获取透视表的列表/顺序

• 或者 *

您可以获得所有表及其工作表的列表，然后猜测哪些部分重叠：
https://excelreality.blogspot.nl/2014/08/finding-source-pivot-table-cannot.html

• 或者 *

下面的答案适合我的需要与轻微的调整（删除更新由于内存错误），然后阅读错误前的最后一个表：https://superuser.com/questions/703847/how-do-i-find-which-pivot-tables-has-an-error-in-excel-2010
作为

Sub ref()

Dim Sheet As Worksheet, Pivot As PivotTable, result As Boolean
For Each Sheet In ThisWorkbook.Worksheets
    For Each Pivot In Sheet.PivotTables
        Debug.Print Sheet.name & "-->" & Pivot.name
        Pivot.RefreshTable
    Next
Next

End Sub

在即时窗口中查看输出：
Where does VBA Debug.Print log to?