如何使用按钮(添加),从工作表1复制几个单元格并使用宏粘贴到另一个工作表?每次单击“添加”按钮时,都会添加一个新行。我一直在尝试,它不断粘贴到同一行而不添加新行。我该如何解决这个问题?有关如何录制宏的任何帮助?
答案 0 :(得分:1)
我猜您是通过选择范围的顶部,然后按结束,然后按向下箭头,然后按向下箭头来录制宏再次获得第一个空白单元格?当然,粘贴。
如果是这样,它可能会制作一个像这样的宏:
Range("A1").Select
Selection.End(xlDown).Select
Range("A6").Select
ActiveSheet.Paste
问题显然是按向下箭头只是进行新的绝对选择(在我的例子中是A6),而不是向下移动一个单元格。 只需编辑宏,更改该行以进行相对步骤,而不是绝对选择。所以现在它看起来像这样:
Range("A1").Select
Selection.End(xlDown).Select
Selection.Offset(1,0).Select
ActiveSheet.Paste