EXCEL VBA 代码问题

来源：百度知道 编辑：UC知道 时间：2024/06/16 08:47:28
如果我在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，请自行研究