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

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

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

---

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

首先将

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"

---

我需要添加多个数据，上面的代码将重新访问我要添加到该行之后的最后一行。这是否与

activesheet.Cells.（Rows.Count，“D”）.end（xlUp）.row+1的结尾处的+1一致？我第一次发邮件时忘了加上它。您还可以演示如何添加数据吗？你要添加多少个单元格？效果很好。我能否从sheet2中找到最后使用的sheet1行？是的，只需将
activesheet
替换为类似
工作表（“SheetName”）的内容即可
上述方法将仅为D列提供最后一行。如果所有列都有数据，直到同一行，则上述方法将起作用，否则必须使用
。查找
以查找最后一行，如图所示