求VBA代码---大神教我

闵晋龙

例1

例1.rar (181.75 KB, 下载次数: 12)

2014-1-24 22:31 上传

点击文件名下载附件

根据“型号”、“规格”两列的值筛选汇总，重复值：库存相加，库位以文本合并，并以“，”分开。不重复值保持不变！
求VBA代码，并注释！谢谢！
最近刚学VBA，找个实例请教一下老师！

zhaogang1960

字典汇总请参考：

1. Sub Macro1()
   
2.     Dim arr, d As Object, i&, j&, m&, s$
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = [a1].CurrentRegion
   
5.     m = 1
   
6.     For i = 2 To UBound(arr)
   
7.         s = arr(i, 1) & vbTab & arr(i, 2)
   
8.         r = d(s)
   
9.         If r = "" Then
   
10.             m = m + 1
    
11.             d(s) = m
    
12.             For j = 1 To 4
    
13.                 arr(m, j) = arr(i, j)
    
14.             Next
    
15.         Else
    
16.             arr(r, 3) = arr(r, 3) + arr(i, 3)
    
17.             arr(r, 4) = arr(r, 4) & "," & arr(i, 4)
    
18.         End If
    
19.     Next
    
20.     With Sheets("Sheet2")
    
21.         .Cells.ClearContents
    
22.         .[a1].Resize(m, 4) = arr
    
23.         .Activate
    
24.     End With
    
25. End Sub
    

复制代码

zhaogang1960

请看附件
例1.rar (190.4 KB, 下载次数: 36)

2014-1-24 22:51 上传

点击文件名下载附件

excelvlookup

一个字典这样汇总多条数据

gaojianman

其实,只要IF函数就能完成，不需要VBA,先排序，然后添加一个辅助列，按附件写入公式填充，全部转数值，删除FALSE的列就好了。

yjh_27

参见附件。结果在表2