字典的请教

ME.李

shiruiqiang 发表于 2024-8-29 19:19

还是论坛朋友多  谢谢  这又是一种解法

ME.李

zxsea_7426 发表于 2024-8-29 19:16

谢谢朋友。那如果按照朋友的这种解法 那能不能定义BRR 为三列 输出了 ，就直接数组转出了

zxsea_7426

ME.李 发表于 2024-8-29 19:24
谢谢朋友。那如果按照朋友的这种解法 那能不能定义BRR 为三列 输出了 ，就直接数组转出了

字典值计算结果改成数组第三列结果就行

ME.李

shiruiqiang 发表于 2024-8-29 19:19

请教下 为什么不能用K=K+1 计数了 要用  字典的行

zxsea_7426

zxsea_7426

ME.李 发表于 2024-8-29 19:33
请教下 为什么不能用K=K+1 计数了 要用  字典的行

数组数据所在行,字典用于记录数组关键key所在行号,结果在数组所在行进行数据叠加

ME.李

zxsea_7426 发表于 2024-8-29 19:34

好的感谢

ME.李

zxsea_7426 发表于 2024-8-29 19:35
数组数据所在行,字典用于记录数组关键key所在行号,结果在数组所在行进行数据叠加

字典平时用的少  还是感谢大哥 ，不是很明白大哥说的这句话 但是大概意思懂了

ykcbf1100

改一下吧，原代码问题多多。

ykcbf1100

参与一下。。。

1. Sub 需求汇总()
   
2.     Application.ScreenUpdating = False
   
3.     Dim i As Integer, arr, brr, str As String
   
4.     arr = Sheets("结果").Range("a1:q" & Cells(Rows.Count, 1).End(3).Row)
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     p = ThisWorkbook.Path & ""
   
7.     ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
8.     k = 1
   
9.     brr(k, 1) = arr(1, 1)
   
10.     brr(k, 2) = arr(1, 2)
    
11.     brr(k, 3) = arr(1, 3)
    
12.     For i = 2 To UBound(arr)
    
13.         str = arr(i, 1) & arr(i, 2)
    
14.         If Not d.exists(str) Then
    
15.             k = k + 1
    
16.             d(str) = k
    
17.             brr(k, 1) = arr(i, 1)
    
18.             brr(k, 2) = arr(i, 2)
    
19.             brr(k, 3) = arr(i, 9)
    
20.         Else
    
21.             r = d(str)
    
22.             brr(r, 3) = brr(r, 3) + arr(i, 9)
    
23.         End If
    
24.     Next
    
25.     Set wb = Workbooks.Add
    
26.     wb.Sheets(1).Range("a1").Resize(k, 3) = brr
    
27.     wb.SaveAs p & " 另存文件"
    
28.     wb.Close
    
29.     Application.ScreenUpdating = True
    
30.     MsgBox "OK！"
    
31. End Sub
    
32. 
    

复制代码