求各位大神帮忙写个高级分类汇总的VBA，万分感谢！！

2728911088 · 发表于 2018-6-23 20:44

一把小刀闯天下发表于 2018-6-23 20:34
'自己测试一下，估计差不多

Option Explicit

您好，辛苦了，感谢，我测试下，谢谢！！！

jjmysjg · 发表于 2018-6-23 22:20

本帖最后由 jjmysjg 于 2018-6-23 22:40 编辑

留下记号。谢谢

2728911088 · 发表于 2018-6-23 22:52

jjmysjg 发表于 2018-6-23 22:20
留下记号。谢谢

任务类型表格的数据是根据齐套明细及各个带有【晶】字表格的数据匹配及查询得来的

jjmysjg · 发表于 2018-6-23 23:19

2728911088 发表于 2018-6-23 22:52
任务类型表格的数据是根据齐套明细及各个带有【晶】字表格的数据匹配及查询得来的

才看明白。谢谢

opiona · 发表于 2018-6-24 10:03

2728911088 发表于 2018-6-23 20:34
您好，辛苦了，测试了下，还需要改动改动，请您抽空再看看。您的结果是：
我想要的结果应该是：

QQ14885553.rar (144.63 KB, 下载次数: 9)

2728911088 · 发表于 2018-6-25 08:32

一把小刀闯天下发表于 2018-6-23 20:34
'自己测试一下，估计差不多

Option Explicit

老师好，这个备件重复的能不能只显示一个，因为有此指令好多个代码都匹配不到的，如果每个代码都显示一次备件字样，那单元格里面备件字样特别多，重复的结果能否只显示一次，不管是备件还是其它类型的都这样。麻烦再帮忙看看。

opiona · 发表于 2018-6-25 09:14

2728911088 发表于 2018-6-25 08:32
老师好，这个备件重复的能不能只显示一个，因为有此指令好多个代码都匹配不到的，如果每个代码都显示一次 ...

QQ14885553.rar (144.89 KB, 下载次数: 7)

Rem 组合类型
Str分隔符号 = "|"
For X = 1 To UBound(SQLARR, 1)
Str类型 = Str分隔符号
For ICOL = 3 To UBound(SQLARR, 2) '//没有合计时，ICOL=2
If IsNumeric(SQLARR(X, ICOL)) = True And Abs(SQLARR(X, ICOL)) > 0 Then
If InStr(Str类型, Str分隔符号 & SQLARR(0, ICOL) & Str分隔符号) = 0 Then
Str类型 = Str类型 & SQLARR(0, ICOL) & Str分隔符号
End If
End If
Next
SQLARR(X, 1) = Mid(Str类型, 2, Len(Str类型) - 2)
Next

复制代码

2728911088 · 发表于 2018-6-25 09:36

opiona 发表于 2018-6-25 09:14

老师好，您辛苦了，您这个我在宿舍电脑上可以运行，在公司电脑上运行提示这个。谢谢，

一把小刀闯天下 · 发表于 2018-6-25 11:38

2728911088 发表于 2018-6-25 08:32
老师好，这个备件重复的能不能只显示一个，因为有此指令好多个代码都匹配不到的，如果每个代码都显示一次 ...

可以啊，测试了2天才发现有问题

修改10楼代码

s = s & "备件" & "、": n(4) = n(4) + dic(1)(key & t(i)) 改成2行：(不然备件单指令“备件”类仅汇总一次)

--------------
if instr(s,"备件")=0 then s = s & "备件" & "、"
n(4) = n(4) + dic(1)(key & t(i))

opiona · 发表于 2018-6-25 12:43

2728911088 发表于 2018-6-25 09:36
老师好，您辛苦了，您这个我在宿舍电脑上可以运行，在公司电脑上运行提示这个。谢谢，

安装：Access 或者插件：AccessDatabaseEngine

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

[求助] 求各位大神帮忙写个高级分类汇总的VBA，万分感谢！！