我想复制工作表“ Prime Data”上的A列中的所有行，并使用代码粘贴到工作表“ Pime-Tracking”上的A列中

Question

我有一个Excel工作表，其中包含大量具有各种信息的数据（例如，邮件信息，最佳联系人，法定姓名，电话号码，保险要求...。）新联系人始终被添加，然后被过滤“主要数据”表上的字母顺序。

当我在“主要数据”上添加一行以添加新联系人时，我使用的VBA代码会将数据复制到“主要-跟踪”工作表中，并将单元格向下移动以说明插入的行。 问题在于，它仅将单元格在该列中向下移动，而没有在所有列中插入新行。

“主要-跟踪”每行大约有20列，以说明要收集的项目的清单。 当插入的行从“ Prime Data”移出时，它的行为不像我在所有列中插入一行，而是在A列中添加了一行。这使得对所有项目的跟踪来自于下面/上方的供应商。插入的联系人。

我目前正在使用以下代码来执行此操作。

Private Sub CommandButton1_Click()

Dim SrcRng As Range
With Worksheets("Prime Data")
    Set SrcRng = .Range(.Cells(2, "A"), .Cells(.Rows.Count, "A").End(xlUp))
End With
Worksheets("Prime - Tracking").Range("A2").Resize(SrcRng.Rows.Count, 1).Value = SrcRng.Value

End Sub

Answer 1

一张纸到另一张纸的简单复制粘贴是：

Dim i as long, lr as long
i = 'source data row
With Worksheets("Prime Data")
    .Rows(i).Copy
End with
With Worksheets("Prime - Tracking")
    lr = .cells(.rows.count,1).end(xlup).row
    .Rows(lr+1).Paste 'or .PasteSpecial xlValues
End With

如果要插入，可以：

Dim i as long
i = 'source data row
With Worksheets("Prime Data")
    .Rows(i).Copy
End with
With Worksheets("Prime - Tracking")
    .Rows(2).Insert xlShiftDown
End With

第三种方法，如果复制/粘贴花费的时间太长：

Dim i as long
i = 'source data row
With Worksheets("Prime - Tracking")
    .Rows(2).Insert xlShiftDown
    .Rows(2).value = Worksheets("Prime Data").Rows(i).value
End With