对表格中的单元格数值更改进行计数- Excle或VBA

Sub CountCellValueChanges()
    Dim rng As Range
    Dim count As Integer
    Dim oldValue As Variant
    Dim newValue As Variant
    
    Set rng = Range("A1:A10") '指定要监视的单元格范围
    count = 0
    
    For Each cell In rng
        newValue = cell.Value
        If Not IsEmpty(oldValue) And oldValue <> newValue Then
            count = count + 1
        End If
        oldValue = newValue
    Next cell
    
    MsgBox "单元格数值更改的次数为：" & count
End Sub