VBA 將一列的值設置為另一列的最后一行

Question

我正在嘗試制作一個 VBA，它為某些列提供一個值，直到第一列的最后一行。 這是我的代碼：

Sub Macro8()
'
' Macro8 Macro
'

        Dim sh As Worksheet, lastRow As Long
        Set sh = ActiveWorkbook.ActiveSheet

        lastRow = sh.Cells(sh.Rows.Count, "A").End(xlUp).Row
        sh.Range("D" & lastRow).Value = 8.5
        sh.Range("E" & lastRow).Value = 6

End Sub

我似乎只得到最后一行數據的值，但我希望它從第二行到第一列的最后一行

Answer 1

一切都很好，解決了。 非常基本

Sub Macro8()
'
' Macro8 Macro
'

        Dim sh As Worksheet, lastRow As Long
        Set sh = ActiveWorkbook.ActiveSheet

        lastRow = sh.Cells(sh.Rows.Count, "A").End(xlUp).Row
        sh.Range("D2:D" & lastRow).Value = 8.5
        sh.Range("E2:E" & lastRow).Value = 6

End Sub

沒有正確設置范圍

Answer 2

lastRow = sh.Cells(sh.Rows.Count, "A").End(xlUp).Row + 1