自动填充无法覆盖至最后一行：VBA日期填充问题排查

首先，咱们先揪出核心问题：你代码里的lastRow是基于F列本身的最后非空行来计算的，但如果你的「目标最后一行」是其他数据列（比如A/B列，也就是实际存放业务数据的列）的最后一行，那这个取值就完全错了——举个例子，如果F列目前只到第10行有数据，但你的业务数据已经到第20行，那代码只会填充到F10，自然覆盖不到目标的第20行。

然后再看代码里的冗余操作：你先给单元格赋值日期，再改样式，最后又覆盖成格式化后的字符串，这不仅绕路，还可能导致格式混乱。

修正方案 #

第一步：确认目标最后一行的来源 #

把lastRow的计算改成基于实际数据所在的列（比如A列，假设你的业务数据从A列开始），而不是要填充的F列。

第二步：优化代码逻辑 #

直接设置单元格格式+赋值，避免重复操作，同时可以选择保留日期类型或转为文本：

Sub updatedate()
    ' 把"A"改成你实际业务数据所在的列（比如B/C列）
    Dim targetLastRow As Long
    targetLastRow = Range("A" & Rows.Count).End(xlUp).Row
    
    Dim fillRange As Range
    Set fillRange = Range("F2:F" & targetLastRow)
    
    ' 方案1：保留日期类型（可用于计算），显示为yyyymmdd格式
    fillRange.NumberFormat = "yyyymmdd"
    fillRange.Value = Date
    
    ' 方案2：强制转为文本格式的yyyymmdd（如果不需要日期计算）
    ' fillRange.NumberFormat = "@"
    ' fillRange.Value = Format(Date, "yyyymmdd")
End Sub

为什么原来的代码没覆盖到目标行？ #

举个场景：假设你的A列数据到第50行，但F列目前只有前10行有数据，那原来的lastRow = Range("F" & Rows.Count).End(xlUp).Row会返回10，代码只会填充F2:F10，而你想要的是填充到F50——这就是问题所在，你得基于数据列而非填充列来计算最后一行。

如果你的「目标最后一行」确实是F列的最后一行，但填充后没覆盖，那可能是F列有隐藏行或者筛选状态，你可以先取消筛选再执行代码：

' 在计算lastRow前添加这行，取消筛选
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

内容的提问来源于stack exchange，提问作者Starbucks