在工作表的最后一行中用另一个替换单元格值

Question

我正在尝试用另一个值替换电子表格最后一行的第一列中的值。 例如，我有一本工作簿，其中有两张纸，分别称为“输入”和“数据”。 我在单元格A1的输入表上有一个值。 我希望此值可以用数据表中的值替换位于最后一行的A列中的值。 我知道如何使用下面的代码定位工作表的最后一行，但是我不确定如何输入位于最后一行的值。 我可以添加什么以便检索工作表A1中输入的值，并替换数据表最后一行中列A的值

Dim LR1 As Long
'Selects the last row with values
With Sheets("Data")
    LR1 = .Range("A" & .Rows.Count).End(xlUp).Row
End With

Answer 1

完整解决方案如下：

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