Excel VBA宏报错排查：按非日期列分组求最值与平均值

嘿，我清楚你的问题所在——原来的宏里用了DateValue()来处理第一列的值，但换成非日期内容后，这个函数会因为无法解析非日期格式的数据而报错。下面是完全适配非日期列的修正版宏，既能高效处理20万行的大数据量，又能准确完成分组统计第二列的最大值、最小值和平均值：

Sub GroupStats()
    Dim Rng As Range, Dn As Range, n As Long, c As Long, K As Variant
    Set Rng = Range(Range("A2"), Range("A" & Rows.Count).End(xlUp))
    
    With CreateObject("scripting.dictionary")
        .CompareMode = vbTextCompare
        Application.ScreenUpdating = False
        
        ' 遍历第一列，按原始值分组，收集对应第二列的单元格
        For Each Dn In Rng
            If Not .Exists(Dn.Value) Then
                .Add Dn.Value, Dn.Offset(, 1)
            Else
                Set .Item(Dn.Value) = Union(.Item(Dn.Value), Dn.Offset(, 1))
            End If
        Next
        
        ' 设置输出表头
        Range("E1:H1") = Array("Group", "Max", "Min", "Average")
        c = 1
        
        ' 遍历字典，输出每个分组的统计结果
        For Each K In .keys
            c = c + 1
            Cells(c, "E") = K
            Cells(c, "F") = Application.Max(.Item(K))
            Cells(c, "G") = Application.Min(.Item(K))
            Cells(c, "H") = Application.Average(.Item(K))
        Next K
    End With
    
    Application.ScreenUpdating = True
End Sub

关键修改说明： #

• 移除了所有DateValue()调用：直接使用单元格的原始值Dn.Value作为字典的键，兼容文本、数字等各种非日期类型的分组依据
• 调整表头文本：把原来的"Date"改成了更通用的"Group"，让输出结果更贴合非日期分组的场景
• 保留高效逻辑：依然依赖Scripting.Dictionary进行快速分组，配合Union合并同组数据，处理20万行数据的效率不会打折扣

如果第一列有空格或者需要忽略大小写的匹配需求，你可以在添加字典键之前对Dn.Value做简单处理，比如Trim(Dn.Value)或者UCase(Dn.Value)，根据你的实际数据情况调整即可。

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