Excel自定义函数CountChanges多单元格计数不重置问题求助

你的代码存在两个核心问题：

1. changeCount是模块级变量，它的生命周期与模块绑定，所有函数调用都会共享这个变量的值，不会在每次调用CountChanges时自动重置为0。
2. prevValue是函数内部的局部变量，每次调用函数都会重新初始化默认值（Double类型默认是0），导致无法正确记录上一个单元格的数值，逻辑完全失效。

根据常见使用场景，分两种情况给出修复代码：

场景1：统计单个单元格自身的修改次数（每次编辑单元格值时计数+1） #

这种场景需要结合工作表事件实现，单纯UDF无法主动监听单元格修改：

' 将这段代码粘贴到对应的工作表模块中（不是标准模块）
Private cellChangeCounts As New Dictionary

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cellKey As String
    cellKey = Target.Address(False, False)
    
    ' 仅处理单个单元格修改的情况
    If Target.Cells.Count = 1 Then
        If cellChangeCounts.Exists(cellKey) Then
            cellChangeCounts(cellKey) = cellChangeCounts(cellKey) + 1
        Else
            cellChangeCounts(cellKey) = 1
        End If
    End If
End Sub

Function CountChanges(cell As Range) As Long
    Dim cellKey As String
    cellKey = cell.Address(False, False)
    
    If cellChangeCounts.Exists(cellKey) Then
        CountChanges = cellChangeCounts(cellKey)
    Else
        CountChanges = 0
    End If
End Function

使用说明：

• 在单元格输入=CountChanges(A1)，每次修改A1的值，计数会自动加1
• 每个单元格的计数独立，互不干扰

场景2：统计列中从第一行到当前单元格的数值变化次数 #

比如A1为初始值，A2与A1不同则计数1，A3与A2不同则计数2，以此类推：

Function CountChanges(cell As Range) As Long
    Dim changeCount As Long
    Dim prevValue As Variant
    Dim currentCell As Range
    Dim colRange As Range
    
    ' 获取当前单元格所在列，从第一行到当前单元格的完整区域
    Set colRange = cell.Parent.Range(cell.Parent.Cells(1, cell.Column), cell)
    
    ' 遍历区域统计变化次数
    For Each currentCell In colRange
        If currentCell.Row = 1 Then
            ' 第一行设为初始计数
            changeCount = 1
            prevValue = currentCell.Value
        Else
            If currentCell.Value <> prevValue Then
                changeCount = changeCount + 1
                prevValue = currentCell.Value
            End If
        End If
    Next currentCell
    
    CountChanges = changeCount
End Function

使用说明：

• 在A2输入=CountChanges(A2)，会统计A1到A2的变化次数；A3输入=CountChanges(A3)，统计A1到A3的变化次数
• 每个单元格的计数独立，基于自身所在列的上方单元格序列计算

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