[已解决]如何用VBA，将相同产品名称的不同入库单号合并在一个单元格里，谢谢。

新一

如何用VBA，将相同产品名称的不同入库单号合并在一个单元格里，谢谢。如附件，表一为原始数据，在表二中为效果图。谢谢。

最佳答案

月排行榜 / 总排行榜

dsmch

2014-10-31 18:23

………………

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, d, i&, s&, n&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Sheet1.Range("a1").CurrentRegion
   
5. ReDim brr(1 To UBound(arr), 1 To 3)
   
6. For i = 1 To UBound(arr)
   
7.     If Not d.exists(arr(i, 2)) Then
   
8.         s = s + 1
   
9.         d(arr(i, 2)) = s
   
10.         brr(s, 1) = arr(i, 1)
    
11.         brr(s, 2) = arr(i, 2)
    
12.         brr(s, 3) = arr(i, 3)
    
13.     Else
    
14.         n = d(arr(i, 2))
    
15.         brr(n, 1) = brr(n, 1) & "/" & Right(arr(i, 1), 3)
    
16.         brr(n, 3) = brr(n, 3) + arr(i, 3)
    
17.     End If
    
18. Next
    
19. Sheet2.Range("a1").Resize(s, 3) = brr
    
20. End Sub

复制代码

dsmch

………………

新一

谢谢老师。