有点复杂的单元格组合

Ericcccccc

已经对数据做了排序，F列且E列相同时，将所有相同B列和E列进行组合放在G列
当F列不同时，就不用考虑其他情况单独组合就好了（如加粗部分），数据量比较多，希望能用VBA方法实现~

shiruiqiang

单号和客户做字典，重复的“-”连接

sdytsxd991122

w4275

1. Sub 按钮1_Click()
   
2. Dim d As New Dictionary
   
3. With Sheets("Sheet1")
   
4.     arr = .UsedRange
   
5.     For i = 2 To UBound(arr)
   
6.         s = arr(i, 5)
   
7.         If Not d.Exists(s) Then
   
8.             d(s) = d(s) & arr(i, 4) & "-" & arr(i, 1)
   
9.         Else
   
10.             d(s) = d(s) & "-" & arr(i, 1)
    
11.         End If
    
12.     Next
    
13.     For i = 2 To UBound(arr)
    
14.         s = arr(i, 5)
    
15.         If d.Exists(s) Then
    
16.             arr(i, 6) = d(s)
    
17.         End If
    
18.     Next
    
19.     .UsedRange = arr
    
20. End With
    
21. Set d = Nothing
    
22. End Sub
    

复制代码

gwjkkkkk

请参考附件。。。

沈默00

我也学习一下

huanghai22

是不是这个意思？

Ericcccccc

gwjkkkkk 发表于 2023-7-21 22:47
请参考附件。。。

先前没有考虑到B列会有重复，在生成G列组合时会出现A-100-100-102-n的情况，其中重复的只保留1个，如A-100-102-n能帮忙修改下吗

sdytsxd991122

满坛皆为吾师

楼主您好，虽然需求是VBA，上个公式不太恰当，当备查吧。