复制和粘贴/插入行-粘贴的数据多于复制的数据

Question

我有一个宏，该宏设置为从工作表1的A到D列复制包含数据的所有行，并将其粘贴到工作表2的AD列中，将其插入到工作表2中已经存在的数据上方。这个想法是创建一个正在进行的列表顶部的是最新数据。

直到今天，它的工作情况都非常好-不知道发生了什么变化，我还没有以任何方式更改宏。

它正在按应有的方式运行，但是随后它将复制的数据永久地粘贴到excel中的所有列中。

假设我在A，B，C和D列中有X行数据。宏正确地获取了此数据并将其从工作表1粘贴到工作表2。 但随后，它还将此数据跨每个列粘贴（到XFD列）。

因此，每4列具有与A / B / C / D相同的数据，直到excel用完为止。

为什么这样做呢？ 如何阻止这种情况的发生？

宏：

Sub CopyData()
    Dim i As Integer
        i = Sheets("Sheet1").Range("E1").Value  'E1 counts # of rows w/ data
    Sheets("Sheet1").Range("A2:D" & i).Copy  
    Sheets("Sheet2").Activate  
        Rows("2:2").Select  
        Selection.Insert Shift:=xlDown  
        Application.CutCopyMode = False  
    Sheets("Sheet2").Range("A1").Activate
End Sub

谢谢您的帮助！

Answer 1

您正在复制四列并粘贴到16,384列。 您将必须插入新行，然后复制源并将目标的左上角单元格用作目标。

Sub CopyData()
    Dim i As Integer, dim ws1 as worksheet

    set ws1 = worksheets("sheet1")
    i = ws1.Range("E1").Value  'E1 counts # of rows w/ data

    with worksheets("sheet2")
       .rows(2).resize(i, .columns.count).Insert Shift:=xlDown 
       ws1.Range("A2:D" & i).Copy destination:=.cells(2, "A")
       .Activate
    End With
End Sub

Answer 2

我必须指定一个单元格而不是整行作为粘贴复制数据的位置。 现在可以使用了。