直到最后一行才自动填充

Question

我正在尝试填充日期，并让它填充列，直到数据的最后一行。但是，它似乎并未填充到数据的最后一行，我也不明白为什么。我的代码有什么问题？

Sub updatedate()
lastRow = Range("F" & Rows.Count).End(xlUp).Row
Range("F2:F" & lastRow) = Date
Range("F2:F" & lastRow).Style = "Normal"
Range("F2:F" & lastRow).Value = Format(Date, "yyyymmdd")

End Sub

yyyymmdd格式的日期将更新并填充到每一行，直到F列中的最后一个

Answer 1

问题已经解决

lastRow = Range("F" & Rows.Count).End(xlUp).Row

如果将"F"更改为"A"（或任何其他合适的列），则效果会更好。 F列中最后使用的单元格尚未使用。