识别不活动工作表中的最后一行并从活动工作表复制最后一行中的数据

我想知道如何识别不活动工作表的最后一行（不将控制权交给不活动工作表）然后如何过去数据到活动工作表的行号：'LastRow + 1'。仍然保持对活动工作表的控制。识别不活动工作表中的最后一行并从活动工作表复制最后一行中的数据

我是一家小公司的老板，希望创建一个Excel工作表来监控我的库存。 5年前，我在VB中做了一些小小的编码，但现在记得它非常小。是否为上述任务编写了代码，但我的代码没有用处......因此，不会将其粘贴到此处。感谢你的帮助。

2013-04-06 Hitesh Chand

你可以谷歌它。有很多现成的示例代码可用于您的问题。 – Santosh 2013-04-06 06:19:24

http://stackoverflow.com/questions/11169445/error-finding-last-used-cell-in-vba – 2013-04-06 06:45:48

使用下面的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

来源

2013-04-07 12:24:38 glh

嗨glh ..........感谢代码.......它正在工作，但部分。我查找最后一行的不活动工作表中，最后几行有一些空格。因此，这段代码将最后一行空白行视为数据行，然后在计算时进行计算。你能帮我调整这个代码，以便它不应该将一个空白的条目行作为一行有效的行计数...... – 2013-04-08 07:33:04

试试这个附加代码 – glh 2013-04-08 10:39:04

识别不活动工作表中的最后一行并从活动工作表复制最后一行中的数据

回答

相关问题