选择不带标题的动态范围

Question

如果 B 列中有数据，我想选择 A2:BG2 范围内的所有行。第 2 行是标题。

这几乎有效：

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

希望这对你的谜题有所帮助。