Excel 2007 - 工作表之间的宏复制和粘贴到新行

时间:2012-08-21 12:31:09

标签: excel-vba copy excel-2007 vba excel

我正在使用Excel 2007,我正在尝试在两个不同的工作表之间创建一个宏。

我正在尝试复制单元格并将其粘贴到工作表2中。我意识到这很简单,但这是我的问题 - 我希望每次运行宏时,它都可以将值复制到工作表中的新行2。

例如:
数据示例: 行标题:(a1)月,(b1)1,(c1)2,(d2)3。 数据:(a1)7月-12,(b2)2,(c2)5,(d2)1 数据:(a1)8月12日,(b2)1,(c2)4,(d2)2。

复制位置。 行标题:(a1)月,(b1)值为1,(c1)值为2,(d2)值为3.

我之前从未使用过VB,我习惯只在Excel上使用论坛 我尝试过以下方法: 范围(“A1:A2”)。选择Selection.Copy范围(“C4”)。选择ActiveSheet.Paste

我正在尝试自动化我的电子表格,而不是必须从一个工作表中记下一个数字,然后将其写在另一个工作表中。

我不确定我是否在自己的脑海中使事情变得复杂,或者这是否更复杂..

非常感谢所有回复。

1 个答案:

答案 0 :(得分:0)

我可能会很迟,但在这里你可以找到Sheet2的最后一行

Lrow=ThisWorkbook.Sheets("Sheet2").Cells(65536,).end(Xlup).Row

找到最后一行后,您可以将范围粘贴到最后一行之后的下一行,方法是将其加1,如下所示。

Range("A1:A2").Select 
Selection.Copy Range("C" & Lrow+1).Select ActiveSheet.Paste

希望这有帮助!