Vba 我想复制工作表A列中的所有行；“基本数据”；并粘贴到工作表的A列中；Pime-跟踪”的定义；用密码

我有一个excel表格，其中包含大量数据和各种信息（例如，邮件信息、最佳联系人、法定姓名、电话号码、保险要求……），新联系人会一直添加，然后按字母顺序在“基本数据”表格上筛选

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

“主要跟踪”每行大约有20列，用于记录要收集的项目清单。当插入的行从“基本数据”中带过来时，它的行为不像我在所有列中插入了一行，而是只在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

---

从一行到另一行的简单复制粘贴是：

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

---

谢谢你的回复！！我更新了我之前的问题，因为我意识到我试图实现的目标毫无意义。现在有意义了吗？@Josephiturria你的代码让你在追踪表上插入A2。我建议使用.Rows（），类似于我答案中3项中的第三项，以获得适当的输出。