vba - 返回 Excel 工作表中下一个空闲行的位置

Question

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

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

但这显然会在每次单击提交按钮时覆盖 Tally 上的值。就像是：

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

Answer 1

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

应该可以，但我现在无法测试。抱歉格式错误，从 ipad 写入