[已解决]如何用VBA来实现筛选汇总的效果

dasly123

因不确定A列数据有多少行，想用VBA 根据A列的有效数据来筛选汇总 “材料”所对应的总重量。。 （参数在“信息表”中）
  


求助.rar (116.23 KB, 下载次数: 11)

2013-7-21 15:42 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

sliang28

2013-7-21 16:34

请测试附件……

跳转到最佳答案楼层

sliang28

你就说你要什么结果,不一定按你说的步骤来.

sliang28

请测试附件……

dasly123

非常感谢 .... 数据全对... 只是有几个地方没懂.    可以帮我解译下吗??

dasly123

sliang28 发表于 2013-7-21 16:34
请测试附件……

Private Sub CommandButton1_Click()
    Dim arr, brr
    Dim d, d1, d2
    Dim i, j
        arr = Sheets("信息表").UsedRange
        brr = Sheets("统计求和").Range("A4:B" & Range("A65536").End(3).Row)
        Set d = CreateObject("Scripting.dictionary")
        Set d1 = CreateObject("Scripting.dictionary")
        Set d2 = CreateObject("Scripting.dictionary")
            For i = 1 To UBound(arr)
                d(arr(i, 1)) = d(arr(i, 1)) + arr(i, 9)  
                d1(arr(i, 1)) = d1(arr(i, 1)) + arr(i, 10)  
            Next
        ReDim crr(1 To UBound(brr), 1 To 3)
            For i = 1 To UBound(brr)
                m = m + 1
                crr(m, 3) = d(brr(i, 1))
                crr(m, 2) = d1(brr(i, 1))  
                crr(m, 1) = crr(m, 3) * brr(i, 2)  
            Next
        For i = 1 To m
            d2(crr(i, 2)) = d2(crr(i, 2)) + crr(i, 1)  
        Next
        With Sheets("统计求和")
            .Range("D4:F" & UBound(brr)).ClearContents
            .Range("H5:I" & UBound(brr)).ClearContents
            .Range("D4").Resize(m, 3) = crr
            .Range("H5").Resize(d2.Count, 1) = Application.WorksheetFunction.Transpose(d2.keys)
            .Range("I5").Resize(d2.Count, 1) = Application.WorksheetFunction.Transpose(d2.items)
        End With
End Sub

d2(crr(i, 2)) = d2(crr(i, 2)) + crr(i, 1)      +crr(i+1)表示什么?
.Range("H5").Resize(d2.Count, 1) = Application.WorksheetFunction.Transpose(d2.keys)  这两句  何解??
.Range("I5").Resize(d2.Count, 1) = Application.WorksheetFunction.Transpose(d2.items) 这两句  何解??

sliang28

dasly123 发表于 2013-7-21 19:35
Private Sub CommandButton1_Click()
    Dim arr, brr
    Dim d, d1, d2

1.字典赋值.
2.字典key赋给单元格
3.字典item赋给单元格

dasly123

看懂了..  太感谢了....    好厉害啊... 什么时候才能学得像您这么好!!!!!!