vba A列筛选c列求和

lzymbz

需要A列筛选c列求和,论坛查询到了 A列筛选B列求和，怎么改成C列求和呢，别的都和这个需求一样，谢谢了！

liulang0808

现在代码是以C列为关键字对D列求和的，
楼主的需求描述有点看不懂的

清风竹-

Sub zz()
    Dim d, ar
    Set d = CreateObject("Scripting.Dictionary")
    ar = Range("a2:c" & [a65536].End(3).Row)
    For i = 1 To UBound(ar)
        If ar(i, 1) <> "" Then d(ar(i, 1)) = d(ar(i, 1)) + ar(i, 3)
    Next
    [E2].Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
End Sub

lzymbz

liulang0808 发表于 2019-11-7 21:31
现在代码是以C列为关键字对D列求和的，
楼主的需求描述有点看不懂的

不好意思，这次重新做了附件，麻烦你给看看

lzymbz

清风竹- 发表于 2019-11-7 21:45
Sub zz()
    Dim d, ar
    Set d = CreateObject("Scripting.Dictionary")

感谢，感谢，就是我需要的功能，我做到我的文件中看看，谢谢你了。

amzxfgh9632

这个叫分类汇总

lzymbz

amzxfgh9632 发表于 2019-11-7 22:10
这个叫分类汇总

不好意思，我可能表述有误，没有系统学过EXCEL ,都是用到啥，查啥，基本都是以描述为主，真不知道这应该叫啥。

everbest2015

这其实就是透视表就能搞定的事儿

lzymbz

清风竹- 发表于 2019-11-7 21:45
Sub zz()
    Dim d, ar
    Set d = CreateObject("Scripting.Dictionary")

你好，麻烦问一下不同工作表调用执行后结果会异常需要修改那里？我这里需要在不同工作表调用。这里会上传做好的附件，麻烦你给看看。
我需要的是数据在Sheet2，结果生成到Sheet3，用模块方式调用。

第二工作表执行结果

lzymbz

求教高手，谢谢了