求助检查一下问题

5550381

H列的信息没办法合并成功。能运行就是数据整合到Sheet2中没有反应。是什么冲突还是哪里出错了

shiruiqiang

字典和需要相加的错误

shiruiqiang

ykcbf1100

楼主粗心，犯了常识性错误，我还是新写一个吧，供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.5.2
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     With Sheets("汇总")
   
4.         r = .Cells(Rows.Count, 3).End(3).Row
   
5.         arr = .[a1].Resize(r, 8)
   
6.     End With
   
7.     ReDim brr(1 To UBound(arr), 1 To 6)
   
8.     For i = 2 To UBound(arr)
   
9.         s = arr(i, 3) & "|" & arr(i, 5) & "|" & arr(i, 6) & "|" & arr(i, 7)
   
10.         If Not d.exists(s) Then
    
11.             m = m + 1
    
12.             d(s) = m
    
13.             For j = 3 To UBound(arr, 2)
    
14.                 brr(m, j - 2) = arr(i, j)
    
15.             Next
    
16.         Else
    
17.             r = d(s)
    
18.             brr(r, 2) = brr(r, 2) + arr(i, 4)
    
19.         End If
    
20.     Next
    
21.     With Sheets("分类汇总")
    
22.         .UsedRange.Offset(2).clear
    
23.         .[a2].Resize(1, 6).Interior.Color = 49407
    
24.         With .[a3].Resize(m, 6)
    
25.             .Value = brr
    
26.             .Borders.LineStyle = 1
    
27.             .HorizontalAlignment = xlCenter  '//列居中
    
28.             .VerticalAlignment = xlCenter
    
29.         End With
    
30.     End With
    
31.     Set d = Nothing
    
32.     MsgBox "OK！"
    
33. End Sub
    

复制代码

5550381

ykcbf1100 发表于 2024-5-2 19:13
楼主粗心，犯了常识性错误，我还是新写一个吧，供参考。。。

谢谢。太感谢了