将值填充到动态范围中的最后一行

Question

对不起，我知道这确实很简单，但试图在最后一个小时弄清楚这一点却令人非常沮丧。 我想让值“ 427”（D列）一直下降到范围的最后一行的末尾。 （第32行）由于它是动态范围，因此该范围将随着时间的推移具有新的条目。我用以下代码做到了

  Sub EnterRemainingValues()
    Dim Workbook As Workbook
    Dim lastrow As Long
    Set Workbook = Workbooks("Workbook 1") 'name of workbook

    lastrow = Worksheets("Sheets1").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Sheet1").Range("D14:D" & lastrow).Value = "427"

我认为我遇到的问题是因为范围从A13而不是A1开始，所以值427仅填充了与工作表标题（A1：A3）的高度相对应的前3行。该代码认为多数民众赞成在最后。我想在D列中始终用“ 427”填充到从第14行开始的最后一行。谢谢

编辑：我忘了提及-我正在控制“ workbook1”，其中包含来自其他工作簿（“ workbookfinal”）的图片范围

Answer 1

尝试一下：

data