excel - 从 Sheet1 复制使用范围并粘贴到 Sheet3

Question

我一直在尝试制作一个代码，从 Sheet1 复制 UsedRange 并将该范围粘贴到 Sheet3 中。

每次运行代码时，UsedRange 都会从第一个空行粘贴到 Sheet3 中。

例如: Sheet1 中有 5 行(第 1 行始终是标题)，其中包含数据，我将按运行代码将数据复制并粘贴到Sheet3 Row2(第一行始终是页眉)。

现在 Sheet3 有数据到 Row5 我将再次按下运行按钮然后数据将从 Row6 粘贴。

每次按下按钮时，数据都会相应地粘贴。我在网上获得了一个代码并尝试对其进行编辑，但它无法正常工作。

非常感谢您的帮助。

代码。

Sub usedrange()

    Dim ws1         As Worksheet
    Dim ws2         As Worksheet
    Dim source      As Range
    Dim target      As Range
    Dim lastColumn  As Long

    Set ws1 = Worksheets("NewSheet")
    Set ws2 = Sheet3

    With ws2
        lastrow = .Cells(Rows.Count, 1).End(xlUp).Row
        If WorksheetFunction.CountA(.Rows(1)) > 0 Then
            lastrow = lastrow + 1
        End If
    End With

    Set source = ws1.usedrange.Offset(1)
    Set target = ws2.Cells(, lastrow)

    source.Copy Destination:=target
    Application.CutCopyMode = False

End Sub

Answer 1

复制使用范围

Option Explicit

Sub copyUsedRange()

    Dim ws1         As Worksheet
    Dim ws2         As Worksheet
    Dim Source      As Range
    Dim Target      As Range
    Dim LastRow     As Long
    
    ' Code names
    Set ws1 = Sheet1
    Set ws2 = Sheet3
    ' Tab Names
    'Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    'Set ws2 = ThisWorkbook.Worksheets("Sheet3")
    
    With ws1.UsedRange
        Set Source = .Resize(.Rows.Count - 1).Offset(1)
    End With
    
    With ws2
        Set Target = .Cells(.Rows.Count, 1).End(xlUp).Offset(1)
    End With
 
    Source.Copy Target

End Sub