excel - 识别非活动工作表中的最后一行并从活动工作表复制最后+1行中的数据

Question

我想知道如何识别非活动工作表的最后一行（不将控制权传递给非活动工作表）然后如何将数据粘贴到行号：来自活动工作表的“LastRow + 1”。并且仍然保持对活动工作表的控制。

我是一家小公司的所有者，想创建一个 Excel 表来监控我的库存。5 年前我在 VB 中做了一点编码，但现在记得很少了。确实为提到的任务编写了代码，但我的代码没有用:) ....因此不在这里粘贴。感谢你的帮助。

Answer 1

使用以下 vba 在非活动工作表中查找下一行：

Dim lastrow as long
lastrow = sheets("sheetname").cells.find("*", range("A1"), , , xlbyrows, xlprevious).row + 1

如果最后有空白单元格，请添加循环广告，请使用findnext以下内容：

Dim c as range, lastcell as long 
Set c = sheets("sheetname").cells.find("*", range("A1"), , , xlbyrows, xlprevious)

If trim(c) = "" and not c is nothing then     
    Do         
        Set c = .FindNext(c)         
    Loop While trim(c) <> "" and not c is nothing

End If 
Lastrow = c.row + 1