有点复杂的单元格组合

满坛皆为吾师

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

gwjkkkkk

Ericcccccc 发表于 2023-7-26 13:43
先前没有考虑到B列会有重复，在生成G列组合时会出现A-100-100-102-n的情况，其中重复的只保留1个，如A-10 ...

这样？请参考附件...

准提部林

B列去重//准氏字典//
Sub TEST_A1()
Dim Arr, xD, T$, T1$, i&
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([b1], [f65536].End(3))
For i = 2 To UBound(Arr)
    T = Arr(i, 5): T1 = Arr(i, 1)
    If xD(T & "\" & T1) = 0 Then xD(T) = xD(T) & "-" & T1
    xD(T & "\" & T1) = 1
Next i
For i = 2 To UBound(Arr)
    Arr(i - 1, 1) = Arr(i, 4) & xD(Arr(i, 5) & "")
Next i
[g2].Resize(UBound(Arr) - 1) = Arr
End Sub