将单行复制到另一个工作表VBA EXCEL

我不知道为什么我要用这个最难的时间。 我只是试图将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