想请教一下 如何把下面的表格里面的材料名称、材料型号、数量一一对应汇总显示出来

feilanga

swzsq 发表于 2022-2-22 12:39
不好意思   想请你再帮个忙  就是你能把你代码的意思能备注一下发到论坛上面来吗    我想看明白你的代码 ...

翻译了一下，共同学习

1. Sub test()
   
2. Dim d, arr(), st, brr() '定义变量定义数组(可不定义)
   
3. Set d = CreateObject("Scripting.Dictionary") '声明后期引用字典
   
4. arr = Sheet1.Range("a1").CurrentRegion 'sheet1表以单元格A1为顶点的连续区域装入数组arr
   
5. Sheet2.Range("a2:d65536").ClearContents '结果区清空
   
6. For i = 3 To UBound(arr) '去除标题行,从第3行开始循环到最大行
   
7.     If arr(i, 1) <> "" And arr(i, 2) <> "" Then '如果材料名称和规格型号不为空
   
8.         st = (arr(i, 1) & "|" & arr(i, 2)) '多关键字用符号|连接   材料名称 规格型号
   
9.         If Not d.exists(st) Then '如果字典中没有这个关键字(也就是关键字第一次存入字典的时候)
   
10.             k = k + 1 '计数器,存入1次记录1次,这里用作记录关键字在结果数组中的行号
    
11.             d(st) = k '关键字存入字典的keys 行号K存入字典的items(字典有2个存储位置,分别是关键字keys,和对应的值items)
    
12.             ReDim Preserve brr(1 To 4, 1 To k) '定义结果数组brr,大小为(4列,K行)
    
13.             brr(1, k) = arr(i, 1) '材料名称
    
14.             brr(2, k) = arr(i, 2) '规格型号
    
15.             brr(3, k) = arr(i, 3) '单位
    
16.             brr(4, k) = arr(i, 4) '数量
    
17.         Else '第二次遇到相同关键字的时候   字典特性是遇到相同关键字会合并,所以字典用来去重.
    
18.             brr(4, d(st)) = brr(4, d(st)) + arr(i, 4) '遇到相同关键字,关键字合并,items中的值累加
    
19.             '数量=字典上次存在items里的数量+本次数量
    
20.         End If
    
21.     End If
    
22. Next
    
23. Sheet2.Range("a2").Resize(k, 4) = Application.Transpose(brr)
    
24. '结果数组brr通过转置函数输出到以汇总表A2为顶点扩展K行 4列的单元格区域 原来的brr(4列,k行)转置函数转为brr(k行,4列)
    
25. MsgBox "结果已输出在sheet1中"  '弹窗提示
    
26. End Sub

复制代码

feilanga

swzsq 发表于 2022-2-22 11:41
请问用数据透视表可以实现吗

当然可以，透视表最擅长的就是这个了。你的表格设计种类最好不要向列发展，不利于统计，向下按行录入，或者多个工作表，后期数据处理，不管是透视，公式，VBA都方便

swzsq

feilanga 发表于 2022-2-22 17:28
翻译了一下，共同学习

非常感谢你这个热心的朋友的回复  谢谢

gmafhnpl

D2=SUMIFS(sheet0!D:D,sheet0!A:A,Sheet1!A2,sheet0!B:B,Sheet1!B2)下拉

swzsq

feilanga 发表于 2022-2-22 17:32
当然可以，透视表最擅长的就是这个了。你的表格设计种类最好不要向列发展，不利于统计，向下按行录入，或 ...

多谢你的建议  我会好好学习透视表的