将单行复制到另一张表 VBA EXCEL

Question

我不知道为什么我在这方面最难熬。我只是想将 sheet1 中的一行复制到 sheet2 上的下一个可用行。我必须行复制，但它不会粘贴而不给我错误。这是我的副本，它正在工作。

ws1.Rows(j).EntireRow.Copy

Answer 1

以下应该会有所帮助

Sub Demo()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lastRow As Long, j As Long

    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row

    For j = 1 To 10 'change loop as required
        If (your_condition) Then
            lastRow = lastRow + 1
            ws1.Rows(j).EntireRow.Copy ws2.Range("A" & lastRow)
        End If
    Next j
End Sub