如何通过VBA Worksheet_Change事件实现周追踪单元格逐日自动填充

原代码的核心错误 #

1. 逻辑判断冲突：外层判断修改的是F14单元格，内层却又判断修改的是F22:F26区域，两个条件不可能同时成立，导致内部代码完全不会执行。
2. 语法与调用错误：
   • VBA注释需用单引号'，而非//
   • target.Address = "$F$23" = 0这类语句逻辑混乱，混淆了单元格地址和单元格值的判断逻辑
   • SetCellValue不是VBA内置方法，属于错误调用
3. 逻辑偏离需求：错误地通过target.Address判断目标区域的填充状态，完全偏离了“依次填充F22至F26”的需求逻辑

修正后的代码 #

以下代码可实现需求：当F14的值更新时，自动将值填入F22:F26中第一个未填充（空或值为0）的单元格，且不会覆盖已填充内容：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅响应F14单元格的修改操作
    If Not Intersect(Target, Me.Range("F14")) Is Nothing Then
        ' 禁用事件触发，避免修改目标单元格时重复触发本事件
        Application.EnableEvents = False
        
        Dim fillCell As Range
        ' 遍历F22到F26，找到第一个待填充的单元格
        For Each fillCell In Me.Range("F22:F26")
            If fillCell.Value = "" Or fillCell.Value = 0 Then
                fillCell.Value = Me.Range("F14").Value
                Exit For ' 找到目标单元格后立即退出循环，避免继续遍历
            End If
        Next fillCell
        
        ' 恢复事件触发功能
        Application.EnableEvents = True
    End If
End Sub

代码说明 #

• Me.Range指代当前工作表的单元格，避免跨工作表引用错误
• Application.EnableEvents = False防止修改目标单元格时再次触发Worksheet_Change事件，造成循环执行
• 遍历F22:F26区域，找到第一个符合条件的单元格后赋值并退出循环，严格保证“依次填充、不覆盖”的逻辑

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