提取数据透视表，直到单元格有数据

Question

对不起，这可能是一个愚蠢的问题，我已经经历了这么多线程，甚至我尝试但是我没有得到我需要的东西，如果数据在最后一行或最后一个单元格中可用，我总是感到困惑。

我正在提取其范围不具体的数据透视表有时我需要提取B24，有时它在B50中，我真的不知道最后一行仍然是我尝试过这个

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

它仅在我需要扩展B24时有效但如果它在B29中我需要更改代码evrytime，请帮助

Answer 1

如果您只想要列B的最后一行，可以使用以下内容：

Dim LastRow As Long
LastRow = Sheets("YOUR SHEET NAME").Range("B" & Rows.Count).End(xlUp).Row

Range("B" & LastRow).ShowDetail = True

Last Row是一个数字，因此您可以轻松调整它以获得前一行（LastRow -1）