Question

我想从Sheet2复制第3行和第3行，并在Sheet1的末尾粘贴。 Sheet2中的行具有不同的长度。不确定我是否选择row3然后row4,5等，直到sheet2结束。

我的代码到目前为止。我收到了错误：

`在这里输入代码

Sub Macro5()
Dim LastRow As Long
Worksheets("Sheet2").Activate

With ActiveSheet.UsedRange
    LastRow = .Rows(.Rows.Count).Row
    .Cell("A", 3).EntireRow.Select
    Do Until LastRow
        Selection.Copy
        Sheets("Sheet1").Range("A1").End(xlDown).Offset(1, 0).Paste
    Loop
End With

End Sub

我应该设置第3行 - lastrow和循环范围之间的范围吗？

Answer 1

您可以使用以下代码从第3行复制到第2张结尾：

Public Sub copy_rows()

Dim LastRow As Long

LastRow = Worksheets("Sheet2").UsedRange.Rows.count
Worksheets("Sheet2").Rows("3:" & LastRow).Select
Selection.Copy

End Sub

Answer 2

希望您正在寻找此代码。

Sub copy()
    Dim Lastrow As Long
    Lastrow = Sheets("Sheet2").UsedRange.Rows.Count
    For i = 3 To Lastrow
        Sheets("Sheet2").Rows(i).copy Sheets("Sheet1").Range("A" & Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row + 1)
    Next i
End Sub

复制行并粘贴到另一个工作表的末尾

2 个答案: