Есть модель кроссовок с размерами. Каждый размер позначен кодом. Нужно свести эти коды (оставить только уникальные) по каждой модели. Пример в столбце "Общий код"
let
Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
group = Table.Group(Source, {"Артикул"}, {"Сведено",
each Text.Combine(List.Transform(List.Sort(List.Distinct([код])), Text.From), "-")
})
in
group
Sub dsd()
Dim arr, i As Long, lr As Long, arr2
lr = Cells(Rows.Count, 1).End(xlUp).Row
arr = Range("A2:C" & lr)
ReDim arr2(1 To lr - 1, 0)
For i = LBound(arr) To UBound(arr)
On Error Resume Next
If arr(i, 1) = arr(i + 1, 1) Then
If InStr(x, arr(i, 3)) < 1 Then
If IsEmpty(x) Then
x = arr(i, 3)
Else
x = x & "-" & arr(i, 3)
End If
End If
Else
arr2(i, 0) = x
x = Empty
End If
If i = UBound(arr) Then arr2(i, 0) = x
Next i
Range("D2:D" & UBound(arr2) + 1) = arr2
End Sub