如何在单元格内容变更时自动触发运行VBA宏

第一步：使用工作表Change事件实现自动触发 #

普通宏不会自动监听单元格修改操作，你需要将触发逻辑放在对应工作表的Change事件中才能实现输入内容后自动运行，操作步骤：

1. 按下Alt + F11打开VBA编辑器
2. 在左侧工程资源管理器中找到你要生效的Sheet1，双击打开对应代码窗口
3. 在代码窗口顶部左侧下拉框选「Worksheet」，右侧下拉框选「Change」，会自动生成事件框架
4. 在框架内填入判断逻辑，修改后的完整可运行代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅处理C列、单个单元格修改、且输入内容不为空的场景
    If Target.Column <> 3 Or Target.Cells.Count > 1 Or VBA.Trim(Target.Value) = "" Then
        Exit Sub
    End If
    
    ' 临时关闭事件触发，避免修改CG列时重复触发本事件造成死循环
    Application.EnableEvents = False
    
    Dim counterNumber As Integer
    Dim counter As Range
    
    ' 第一行单独处理，避免行号为0报错
    If Target.Row = 1 Then
        counterNumber = 0
    Else
        ' 取上一行CG列的已存数值
        Set counter = Me.Cells(Target.Row - 1, "CG")
        counterNumber = counter.Value
    End If
    
    ' 计数逻辑，满6重置
    If counterNumber = 6 Then
        counterNumber = 0
    End If
    counterNumber = counterNumber + 1
    
    ' 写入当前行对应CG列位置
    Me.Cells(Target.Row, "CG").Value = counterNumber
    
    ' 恢复事件触发，不影响其他功能正常运行
    Application.EnableEvents = True
End Sub

注意事项 #

• 这段代码不能放在普通模块里，必须放在对应工作表的代码窗口才能生效
• 代码中Me直接指代当前工作表，不需要额外修改工作表名适配
• 如果要保留你原本写的Counting子过程也可以，在上面的Change事件判断符合触发条件后加一行Call Counting即可，但必须保留Application.EnableEvents的开关逻辑避免死循环

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