將單元格值復制並粘貼到列的最后一行

Question

我面臨一個小問題，我需要編寫一個代碼來復制一個單元格值並粘貼到一列的最后一行（在我的情況下是 L 列），這是我寫的：

lastRow = ThisWorkbook.Sheets("RecordAccordo").Range("L" & ThisWorkbook.Sheets("RecordAccordo").Rows.Count).End(xlUp).Row

        Range("B36").Copy
        
        ThisWorkbook.Sheets("RecordAccordo").Range("L2:L" & lastRow).PasteSpecial Paste:=xlPasteValues

我的問題是單元格 B36 的值被粘貼在所有列 L 行上，而我只需要在找到的最后一行

Answer 1

您的錯誤基本上是您在粘貼值時引用了整個列： .Sheets("RecordAccordo").Range("L2:L" & lastRow) 。

正確的是.Sheets("RecordAccordo").Range("L" & lastRow)

但是我對您的代碼進行了一些重構，使其更加精確和可讀，並且向您展示了不需要復制/粘貼 - 因為您可以使用源和目標范圍的value屬性

Public Sub copyValue()

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("RecordAccordo")

Dim cSource As Range
Set cSource = ws.Range("B36")

Dim lastRow As Long
With ws
    lastRow = .Range("L" & .Rows.Count).End(xlUp).Row
End With

Dim cTarget As Range
Set cTarget = ws.Range("L" & lastRow)

cTarget.Value = cSource.Value

End Sub