excel - 宏 : Transposing issue

Question

想知道是否有人可以帮我解决这个问题

使用 VBA，我设置了一个宏，它首先将数据透视表转换到另一个工作表中，然后自动将数据修改为一个整洁的小列表，供用户稍后在数据库中设置。

现在，在第一次为数据透视表构建它之后，它实现了一个梦想并给了我想要的结果，但是每当我更新数据透视表并改变它的长度时，我就开始遇到问题。希望这些屏幕截图会有所帮助:



您不需要知道那里的信息，但是宏在这里要做的是转置整个枢轴，这可以通过双击总计的横截面或右键单击单元格并选择显示所有内容的详细信息来完成. (以黄色突出显示)

目前，获取该单元格的代码设置为:

Range("AA65").Select
Selection.ShowDetail = True 

这就是我意识到它是固定的(目前以红色突出显示的地方)并且我不知道如何通过使宏适应数据透视表的不同长度来解决它，以便它可以转置所有里面的内容。如果有帮助，总计将始终位于该特定行上，它只是最终发生变化的列。

有没有办法让我创建一个代码，无论它延伸到多少列，我总能在枢轴中拾取那个总计单元格？

感谢您的阅读，我希望尽快得到反馈 :)

亲切的问候

佐伊

Answer 1

例如

   With ActiveSheet.PivotTables(1).TableRange1
    .Cells(.Cells.Count).ShowDetail = True
   End With