Question

用VBA字典数组多行多列汇总

用VBA字典数组多行多列汇总

Answer 1

你确定要使用excel VBA字典技术来做吗？根据你表格需要达到的汇总要求，我觉得还是使用数据透视表比较方便，VBA字典就要麻烦的多了。 具体插入数据透视表的方法是，选中a、b、c三列数据，建立数据透视表，将数据1字段拖入行标签，将数据2字段拖入列标签，将数据3字段拖入数值区域，就可以轻松的做出分类汇总，然后再选项中去掉行汇总和列汇总。

Answer 2

Sub s()
    arr = [a1].CurrentRegion
    Set d = CreateObject("scripting.dictionary")
    k = 1
    For i = 2 To UBound(arr)
        t = arr(i, 1) & arr(i, 2)
        If Not d.exists(t) Then
            k = k + 1
            d(t) = k
            If k <> i Then
                arr(k, 1) = arr(i, 1)
                arr(k, 2) = arr(i, 2)
                arr(k, 3) = arr(i, 3)
            End If
        Else
            arr(d(t), 3) = arr(d(t), 3) + arr(i, 3)
        End If
    Next
    [e1].Resize(k, 3) = arr
End Sub