在上次使用的行之后插入数据

Question

**问题：**我需要在工作表中最后一次使用行之后插入数据。我能够使用以下代码找到最后使用的行。

ActiveSheet.Cells.(Rows.count, "D").End(xlUp).row

现在我必须在最后使用的行旁边插入数据。

Answer 1

首先将lastrow定义为变量。 .row做的是返回一个表示行的数字，在本例中是最后一行。 +1将其向下移动1个单元格。

Dim lastrow as Long
lastrow = Activesheet.Cells(Rows.Count, "D").End(xlUp).row + 1

Activesheet.Cells(lastrow, "D").Value = "Your Value here"