VBA如何找到一个活动后的最后一个空单元格

Question

我想在下一个空单元格中填充时间，但是函数End(xlUp)将我带到最后一个活动单元格，而End(xlDown)将我带到图表的最后一个单元格。

我该怎么办?请帮帮我

下面是我编写的代码，用于查找列"F"的最后一个单元格.

Function insertTime()
Range("F").End (xlUp)  = Now()
End Function

示例图片

Answer 1

如果您的工作表是空的，那么它将占用最后一行。如果你在F Column中有数据，那么它会到最后一个单元格。试试下面的代码

Sub insertTime()
Cells(Rows.Count, "F").End(xlUp).Offset(1, 0) = Now()
End Sub

Answer 2

Offset()救援:无论您身在何处，您都可以使用Offset()将一个单元格向左(Offset(0,-1))，向右(Offset(0,1))，向上(Offset(-1,0))或向下(Offset(1,0))移动，显然您可以使用其他数字:Offset(1,2),Offset(2,-1)，…像棋盘上的马一样跳来跳去的方法:-)

对于您的应用程序，我相信这个(或类似的)可能会对您有所帮助:

向右移动:

Range("F:F").End (xlUp).Offset(0,1)  = Now()

往下再深一点:

Range("F1").End (xlDown).Offset(1,0)  = Now()

…