excel vba获取一个表中最后一个非空单元格,并对下一行插入数据

我想做一个管理请假和调休的表，用VBA实现，在一个表里设置一个界面，有一个按钮，单击，录入数据。数据存到另外一表上。我只能在另外一个表写入一条数据，再写就不会了。
我就是不知道如何获取另外一个表中的非空单元格的行号，并对下一行，进行插入数据，可以反复实现这样的操作。
把第一个图片的内容，存到第二个表中。如何办呢》？

举报该问题

推荐答案 2014-10-16

假设当前活动页为sheet1

你要在sheet2的A列最后一行输入"Next"

Sheets(2).Range("A65536").End(xlUp).Offset(1) = "Next"

温馨提示：答案为网友推荐，仅供参考

当前网址：http://66.wendadaohang.com/zd/pnxnUUsDpn9DsipDDs.html

其他回答

第1个回答推荐于2016-01-16

扣
一五九六三九七零
需要样表。本回答被提问者采纳

相似回答

如何用excel vba查找某一行最后一个非空单元格答：最后一个值 = Sheets("sheet1").Range("A65535").End(xlUp).Value 用 col=range("C1").end(xltoright).column '找到最后非空一列语句可能存在问题：当A1至A5数据连续时，该语句能返回正确的结果，但当不连续时，将得不到最后一个非空结果如 1 2 4 5 将只得到2，而不是5（其中3是...

excel vba查询定位某列最后一个非空单元格下一格并在其中输入字符文本或...答：第一个功能很好实现，就一句话：Sub test()Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).SelectEnd Sub

Excel中如何获取某列(行)最后一个非空单元格的值答：1、接下来的公式可以返回A列中最后一个非空单元格的行号：=MAX((A：A<>"")*(ROW(A：A)))2、通过这个行号我们就可以使用ADDRESS函数来获取到此单元格的地址：=ADDRESS(MAX((A：A<>"")*(ROW(A：A)))，COLUMN(A：A))3、最后我们以此获取到的地址为基础使用INDIRECT函数就可以获取到此单元...

如何使用vba命令定位到最后一行有内容单元格的下一行。答：1、首先打开需要编辑的Excel表格，鼠标右键单击工作表，选择打开“查看代码”。2、然后在弹出来的窗口中点击输入代码：Sub 选择单元格最下面第一个空值()Range("a" & Cells(Rows.Count, 1).End(xlUp).Row + 1).Select End Sub 3、然后或者输入代码：sub 选择单元格最后一行()Range("a" & ...

...中有的单元格的值为0,则在下面插入一行?怎么用vba实现?谢谢!_百度知...答：编辑---查找---选项---勾选单元格匹配---输入0---查找。对话框中会显所有0的格，按住CTRL键，点中找到的数据，关闭对话框，表格中所有0格被选中，在某个0的位置右键---插入---整行---确定。全部0格的“上”方插入一空行。（插入到0的下方不行）必要时可以在输入数据前，把空行拖拽到0的...

Excel 求救:如何提取一行中最后一个非零值答：VBA答案：cells(ativesheet.usedrange.rows.count,1) ,比如数据放在A列，如果B列代码中的1修改成2就可以了。

大家正在搜