如何计算Excel中单元格更改的次数？

要计算Excel中指定单元格更改的次数，本文提供的VBA代码可以提供帮助。

使用VBA代码计算单元格更改的次数

使用VBA代码计算单元格更改的次数

以下VBA代码可以帮助您计算Excel中指定单元格更改的次数。

1. 在包含一个或多个需要计算总更改次数的单元格的工作表中，右键单击工作表标签，然后从上下文菜单中点击 查看代码。参见截图：

2. 在打开的 Microsoft Visual Basic for Applications 窗口中，根据需要将以下VBA代码之一复制并粘贴到 代码 窗口中。

VBA代码1：仅跟踪一个单元格的更改

Dim xCount As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    If Target = Range("B9") Then
        xCount = xCount + 1
        Range("C9").Value = xCount                                     
    End If
    Application.EnableEvents = False
    Set xRg = Application.Intersect(Target.Dependents, Me.Range("B9"))
    If Not xRg Is Nothing Then
        xCount = xCount + 1
        Range("C9").Value = xCount
    End If
    Application.EnableEvents = True
End Sub

备注：在代码中，B9是需要计算其更改次数的单元格，C9是填充计数结果的单元格。请根据需要进行更改。

VBA代码2：跟踪一列中多个单元格的更改

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20220916
    Dim xSRg As Range
    Dim xRRg As Range
    
    Set xSRg = Range("B9:B1000")
    Set xCell = Intersect(xSRg, Target)
    If xCell Is Nothing Then Exit Sub
    
    
    Application.EnableEvents = False
    On Error Resume Next
    Set xCell = xCell.Range("A1")
    Set xRRg = xCell.Offset(0, 1)
    
    xRRg.Value = xRRg.Value + 1

    Application.EnableEvents = True
End Sub

备注：在这行代码 "Set xRRg = xCell.Offset(0, 1)" 中，数字1表示相对于起始引用向右偏移的列数（这里的起始引用是列 B，而您希望返回的计数在列C中，它位于列B旁边）。如果需要在列S中输出结果，请将数字1更改为10。

从现在开始，当单元格B9或范围B9:B1000中的任何单元格发生变化时，更改的总次数将叠加并自动填充到指定的单元格中。

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！