直到最后一行才自動填充

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列中最后使用的單元格尚未使用。