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

【问题标题】：Return the location of next free row in an excel worksheet返回 Excel 工作表中下一个空闲行的位置
【发布时间】：2013-01-21 23:13:20
【问题描述】：

我在工作表（条目）上有一个表单，当有人填写并单击提交时，他们将值存储到同一工作簿中的另一个工作表（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

【问题讨论】：

这是一个重复的问题。在此处查看我的答案以获取您的问题的答案：stackoverflow.com/questions/11453658/…
使用 range 对象的 offset 属性获取最后一行之后的行：例如lastCell.offset(1, 0)
这个已经被问过很多次了，stackoverflow.com/questions/4872512/….....stackoverflow.com/questions/14054906/…等等

标签： vba excel

【解决方案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 写入

【讨论】：

这适用于 xl2003，但它不是 xl07/10/13 的工作表底部。使用Cells(Rows.Count,"B") 而不是range("b65536")。