將單行復制到另一個工作表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

Answer 2

嘗試這個：

代碼示例：

Sheets("Sheet1").Cells(i, "A").EntireRow.Copy Destination:=Sheets("Sheet 2").Range("A" & Rows.Count).End(xlUp).Offset(1)

Answer 3

您可以使用以下代碼

Sub CopyPaste()
Sheet1.Range("A:A").Copy

Sheet2.Activate
col = 1
Do Until Sheet2.Cells(1, col) = ""
    col = col + 1
Loop

Sheet2.Cells(1, col).PasteSpecial xlPasteValues
End Sub