【求助】多工作簿数据统计透视代码问题

ronty

之前看了论坛里的一段多工作簿透视的代码，我因为不懂vb，所以只是完全拷贝，然后替换里面的关键字，结果没发使用，这边哪位达人可以帮忙整理好啊。要求就是压缩包里德"suggestion.xls“文件可以实现对其余工作簿的建议人、建议数量、建议提出部门、建议费用这四项内容进行透视统计。并将建议提出部门作为透视的分类可选择项。在此拜谢了。

ronty

哪位达人帮忙啊，等候多日了。

wtb162

Sub aa()
    Dim arr1
    Dim i
    Dim j
    Dim rng As Range
    Dim rowstr As String
    Dim colstr As Integer
    Dim dic
    arr1 = [a2:f12]
    For Each rng In Range("b18:d20")
        colstr = rng.Column + 2009
        rowstr = Range("a" & rng.Row)
        Set d = CreateObject("scripting.dictionary")
        On Error Resume Next
            For i = 1 To UBound(arr1)
                For j = 3 To UBound(arr1, 2)
                If arr1(i, 1) = colstr And arr1(i, 2) = rowstr Then
                d.add arr1(i, j), ""
                End If
                Next
            Next
        rng = d.Count
    Next
End Sub