如何实现向单元格添加数据时自动运行宏（Macro）

要实现仅在单元格添加数据（而非删除数据）时触发宏，可以通过判断单元格变更前后的状态来实现。以下是两种适配不同场景的修改方案：

方案1：仅当单元格从空变为有内容时触发宏 #

这种场景下，只有原本为空的单元格被填入内容时才运行宏，修改已有内容或删除内容都不触发：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim changedRange As Range
    Dim cell As Range
    Dim oldValue As Variant
    
    ' 限定触发范围为J13:J27
    Set changedRange = Intersect(Target, Range("J13:J27"))
    If changedRange Is Nothing Then Exit Sub
    
    ' 关闭事件触发，避免循环
    Application.EnableEvents = False
    
    For Each cell In changedRange
        ' 撤销操作获取原单元格值
        Application.Undo
        oldValue = cell.Value
        ' 恢复变更后的内容
        cell.Value = Target.Value
        
        ' 判断：原单元格为空，变更后非空（即添加数据）
        If IsEmpty(oldValue) And Not IsEmpty(cell.Value) Then
            Call Copy_Cell
        End If
    Next cell
    
    ' 重新开启事件触发
    Application.EnableEvents = True
End Sub

方案2：只要单元格未被清空就触发宏 #

这种场景下，无论是从空到有内容，还是修改已有内容，只要单元格最终不是空值就运行宏，仅删除内容（单元格变空）时不触发：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim changedRange As Range
    Dim cell As Range
    
    ' 限定触发范围为J13:J27
    Set changedRange = Intersect(Target, Range("J13:J27"))
    If changedRange Is Nothing Then Exit Sub
    
    ' 遍历每个变更的单元格
    For Each cell In changedRange
        ' 判断：单元格变更后非空（排除删除操作）
        If Not IsEmpty(cell.Value) Then
            Call Copy_Cell
        End If
    Next cell
End Sub

注意事项 #

• 使用Application.EnableEvents = False是为了避免在恢复单元格内容时再次触发Worksheet_Change事件，造成循环调用。
• 如果Copy_Cell宏中涉及修改单元格内容，也需要在宏内部临时关闭事件触发，避免冲突。

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