转到excel中的最后一个非空白行

Question

亲爱的，

我在想下面的代码会将我带到一列中的最后一个非银行行：

Sub commandtryanderror()
    Range("a1").End(xlDown).Select
End Sub

但是，我发现如果只有单元格 A1 有内容，上面的代码会将我带到 excel 中的最后一行，即行号 1048576 但如果单元格 A2 中有内容并且A3，上面的代码会把我带到A3，这就是我想要的，你能告诉我为什么以及如何纠正程序吗？谢谢。

Answer 1

以下代码有效。它检查您的宏是否会将您发送到工作表的底部。如果是这种情况，它会将您发送到单元格 A1。

Sub find_last_cell()

If Range("A1").End(xlDown) = Range("A1048576") _
    Then
    Range("A1").Select
Else
    Range("A1").End(xlDown).Select
End If

End Sub

请注意，如果您的数据有间隙，则不会传递数据。如果这是一个问题，您可以将宏转换为自下而上的搜索。