下面是一个示例代码，展示了如何在Excel中使用VBA宏来实现对单元格值每次更改的计数：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 定义一个计数器变量
    Static count As Integer
    
    ' 检查更改的单元格是否在指定的范围内
    If Not Intersect(Target, Range("A1:C10")) Is Nothing Then
        ' 每次更改时增加计数器的值
        count = count + 1
        
        ' 将计数器的值输出到单元格D1中
        Range("D1").Value = count
    End If
End Sub

在Excel的VBA编辑器中，将上述代码复制粘贴到工作表对象的代码窗口中（例如，Sheet1）。

此代码使用了Worksheet_Change事件，每当工作表中的单元格值发生更改时，就会触发该事件。在事件处理程序中，首先定义了一个静态计数器变量count。然后，使用Intersect函数检查更改的单元格是否在指定的范围内（在此示例中为A1:C10）。

如果更改的单元格在指定的范围内，则计数器count增加1，并将计数器的值输出到单元格D1中。

请注意，此代码只能在工作表的代码窗口中使用，而不是标准模块中。