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

时间:2015-11-24 16:55:48

标签: excel vba excel-vba

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

1 个答案:

答案 0 :(得分:0)

以下完整解决方案:

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