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

Question

我正在尝试将电子表格最后一行的第一列中的值替换为另一个值。例如，我有一个工作簿，其中包含两个名为 Input 和 Data 的工作表。我在单元格 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