数据汇总

xwccyyc

有一张销售表，里面有很多规格型号有前面7-8位是一样的，后面几位是不一样的，我现在要统计把所有的型号的总数，忽略后面几位字的一样！急，请大家伙帮帮忙，指点指点！谢谢


该贴已经同步到 xwccyyc的微博

1578278106

1. Sub tongji()
   
2.     Dim d, rs, ar, i
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     rs = Cells(Rows.Count, 4).End(3).Row
   
5.     ar = Range("d2:e" & rs)
   
6.     For i = 1 To UBound(ar)
   
7.         d(ar(i, 1)) = d(ar(i, 1)) + ar(i, 2)
   
8.     Next
   
9.     With Sheets("sheet1")
   
10.     .[a2].Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
    
11.     .[a1] = "规格型号": .[b1] = "库数量"
    
12.     End With
    
13. End Sub
    

复制代码

1578278106

1月销售.zip (31.75 KB, 下载次数: 51)

2013-3-5 17:24 上传

点击文件名下载附件

是不是这样？

xwccyyc

1578278106 发表于 2013-3-5 17:24
是不是这样？

看不明白！请指教，谢谢

1578278106

xwccyyc 发表于 2013-3-6 08:52
看不明白！请指教，谢谢

这是字典用法。把型号相同的汇总了。

1578278106

xwccyyc 发表于 2013-3-6 08:52
看不明白！请指教，谢谢

这是字典用法。把型号相同的汇总了。