如果滿足條件，復制並粘貼到另一個工作簿

Question

我正在嘗試創建 VBA 代碼，該代碼從一個工作簿（Test Report.xlsx）復制行，然后將該復制的行粘貼到另一個工作簿（Test Final Report.xlsx）中，如果它在單擊命令按鈕時滿足特定條件。 復制和粘貼的條件是，如果表中第二列中的單元格包含條件 3'5，則復制該行，然后將其粘貼到另一個工作簿中。 我嘗試了以下方法，但是當我運行 go 時，它只選擇在 End Sub 之前的代碼行中指定的單元格。 我需要這方面的幫助，請參閱下面一直讓我失望的代碼。 我做錯了什么，我應該怎么做才能使它正確？

Private Sub CommandButton1_Click()
    a = Worksheets("Mar'19").Cells(Rows.Count, 1).End(xlUp).Row

    For i = 2 To a
        If Worksheets("Mar'19").Cells(i, 2).Value = "3'5" Then
            Worksheets("Mar'19").Rows(i).Copy
            Worksheets("3.5").Activate
            b = Worksheets("3.5").Cells(Rows.Count, b).End(xlUp).Row
            Worksheets("Sheet2").Cells(b + 1, 1).Select
            ActiveSheet.Paste
            Worksheets("Sheet1").Activate
        End If
    Next

    Application.CutCopyMode = False
    ThisWorkbook.Worksheets("Mar'19").Cells(1, 1).Select
End Sub

Answer 1

這行得通嗎？

Private Sub test()
    a = Worksheets("Mar'19").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To a
    If Worksheets("Mar'19").Cells(i, 2).Value = "3'5" Then
        Worksheets("Mar'19").Rows(i).Copy
        Worksheets("3.5").Cells(ThisWorkbook.Sheets("3.5").Cells(1048576, 1).End(xlUp).row + 1, 1).Paste

    End If
Next

Application.CutCopyMode = False
ThisWorkbook.Worksheets("Mar'19").Cells(1, 1).Select
End Sub