vba A列筛选c列求和

NaCl_cn

你这也太。。。。纯不会啊，代码头加with activesheet 尾加end with 所有的属性前面加.
建议你还是要学习一下的，不要让大家觉得你就是来做伸手党的，慢慢就很少人会愿意帮你了

zhangmi

数据透视表就能做的，为什么搞的这么复杂？

lzymbz

NaCl_cn 发表于 2019-11-8 14:10
你这也太。。。。纯不会啊，代码头加with activesheet 尾加end with 所有的属性前面加.
建议你还是要学习 ...

谢谢提醒啊，vba确实不会，所以，抱歉

lzymbz

zhangmi 发表于 2019-11-8 15:31
数据透视表就能做的，为什么搞的这么复杂？

你这里看到的只是一部分内容，整个文件功能比较复杂，而这个文件是给别人用的，所以要避免被不熟悉的人改动，vba后台直接生成会更好一些

清风竹-

lzymbz 发表于 2019-11-7 23:36
你好，麻烦问一下不同工作表调用执行后结果会异常需要修改那里？我这里需要在不同工作表调用。这里会上传 ...

Sub zz()
    Dim d, ar
    Set d = CreateObject("Scripting.Dictionary")
    ar = Sheet2.Range("a2:c" & Sheet2.[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
   Sheet3.[G2].Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
End Sub

lzymbz

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

感谢你，谢谢

zf5345

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

这段语句If ar(i, 1) <> "" Then d(ar(i, 1)) = d(ar(i, 1)) + ar(i, 3)，，，，其中的d(ar(i, 1)) = d(ar(i, 1)) + ar(i, 3)，怎么理解？

清风竹-

zf5345 发表于 2019-11-9 16:36
这段语句If ar(i, 1)  "" Then d(ar(i, 1)) = d(ar(i, 1)) + ar(i, 3)，，，，其中的d(ar(i, 1)) = d(ar( ...

    这是VBA字典方法。d(ar(i, 1)) = d(ar(i, 1)) + ar(i, 3)  等式两边都有d(ar(i, 1)) ，意义不一样，左边是关键字，右边d(ar(i, 1))的意义是关键字对应的项（已存在的），加上ar(i, 3)，形成新的关键字对应的项。

lzymbz

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

老师你好，麻烦你了，有些后续问题请教你，如果中间需要统计户数应该怎么修改呢？
工作簿.rar (21.67 KB, 下载次数: 0)

2019-11-12 23:50 上传

点击文件名下载附件

lzymbz

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

麻烦问下老师，计算后出现这个结果是怎么回事？结果显示异常，附件已经提供。