对数据进行拆分和汇总

哈喽哈哈1

      



由于本人是新手，上次已经问过这个问题，但是经过自己对各位老师的代码进行修改自用，发现并不能满足需求，这是完整事情，希望多多学习
      果然要多学啊

3190496160

B列的单元格由字和数字组成
究竟是B列还是其他哪一列呀？？B列目前都是文字呀

哈喽哈哈1

3190496160 发表于 2024-10-15 18:59
B列的单元格由字和数字组成
究竟是B列还是其他哪一列呀？？B列目前都是文字呀

写错啦，是D列的

zxsea_7426

忽略后面的数字是指
D列单元格内的数字？

Qs18

1. Sub qs()
   
2. Dim arr, i, dic
   
3. Set dic = CreateObject("scripting.dictionary")
   
4. arr = Sheet1.Range("a1").CurrentRegion.Value
   
5. ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
6. For i = 3 To UBound(arr)
   
7.     s = arr(i, 4)
   
8.     If Not dic.exists(s) Then
   
9.         m = m + 1
   
10.         dic(s) = m
    
11.         brr(m, 1) = m
    
12.         For j = 2 To UBound(arr, 2)
    
13.             brr(m, j) = arr(i, j)
    
14.         Next
    
15.         brr(m, 3) = "'" & arr(i, 3)
    
16.     Else
    
17.         r = dic(s)
    
18.         For c = 5 To 7
    
19.             brr(r, c) = brr(r, c) + arr(i, c)
    
20.         Next
    
21.         
    
22.     End If
    
23. 
    
24. Next
    
25. With Sheet2
    
26.     .Range("a3:i10000").ClearContents
    
27.     .Range("a3").Resize(m, UBound(arr, 2)) = brr
    
28. End With
    
29. Set dic = Nothing
    
30. End Sub
    

复制代码

Qs18

试试...........

Qs18

试试...........

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

哈喽哈哈1

Qs18 发表于 2024-10-15 19:25
试试...........

老师，我想要的是名称哪里的汇总后面不用带数字进行区分了。下面8楼的老师已经帮忙解决了，谢谢