Question

我有两张纸。

sheet1和sheet2。

我在sheet2中有我的数据。 sheet1已包含第4行之前的数据。

我想将第2行之后的第2行中的所有数据从第5行复制到第1页。

我尝试了以下代码。但每次我运行代码。它会在114行或有时在第1000行中随机复制。

这是代码，我用来复制。

Sub FClookup()
Dim LastRow As Long

    'get last row
    LastRow = Worksheets("Sheet1").Cells(Rows.count, 1).End(xlUp).Row
    Worksheets("Sheet2").Range("A5:W1000").Copy _
    Destination:=Worksheets("Sheet1").Range("A" & LastRow + 1)


End Sub

Answer 1

以下内容应该可以满足您的需求。代码假设Sheet2中的A列始终填充，并将从Sheet2中的A列到D的所有数据复制到Sheet1中的下一个空行（检查A列）。

Option Explicit

Sub CopyStuff()

    Dim ws1, ws2 As Worksheet

    Set ws1 = Worksheets("Sheet1")
    Set ws2 = Worksheets("Sheet2")

    ws2.Range("A5:D" & ws2.Range("A5").End(xlDown).Row).Copy
    ws1.Range("A" & ws1.Range("A1").End(xlDown).Row + 1).PasteSpecial xlValues

End Sub

获取sheet1中的最后一个填充列并将sheet2中的数据复制到sheet1

1 个答案: