VBA复制/粘贴到另一个工作簿并偏移

Question

我正在尝试复制和粘贴一个变量范围从"工作表1"放入第2页并将我粘贴到表格2中的单元格偏移一行。我这样做是为了在不覆盖已经粘贴的数据的情况下向表2中添加更多数据。

I created the desired copying ranges for sheet 1:

    Dim rw As Range
    Set rw = Sheets("Sheet 1").Range(Range("A4"), Range("A4").End(xlDown))
    
    Dim clm As Range
    Set clm = Sheets("Sheet 1").Range(Range("A4"), Range("A4").End(xlToRight))
Now I want to paste the range into Column A from Sheet 2 but under the last row used.
I got the following code to work to paste into cell A3 of Sheet 2:
Sheets("Sheet 1").Range(rw, clm).Copy Sheets("Sheet 2").Range("A3")
But I don't know how to offset by 1 row under every time.
Any help would be appreciated!

Answer 1

从表中复制数据

快速修复

Sub CopyData()
    
    Dim wb As Workbook: Set wb = ThisWorkbook ' workbook containing this code
    
    Dim sws As Worksheet: Set sws = wb.Worksheets("Sheet1")
    Dim srg As Range
    With sws.Range("A4")
        Set srg = sws.Range(.End(xlDown), .End(xlToRight))
    End With
    
    Dim dws As Worksheet: Set dws = wb.Worksheets("Sheet2")
    Dim dfCell As Range
    Set dfCell = dws.Cells(dws.Rows.Count, "A").End(xlUp).Offset(1)
    
    srg.Copy dfCell
End Sub