选择不带标头的动态范围

Question

如果列B中有数据，我希望选择范围A2:BG2中的所有行。

这几乎是可行的：

Set rng = Range("A2:BG2").Resize(Cells(Rows.Count, "B").End(xlUp).Row)
rng.Select

但它在选择中包括了一个空白行，后面是B中的数据行。例如，我有B2:B6中的数据，但这会选择第2-7行。偏移似乎只是改变了整个动态范围。我遗漏了什么？

Answer 1

问题是你的

Cells(Rows.Count, "B").End(xlUp).Row

您正在计算A1中使用过的行(第1行)，但是您的范围从A2(第2行)开始，因此它将在底部添加额外的空白行。因此，要去掉它，只需减去不必要计算的行。

Cells(Rows.Count, "B").End(xlUp).Row

最终代码将是

Set rng = Range("A2:BG2").Resize(Cells(Rows.Count, "B").End(xlUp).Row - 1)
rng.Select

希望这能帮你拼图。