求助VBA的汇总数据的问题

hl19881005

各位大神，求助VBA的汇总数据的问题：需求：
1、把坐标列表的数据，希望统计为右边的形式，把重复的内容统计为数据，还需要按照第一个分类来统计，谢谢！

明天会更好zj

明天会更好zj

这个透视表最简单，没必要用代码。

quqiyuan

字典+数组，参与一下，供参考。。。

quqiyuan

这个用PQ也方便和简单些。。。

wang-way

字典数组分类汇总

peteryhr

字典的典型用法：去重与计数

小凡、、、

楼主365版本的话可以参考下新函数

Qs18

Sub qs() '2024/6/27
    Dim arr, brr, dic, i
    Set dic = CreateObject("scripting.dictionary")
    With Sheet1
    .Range("d2:f10000").ClearContents
        arr = .Range("a1").CurrentRegion.Value
        ReDim brr(1 To UBound(arr), 1 To 3)
        For i = 2 To UBound(arr)
            s = arr(i, 1) & arr(i, 2)
            If Not dic.exists(s) Then
                m = m + 1
                dic(s) = m
                brr(m, 1) = arr(i, 1)
                brr(m, 2) = arr(i, 2)
                brr(m, 3) = 1
            Else
                rw = dic(s)
                brr(rw, 3) = brr(rw, 3) + 1
            End If
        Next
        .Range("d2").Resize(m, 3) = brr
    End With
    Set dic = Nothing
    MsgBox "完成！"
End Sub

Qs18

试一下........