VBA-复制没有特定列的行

我有一个代码，可以根据缩写复制一行，并将其发送到另一个excel表格，从某个单元格开始。我需要的代码不复制缩写，只是行的其余部分。如何修复代码以使其能够执行此操作。我需要排除的列是A列

桌子？资料

代码如下：

Private Sub CommandButton3_Click()

Dim c As Range
Dim j As Integer
Dim Source As Worksheet
Dim Target As Worksheet

' Change worksheet designations as needed
Set Source = ActiveWorkbook.Worksheets("Sheet1")
Set Target = ActiveWorkbook.Worksheets("Sheet2")

j = 11     ' Start copying to row # in target sheet
For Each c In Source.Range("A1:A1000")   ' range of the running log input
    If c = "PP" Then
     Source.Rows(c.Row).Copy Target.Rows(j) ' where i think problem is
       j = j + 1 ' makes it paste to the next open row

    End If
Next c

 j = 30
For Each c In Source.Range("A1:A1000")
    If c = "FA" Then
     Source.Rows(c.Row).Copy Target.Rows(j)
       j = j + 1

    End If
Next c
End Sub

---

如果您知道要复制四个单元格，请尝试此操作

Source.cells(c.Row,2).resize(,4).Copy Target.cells(j,1)

---

不知道为什么有两个循环？自动筛选将更有效，因为您可以完全取消循环。

如果您知道有四个单元格要复制，请尝试此方法

Source.cells(c.Row,2).resize(,4).Copy Target.cells(j,1)

---

不知道为什么有两个循环？自动筛选将更有效，因为您可以完全取消循环。

对我来说，最简单的方法似乎是在复制行后删除不需要的单元格。除此之外，您必须循环该行中的所有单元格，并分别复制它们。对我来说，最简单的方法似乎是在复制该行后删除您不需要的单元格。除此之外，您必须循环该行中的所有单元格，并分别复制它们。