2

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

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

例如：
数据示例： 行标题：(a1) Month, (b1) 1, (c1) 2, (d2) 3. Data :(a1) July-12, (b2) 2, (c2) 5, ( d2) 1 数据：(a1) Aug-12，(b2) 1，(c2) 4，(d2) 2。

要复制的位置。行标题：(a1) 月份，(b1) 值 1，(c1) 值 2，(d2) 值 3。

我以前从未使用过 VB，我习惯于在 Excel 上使用论坛。
我尝试了以下方法： Range("A1:A2").Select Selection.Copy Range("C4").Select ActiveSheet.Paste

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

我不确定我是否在自己的脑海中过度复杂化了事情，或者这是否更复杂..

非常感谢所有回复。

4

1 回答 1

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

希望这可以帮助！

于 2013-04-18T09:04:05.327 回答