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