VBA多工作表变更事件问题：双列下拉触发静态时间戳及删除同步

你的双时间戳代码逻辑结构完全错误——把G列的判断嵌套在了C列的Else分支里，导致只有当C列对应的E列已经有时间戳时，才会去检查G列的操作，自然无法正常触发G列的时间戳生成。另外你还需要补充删除C列内容时同步清除E列时间戳的逻辑。

下面是修复后的完整代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 禁用事件，避免代码修改单元格时触发无限循环
    Application.EnableEvents = False
    
    Dim cRange As Range, gRange As Range
    Dim cell As Range
    
    ' 定义两个目标范围
    Set cRange = Me.Range("C8:C70")
    Set gRange = Me.Range("G8:G70")
    
    ' 处理C列操作：生成/清除E列时间戳
    If Not Intersect(Target, cRange) Is Nothing Then
        For Each cell In Intersect(Target, cRange)
            If cell.Value = "" Then
                ' C列内容被删除，清空对应E列
                Me.Range("E" & cell.Row).ClearContents
            Else
                ' C列有内容且E列为空时，生成静态时间戳
                If Me.Range("E" & cell.Row).Value = "" Then
                    Me.Range("E" & cell.Row).Value = Now
                End If
            End If
        Next cell
    End If
    
    ' 处理G列操作：生成I列时间戳
    If Not Intersect(Target, gRange) Is Nothing Then
        For Each cell In Intersect(Target, gRange)
            ' G列有内容且I列为空时，生成静态时间戳
            If cell.Value <> "" And Me.Range("I" & cell.Row).Value = "" Then
                Me.Range("I" & cell.Row).Value = Now
            End If
        Next cell
    End If
    
    ' 恢复事件触发
    Application.EnableEvents = True
End Sub

关键说明： #

• 加入Application.EnableEvents = False/True：防止代码修改单元格时再次触发Worksheet_Change事件，造成循环卡顿。
• 分开处理C列和G列的逻辑：两个判断独立，不管哪列操作都能触发对应逻辑。
• 遍历Target单元格：支持多选单元格修改的场景，避免只处理第一个单元格的问题。
• 补充C列删除时的清除逻辑：当C列单元格被清空，同步清除对应行的E列内容。

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