标识非活动工作表中的最后一行并从活动工作表复制last+1行中的数据
标识非活动工作表中的最后一行并从活动工作表复制last+1行中的数据
提问于 2013-04-06 06:03:10
我想知道如何识别非活动工作表的最后一行(而不将控件传递给非活动工作表)，然后如何将数据传递给活动工作表中的行号：“LastRow+1”。并保持对活动工作表的控制。
我是一家小公司的所有者，我想创建一个excel表来监控我的库存。5年前，我在VB中做了一点点编码，但现在只记得很少。确实为上面提到的任务编写了代码，但我的代码没有任何用处:) .所以不要把它粘在这里。感谢你的帮助。
回答 1
Stack Overflow用户
发布于 2013-04-07 12:24:38
使用以下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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/15847624
复制相关文章
相似问题
腾讯云开发者
