EXCEL VBA 代码问题

来源:百度知道 编辑:UC知道 时间:2024/06/16 02:17:15
如果我在sheet1!A1:E1中输入数据后 点击控件按钮 A1:E1中的数据就被录入到sheet2!A2:E2中 同时sheet1!A1:E1中的单元格数据也就清空了 当我第二次输入数据时 被录入到的变为sheet2!A3:E3中了 以后的动作都是同样往后的 关于这些代码应该如何写呢 想了许久也不会 请高手指点 小弟在此先谢谢了!
没有标题 就是A1:E1中 全是文本数据

你Sheet2里面A1:E1是有标题的啊?如果是,就用以下,如果不是,那个x就请改用worksheetfunction.counta("A2:A10000)这样子去计算求得
Sub aa()
x = Sheets("sheet2").Range("A65536").End(xlUp).Row
for i =1 to 5
Sheets("sheet2").Cells(x + 1, i) = Sheets("sheet1").Cells(1, i)
next i
Sheets("sheet1").Range("A1:E1").ClearContents
End Sub

我是说,你为什么要把sheet1中a1:e1的数据放到sheet2中却是a2:e2(低了一行),我上面代码是当你sheet2中a1:e1是有内容的,请留意第一句,如果是没内容的,就要稍改代码x+2,请自行研究