vba - 使用 VBA 选择最后一行并向下复制

Question

我需要在电子表格中选择最后一行的值，然后将其向下拖动(包括公式)。我能够找到具有值的最后一行，但在选择最后一行时遇到问题。

With Sheets("Data")
    Dim LR1 As Long
    LR1 = .Range("A" & .Rows.Count).End(xlUp).Row
   .Range(LR1).Select
End With

我只想选择最后一行并向下拖动 1 行。我没有尝试添加要向下拖动的代码，因为我似乎无法选择最后一行数据。

Answer 1

如果您想将最后一个单元格自动填充到其下方的单元格中，

Sub Data_Button1_Click()
    Dim LR1 As Long

    With Sheets("Data")
        LR1 = .Range("A" & .Rows.Count).End(xlUp).Row

        With .Range("A" & LR1)
            .AutoFill Destination:=.Range("A1:A2")
        End With

    End With
End Sub