Question

EXCEL中VB查找空白行，然后录入指定数据，怎么实现？

如何在sheet2查找第一个空白行，然后在该行中录入sheet1中指定行的数据？
拜托了~~
crazyrolly@163.com

Answer 1

你把你的表格发过来看看吧~
要求说清楚。
815850733

大致代码如下，要看你具体格式和要求了！
x=sheets("sheet2").[A65536].END(3).ROW
sheets(‘sheet1“).数据区域.copy sheets("sheet2").cells(x,1)
这样即可~

追问

谢谢，表格很简单，就是一个全文本格式数据库表，然后我做了个查询表，对比数据库中的类似数据，确认输入无误后，按个按钮实现录入数据库表最下面空白行。
x=sheets("sheet2").[A65536].END(3).ROW
这个查找的是表2（也就是数据库表）中的A列的空白行号么？

追答

x=sheets("sheet2").[A65536].END(3).ROW 这个是查找A列最后一个不为空的行号！
相当于选中A65536后 CTRL+↑
x=sheets("sheet2").[A65536].END(3).ROW +1
需要"+1"表示非空行号+1 ，就接着上面的数据录入新的数据了~

请及时采纳~

Answer 2

在sheet2的空白行用+，再到sheet1中指定行，这样在sheet2的空白行就会出现sheet1中指定行的数据