用VBA按条件汇总数据

sxbjzjf110 · 发表于 2022-4-21 14:47

想要实现含月的工作表每月累计数量加上上月累计数量
1月累计数量=1月数量
2月累计数理=2月数量+1月累计数量
3月累计数理=3月数量+2月累计数量
以此类推

microyip · 发表于 2022-4-21 16:49

注册了几个号？用不同的号发不同但又类似的求助？

蓝桥玄霜 · 发表于 2022-4-21 16:57

累计的例子：

sxbjzjf110 · 发表于 2022-4-22 09:32

microyip 发表于 2022-4-21 16:49
注册了几个号？用不同的号发不同但又类似的求助？

只有一个号。

sxbjzjf110 · 发表于 2022-4-22 09:33

蓝桥玄霜发表于 2022-4-21 16:57
累计的例子：

谢谢版主，你的方法简单。

sxbjzjf110 · 发表于 2023-3-18 22:28

cjc209 · 发表于 2023-3-18 22:48

蓝桥玄霜发表于 2022-4-21 16:57
累计的例子：

版主写的复杂我来点简单粗暴的
Sub 字典结果法()
Dim dic, i, i1, key
Set dic = CreateObject("scripting.dictionary")
For i = 1 To 6
      n = Sheets(i & "月").Cells(Rows.Count, "A").End(xlUp).Row
      For i1 = 2 To n '源数据区行循环
         key = Sheets(i & "月").Cells(i1, 1)  '关键字组合型
         dic(key) = dic(key) + Sheets(i & "月").Cells(i1, 4)
         Sheets(i & "月").Cells(i1, 5) = dic(key)
      Next
Next
Set dic = Nothing
End Sub

sxbjzjf110 · 发表于 2023-3-19 10:49

cjc209 发表于 2023-3-18 22:48
版主写的复杂我来点简单粗暴的
Sub 字典结果法()
Dim dic, i, i1, key

老师写的简单

sxbjzjf110 · 发表于 2023-3-19 11:09

把老师的稍微改了一下

cjc209 · 发表于 2023-3-19 11:12

sxbjzjf110 发表于 2023-3-19 11:09
把老师的稍微改了一下

本身这样都可以我不知道他们怎么写的那么绕代码那么多干啥?

		自动登录	找回密码
密码			免费注册

用VBA按条件汇总数据

评分