宏：转置问题

Question

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

使用VBA，我已经设置了一个宏，它通过将数据透视表转换到另一个工作表开始，然后自动将数据触及到一个整洁的小列表中，供用户稍后在数据库中设置。

现在在第一次为数据透视表构建它之后，它实现了一个梦想并给了我想要的结果但是每当我更新数据透视表并且它改变了它的长度时，我开始出现问题。希望这些截图有用：

你不需要知道那里的信息，但宏预期在这里做的是转置整个枢轴，这可以通过双击总计的横截面或右键单击单元格并选择显示来完成一切的细节。 （以黄色突出显示）

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

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

这是我意识到它已被修复的地方（目前是以红色突出显示的地方）并且我不知道如何通过使宏适应不同长度的数据透视表来解决它，以便它可以转置其中的所有内容。如果它有帮助，总计将始终在该特定行上，它只是最终变化的列。

有没有办法让我创建一个代码，无论它延伸到多少列，我总是可以在枢轴中获取Grand Total单元格？

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

亲切的问候

佐伊

Answer 1

例如

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