[已解决]用列表汇总，请高手指点

hytsky

我想在列表中实现把长和宽以及厚度一样的数量都能够累加在一起并显示出来，不知道这个用VBA要怎么实现，并通过导出功能把这些数据导入到sheet2中，请高手帮忙指导一下，谢谢

最佳答案

月排行榜 / 总排行榜

lisachen

2011-12-16 19:35

练习.rar (16.91 KB, 下载次数: 96)

2011-12-16 19:35 上传

点击文件名下载附件

1. 
   

复制代码

1. Sub dd()
   
2. Dim qq(1 To 10000, 1 To 4)
   
3. Dim hh
   
4. Dim arr, x As Integer, sr As String, k As Integer
   
5. Dim d As Object
   
6. Set d = CreateObject("scripting.dictionary")
   
7. arr = Range("b3:e" & Range("b65536").End(xlUp).Row)
   
8. For x = 1 To UBound(arr)
   
9. sr = arr(x, 1) & "-" & arr(x, 2) & "-" & arr(x, 3)
   
10. If d.Exists(sr) Then
    
11. hh = d(sr)
    
12. qq(hh, 4) = qq(hh, 4) + arr(x, 4)
    
13. Else
    
14. k = k + 1
    
15. d(sr) = k
    
16. qq(k, 1) = arr(x, 1)
    
17. qq(k, 2) = arr(x, 2)
    
18. qq(k, 3) = arr(x, 3)
    
19. qq(k, 4) = arr(x, 4)
    
20. End If
    
21. Next x
    
22. Sheets("sheet2").Range("a2").Resize(k, 4) = qq
    
23. End Sub
    

复制代码

跳转到最佳答案楼层

lisachen

练习.rar (16.91 KB, 下载次数: 96)

2011-12-16 19:35 上传

点击文件名下载附件

1. 
   

复制代码

1. Sub dd()
   
2. Dim qq(1 To 10000, 1 To 4)
   
3. Dim hh
   
4. Dim arr, x As Integer, sr As String, k As Integer
   
5. Dim d As Object
   
6. Set d = CreateObject("scripting.dictionary")
   
7. arr = Range("b3:e" & Range("b65536").End(xlUp).Row)
   
8. For x = 1 To UBound(arr)
   
9. sr = arr(x, 1) & "-" & arr(x, 2) & "-" & arr(x, 3)
   
10. If d.Exists(sr) Then
    
11. hh = d(sr)
    
12. qq(hh, 4) = qq(hh, 4) + arr(x, 4)
    
13. Else
    
14. k = k + 1
    
15. d(sr) = k
    
16. qq(k, 1) = arr(x, 1)
    
17. qq(k, 2) = arr(x, 2)
    
18. qq(k, 3) = arr(x, 3)
    
19. qq(k, 4) = arr(x, 4)
    
20. End If
    
21. Next x
    
22. Sheets("sheet2").Range("a2").Resize(k, 4) = qq
    
23. End Sub
    

复制代码

hytsky

lisachen 发表于 2011-12-16 19:35

咦，随缘兄，你能用那个列表窗体显示吗？因为我还有几个功能要加进去，所以必须得用窗体来显示才行呵，谢谢了哈

LQ200601

随缘兄，你能用那个列表窗体显示吗？

huangbo1016

占个座，学习一下

hytsky

怎么就没人帮忙呢，我很感谢随缘兄的指导，但是这个不是我想要用的方法啊，哪位高手帮个忙撒

吕?布

1. 汇总
2. 汇总资料读入ListView,可以用ListView的ListItems属性用,多列时还要用到ListItem对象的SubItems属性
3. 导出来第二步导入是一样的