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

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

1 个答案: