VBA 转到最后一个空行

Question

我有一个关于 Excel 宏的项目，我需要突出显示具有空值的下一个最后一行。示例单元格 A1:A100 有数据，下一个单元格 A101 为空。

当用户单击按钮时，它应该突出显示单元格 A101...

Answer 1

如果您确定只需要 A 列，则可以使用 VBA 中的 End 函数来获取该结果。

如果所有单元格 A1:A100 均已填充，则要选择下一个空单元格，请使用:

Range("A1").End(xlDown).Offset(1, 0).Select

这里，End(xlDown) 相当于选择 A1 并按 Ctrl + 向下箭头。

如果 A1:A100 中有空白单元格，那么您需要从底部开始，然后向上进行。您可以通过结合使用 Rows.Count 和 End(xlUp) 来完成此操作，如下所示:

Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select

更进一步，这可以推广到选择一系列单元格，从您选择的点开始(不仅仅是在 A 列中)。在以下代码中，假设单元格 C10:C100 中有值，其间散布着空白单元格。您希望选择所有单元格 C10:C100，但不知道该列在第 100 行结束，因此首先手动选择 C10。

Range(Selection, Cells(Rows.Count, Selection.Column).End(xlUp)).Select

上面的行可能是作为 VBA 程序员需要了解的更重要的行之一，因为它允许您根据很少的条件动态选择范围，而不必担心中间的空白单元格。