求助啊，汇总数据时遇到麻烦，求帮忙

杨宝明

1. Sub 按钮1_Click()
   
2. Dim m, n, r, i
   
3. Dim ar, br(1 To 1000, 1 To 50)
   
4. Dim d1 As Object, d2 As Object
   
5. Set d1 = CreateObject("scripting.dictionary")
   
6. Set d2 = CreateObject("scripting.dictionary")
   
7. For Each sht In Sheets
   
8.     If sht.Name <> "汇总" And sht.Name <> "汇总表" Then
   
9.         m = m + 1
   
10.         d2(sht.Name) = m
    
11.         With sht
    
12.             r = .Cells(Rows.Count, 1).End(xlUp).Row
    
13.             ar = .Range("b2:c" & r)
    
14.         End With
    
15.         For i = 1 To UBound(ar)
    
16.             If ar(i, 1) <> "" Then
    
17.                 If Not d1.exists(ar(i, 1)) Then
    
18.                     n = n + 1
    
19.                     d1(ar(i, 1)) = n
    
20.                     br(m, n) = ar(i, 2)
    
21.                 Else
    
22.                     br(m, d1(ar(i, 1))) = ar(i, 2)
    
23.                 End If
    
24.             End If
    
25.         Next i
    
26.     End If
    
27. Next
    
28. Sheets("汇总").[a2].Resize(m, 1) = Application.Transpose(d2.keys())
    
29. Sheets("汇总").[b1].Resize(1, n) = d1.keys()
    
30. Sheets("汇总").[b2].Resize(m, n) = br
    
31. End Sub

复制代码

不知道能不能兼容你实际的工作。

杨宝明

蓝桥老师的比较强大，简洁。

rr838702662

问题已经解决，谢谢大家！