Vba 返回excel工作表中下一个可用行的位置

我在工作表（条目）上有一个表单，当有人填写表单并单击“提交”时，他们会将值存储到同一工作簿中的另一个工作表（计数）。问题是我需要它收集所有提交的表格，并将它们按顺序放在理货单上，而不覆盖以前的值。目前我有：

r = Range("B5:E5")
Sheets("Tally").Range("B5:E5") = r

但这显然会在每次单击submit按钮时覆盖Tall上的值。比如：

r = Range("B5:E5")
x = next free row on Tally
Sheets("Tally").Range("Bx:Ex") = r

---

应该可以，但我现在无法测试。sry对于格式错误，从ipad写入这是一个重复的问题。有关您的问题的答案，请参见我的答案：使用range对象的offset属性获取最后一行之后的行：例如lastCell.offset（1，0）这已被询问多次。。。。。等等，这对xl2003来说可以，但对于xl07/10/13来说，它不是工作表的底部。使用

单元格（Rows.Count，“B”）

而不是

范围（“b65536”）

。

r = worksheets("entry").range("b5:e5")
nextFreeRow = worksheets("tally").Cells(Rows.Count,"B").end(xlup).row + 1
worksheets("tally").range("b" & nextFreeRow, "c" & nextFreeRow) = r