我看了你的需求和写的代码，核心问题出在两个地方：一是你的代码是手动运行的普通宏，没办法在删除Tracker表L列内容时自动触发；二是代码逻辑完全偏离了需求——用LastRow去和Formulas的AF列值比较，和「清空L列对应清除AF列」的目标完全不搭边。

要实现当Tracker工作表L列单元格被清空时自动清除Formulas表对应行AF列内容，你需要用到工作表事件（Worksheet_Change），这才是能自动响应单元格修改的正确方式。

具体步骤和代码 #

1. 打开Excel，按下 Alt + F11 打开VBA编辑器
2. 在左侧「工程资源管理器」里找到Tracker工作表，双击打开它的代码模块
3. 粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim wsFormulas As Worksheet
    Dim affectedRow As Long
    Dim cell As Range
    
    ' 禁用事件，避免循环触发报错
    Application.EnableEvents = False
    
    ' 关联Formulas工作表
    Set wsFormulas = ThisWorkbook.Sheets("Formulas")
    
    ' 只处理L列的单元格变化，过滤无关操作
    If Not Intersect(Target, Me.Columns("L")) Is Nothing Then
        ' 遍历所有被修改的单元格（支持批量删除多行的场景）
        For Each cell In Intersect(Target, Me.Columns("L"))
            affectedRow = cell.Row
            ' 只处理第2行及以下的内容（匹配你的需求范围）
            If affectedRow >= 2 Then
                ' 如果Tracker的L列单元格为空，就清除Formulas对应行的AF列
                If IsEmpty(cell.Value) Then
                    wsFormulas.Range("AF" & affectedRow).ClearContents
                End If
            End If
        Next cell
    End If
    
    ' 恢复事件触发功能
    Application.EnableEvents = True
End Sub

代码关键说明 #

• Worksheet_Change 是Tracker工作表的内置事件，只要该表的单元格内容发生变化（比如删除内容），就会自动触发
• Intersect(Target, Me.Columns("L")) 确保我们只响应L列的修改，避免无关操作触发代码
• 加入循环逻辑，支持批量删除多行L列内容的场景，不会漏掉任何一行
• Application.EnableEvents = False 是为了防止清除Formulas表内容时再次触发其他事件，导致循环报错

原代码的问题复盘 #

• 原代码是普通Sub过程，必须手动运行，无法自动响应单元格删除操作
• 逻辑完全错误：把L列最后一行行号赋值给CompareVal，再去判断AF列值是否小于这个行号，和需求没有关联
• 尝试IsEmpty(CompareVal.value)时报错，是因为CompareVal是普通数值变量，不是对象，没有.value属性

现在回到Excel，试试删除Tracker表L2（或其他行）的内容，Formulas表对应行的AF列会自动清空啦！

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