复制最后一行并粘贴到指定范围

Question

我正在尝试从范围B7:O34复制最后输入的数据并将其粘贴到范围A7:O7 。

当我运行此宏时，我希望它覆盖A7:O7的数据，而不是继续在连续的行中列出数据。

这是我尝试过的：

Sub CopyLastRow()
    Dim lRw As Long
    With ActiveSheet
        lRw = Cells.Find("", .Range("A" & Rows.Count), , , xlByRows, xlPrevious).Row
        .Rows(lRw).Copy
    End With 
    With Sheets("Sheet1")
        lRw = Cells.Find("", .Range("A" & Rows.Count), , , xlByRows, xlPrevious).Row
        .Rows(lRw + 1).PasteSpecial Paste:=xlPasteValues
    End With
End Sub

Answer 1

Option Explicit

Sub CopyLastRow()

    Dim lR As Long, lC As Long, r1 As Range, r2 As Range

    With ActiveSheet
        lR = .Cells(.Rows.Count, 2).End(xlUp).Row           'last row - should be 34
        lC = .Cells(7, .Columns.Count).End(xlToLeft).Column 'last col - should be "O" (15)

        Set r1 = .Range(.Cells(lR, 2), .Cells(lR, lC))      'last row of data
    End With

    With Sheets("Sheet1")
        Set r2 = .Range(.Cells(6, 2), .Cells(6, lC))        'row 6 on Sheet1
    End With

    r2.Value2 = r1.Value2

End Sub

Answer 2

干得好..

Sub Button1_Click()
    Dim sh As Worksheet, ws As Worksheet
    Dim Rws As Long, rng As Range, Prng As Range

    Set sh = ActiveSheet
    Set ws = Sheets("Sheet1")
    Set Prng = ws.Range("B6")

    With sh
        Rws = .Range("B34").End(xlUp).Row
        Set rng = .Range("B" & Rws & ":O" & Rws)
    End With

    rng.Copy Prng

End Sub