Excel表格增删行后时间线异常，求自动清除内容格式的VBA方案

以下是针对需求编写的VBA代码，可实现左侧员工项目列表修改后，自动清理右侧时间线残留数据并刷新公式与条件格式：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 定义左侧员工项目数据的范围（根据实际列范围调整，示例为A:H列）
    Dim leftDataArea As Range
    Set leftDataArea = Me.Range("A:H")
    
    ' 仅当修改区域属于左侧数据范围时执行操作
    If Not Intersect(Target, leftDataArea) Is Nothing Then
        ' 关闭事件与自动计算，避免循环触发和冗余计算
        Application.EnableEvents = False
        Application.Calculation = xlCalculationManual
        
        ' 清除AB2及以后单元格的内容（保留公式）和格式
        With Me.Range("AB2:XX" & Me.Cells(Me.Rows.Count, "AB").End(xlUp).Row)
            .ClearContents
            .ClearFormats
        End With
        
        ' 重新计算指定公式单元格
        Me.Range("AB2").Calculate
        Me.Range("AC2").Calculate
        Me.Range("AD1").Calculate
        Me.Range("AD2").Calculate
        
        ' 强制刷新整个工作表，确保条件格式生效
        Me.Calculate
        
        ' 恢复自动计算与事件触发
        Application.Calculation = xlCalculationAutomatic
        Application.EnableEvents = True
    End If
End Sub

代码细节说明 #

• 触发逻辑：绑定工作表的Change事件，仅在用户修改左侧员工项目数据（A:H列）时触发，避免无关操作执行代码。
• 清除操作：ClearContents仅清除单元格的计算结果（保留公式本身），ClearFormats彻底清除旧的条件格式和手动格式，解决残留格式问题。
• 计算控制：先单独刷新指定公式单元格，再全局计算工作表，确保时间线数据和条件格式同步更新。
• 性能优化：临时关闭事件触发和自动计算，防止代码执行过程中重复触发事件或进行不必要的计算，提升运行流畅度。

使用注意事项 #

1. 调整leftDataArea的范围以匹配你实际的左侧员工项目数据列（比如数据到I列就改为A:I）。
2. 右侧时间线的列范围AB2:XX请根据实际使用的最大列调整，确保覆盖所有时间线单元格。
3. 代码必须粘贴到对应的工作表模块中（右键工作表标签→选择「查看代码」→粘贴代码），不能放在标准模块里。

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