[已解决]按一定条件取数据并且计算数值结果VBA宏代码？

l2828486

这个好难啊！各位老师帮写一下吧！

最佳答案

月排行榜 / 总排行榜

爱疯

2016-3-15 15:47

求助2.rar (9.96 KB, 下载次数: 10)

2016-3-15 15:46 上传

点击文件名下载附件

Sub test()
    Dim d, A, k, t, i
    Set d = CreateObject("scripting.dictionary")
    A = Range("a1").CurrentRegion

    For i = 3 To UBound(A)
        t = A(i, 1) & "|" & A(i, 2)
        d(t) = d(t) + A(i, 3)
    Next i
    k = d.keys: t = d.items


    ReDim A(1 To d.Count, 1 To 3)
    For i = 1 To UBound(A)
        A(i, 1) = Split(k(i - 1), "|")(0)
        A(i, 2) = Split(k(i - 1), "|")(1)
        A(i, 3) = t(i - 1)
    Next i
    [e3:g1000] = ""
    [e3].Resize(UBound(A), UBound(A, 2)) = A
End Sub

跳转到最佳答案楼层

爱疯

求助2.rar (9.96 KB, 下载次数: 10)

2016-3-15 15:46 上传

点击文件名下载附件

Sub test()
    Dim d, A, k, t, i
    Set d = CreateObject("scripting.dictionary")
    A = Range("a1").CurrentRegion

    For i = 3 To UBound(A)
        t = A(i, 1) & "|" & A(i, 2)
        d(t) = d(t) + A(i, 3)
    Next i
    k = d.keys: t = d.items


    ReDim A(1 To d.Count, 1 To 3)
    For i = 1 To UBound(A)
        A(i, 1) = Split(k(i - 1), "|")(0)
        A(i, 2) = Split(k(i - 1), "|")(1)
        A(i, 3) = t(i - 1)
    Next i
    [e3:g1000] = ""
    [e3].Resize(UBound(A), UBound(A, 2)) = A
End Sub

l2828486

版主太感谢了！

yorkchenshunan

见附件

l2828486

谢谢！相当棒！

l2828486

如果再增加一个条件和汇总数时！如何写

l2828486

呵呵！原来如此！解决了！