多工作表筛选汇总

xiawei1975

工作簿中有多个工作表，想筛选出不重复量化号人员，并汇总至汇总表中，怎么实现啊，谢谢大神！

不知道为什么

多表汇总，论坛代码很多的啊

不知道为什么

719404338

1. Sub t()
   
2. Dim i, d
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. For j = 4 To 8
   
5.   d.RemoveAll
   
6.   For Each sh In Sheets
   
7.    If sh.Name <> "汇总" Then
   
8.      arr = sh.Range("a2:l" & sh.[a65536].End(3).Row)
   
9.         For i = 1 To UBound(arr)
   
10.          d(arr(i, 1) & "," & arr(i, 2) & "," & arr(i, 3)) = d(arr(i, 1) & "," & arr(i, 2) & "," & arr(i, 3)) + arr(i, j)
    
11.          Next i
    
12.     End If
    
13.   Next
    
14.      For i = 0 To d.Count - 1
    
15.         If j = 4 Then
    
16.         Sheet1.Range("a" & i + 2) = Split(d.keys()(i), ",")(0)
    
17.         Sheet1.Range("b" & i + 2) = Split(d.keys()(i), ",")(1)
    
18.         Sheet1.Range("c" & i + 2) = Split(d.keys()(i), ",")(2)
    
19.         Sheet1.Cells(i + 2, j) = d.items()(i)
    
20.         Else
    
21.         Sheet1.Cells(i + 2, j) = d.items()(i)
    
22.         End If
    
23.      Next i
    
24. Next j
    
25. End Sub

复制代码

xiawei1975

719404338 发表于 2019-3-16 18:34

谢谢，可以哎，还有，量化号是数字格式，如何改成文本格式啊？

xiawei1975

解决了，谢谢

king780723

719404338 发表于 2019-3-16 18:34

汇总项增加一列，如何修改啊