[已解决]满足多条件汇总

lidayu · 发表于 2016-1-20 11:40

本帖最后由 lidayu 于 2016-1-21 14:09 编辑

垦请老师赐教如何实现多条件汇总，呈上附件

满足多条件汇总.rar (75.45 KB, 下载次数: 23)

lidayu · 发表于 2016-1-20 13:13

在坛子找了很我案例没有相似的，这确实是有点难度的汇总

grf1973 · 发表于 2016-1-20 14:28

Sub 小单位汇总()
Set d = CreateObject("scripting.dictionary")
arr = Sheets("数据源").[a1].CurrentRegion
For i = 2 To UBound(arr)
x = arr(i, 3) & arr(i, 4) & arr(i, 5) & arr(i, 2) & "软肩章" & arr(i, 6) '大单位+小单位+级别+性别+软肩章号
y = arr(i, 3) & arr(i, 4) & arr(i, 5) & arr(i, 2) & "套肩章" & arr(i, 7) '大单位+小单位+级别+性别+套肩章号
d(x) = d(x) + 1
d(y) = d(y) + 1
Next
arr = [a2:g11]
For i = 3 To UBound(arr)
If arr(i, 1) = "" Then arr(i, 1) = arr(i - 1, 1)
For j = 3 To 7
If arr(1, j) = "" Then arr(1, j) = arr(1, j - 1)
x = [a2] & [a3] & arr(i, 1) & arr(i, 2) & arr(1, j) & arr(2, j) '大单位+小单位+级别+性别+软（套）肩章号
arr(i, j) = d(x) * 2
Next
Next
[a2:g11] = arr
End Sub

复制代码

lidayu · 发表于 2016-1-20 15:40

grf1973 发表于 2016-1-20 14:28

grf1973 老师您好，又再一次得到您的帮助，还有下面图片中灰色区域也用代码实现，请您再修改下，谢谢！
QQ截图20160120125445.jpg

另外：数据源A列的姓名（是计数）如果改为数量（2、8、求和）代码要怎么修改？

grf1973 · 发表于 2016-1-20 16:28

灰色区域VBA实现已完成。
另外：“数据源A列的姓名（是计数）如果改为数量（2、8、求和）代码要怎么修改？”，不知何意？

lidayu · 发表于 2016-1-20 16:40

本帖最后由 lidayu 于 2016-1-20 17:01 编辑

grf1973 发表于 2016-1-20 16:28
灰色区域VBA实现已完成。
另外：“数据源A列的姓名（是计数）如果改为数量（2、8、求和）代码要怎么修改？ ...

汇总：C3：G11=“数据源”A2：A（计数*2）
改为
汇总：C3：G11 =“数据源”A2：A（求和）

lidayu · 发表于 2016-1-20 17:00

grf1973 发表于 2016-1-20 16:28
灰色区域VBA实现已完成。
另外：“数据源A列的姓名（是计数）如果改为数量（2、8、求和）代码要怎么修改？ ...

grf1973 老师您好，还有H12及I12没有汇总，请您再修改下，谢谢！

grf1973 · 发表于 2016-1-20 17:27

另外姓名改数量的你要上附件才行。

lidayu · 发表于 2016-1-20 21:42

grf1973 发表于 2016-1-20 16:28
灰色区域VBA实现已完成。
另外：“数据源A列的姓名（是计数）如果改为数量（2、8、求和）代码要怎么修改？ ...

grf1973 老师您好，还有两个问题，请您再修改下，谢谢！
呈上附件请您查阅

满足多条件汇总0120.rar (75.26 KB, 下载次数: 10)

grf1973 · 发表于 2016-1-21 09:20

请看附件。

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