没问题，我来给你提供一段实用的VBA代码，帮你实现分组计数取最大值的需求，比函数方法更灵活可控：

核心思路 #

• 用字典（Dictionary）来统计每个分组的出现次数，键存分组内容，值存对应计数
• 遍历目标区域完成统计后，再遍历字典找出最大的计数值

完整VBA代码 #

Sub GetMaxGroupCount()
    Dim targetRange As Range
    Dim cell As Range
    Dim countDict As Object
    Dim maxCount As Integer
    Dim currentKey As Variant
    
    ' 自定义目标区域：这里示例为Sheet1的A列从A2开始的非空单元格
    Set targetRange = ThisWorkbook.Sheets("Sheet1").Range("A2:A" & ThisWorkbook.Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row)
    Set countDict = CreateObject("Scripting.Dictionary")
    
    ' 遍历区域，统计每个分组的出现次数
    For Each cell In targetRange
        If Not countDict.Exists(cell.Value) Then
            countDict.Add cell.Value, 1
        Else
            countDict(cell.Value) = countDict(cell.Value) + 1
        End If
    Next cell
    
    ' 从字典中筛选出最大计数值
    maxCount = 0
    For Each currentKey In countDict.Keys
        If countDict(currentKey) > maxCount Then
            maxCount = countDict(currentKey)
        End If
    Next currentKey
    
    ' 输出结果：可选弹窗提示或写入单元格
    MsgBox "分组计数的最大值是：" & maxCount
    ' 若要写入到指定单元格（比如Sheet1的B1），取消注释下面这句
    ' ThisWorkbook.Sheets("Sheet1").Range("B1").Value = maxCount
End Sub

使用说明 #

• 修改目标区域：把代码里的Sheet1和A2:A...改成你实际的工作表名称和数据区域
• 多列分组统计：如果是基于多列内容分组，比如A列+B列，可以把键改成cell.Value & "|" & cell.Offset(0,1).Value，避免不同组合重复
• 启用字典：如果运行时报错，打开VBA编辑器的「工具」→「引用」，勾选「Microsoft Scripting Runtime」即可

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