如何从另一个工作表中更改数据下从一个工作表粘贴数据？

我一直在广泛地研究这个问题，但是我的发现没有帮助我修复我的代码。

我试图复制worksheet2所有数据，并直接粘贴到worksheet1 （每月更改）的数据下。 这是我迄今为止所做的，但每次我尝试运行它，它说

运行时错误9'下标超出范围'。

 Sub macro8() Sheets("worksheet2").UsedRange.Copy Destination:=Sheets("worksheet1").End(xlUp).Offset(1, 0) End Sub 

Answer 1

尝试：

 Sub macro8() Sheets("worksheet2").UsedRange.Copy Destination:=Sheets("worksheet1").UsedRange.End(xlDown).Offset(1, 0) End Sub 

编辑：

然后做正确的方法。 您可以使用连续列的字母来更改列字母“A”。

 Sub macro8() Dim Rng1 As Range, Rng2 As Range, ws1 As Worksheet, ws2 As Worksheet Set ws1 = Worksheets("worksheet1") Set ws2 = Worksheets("worksheet2") Set Rng2 = ws2.UsedRange 'Copy range Set Rng1 = ws1.Range("A" & ws1.Rows.Count).End(xlUp).Offset(1, 0) 'Paste range Rng2.Copy Destination:=Rng1 'Copy/Paste End Sub