Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Объединить текст по одинаковых артикулах
 
#1
04.11.2020 11:15:11
Есть модель кроссовок с размерами. Каждый размер позначен кодом. Нужно свести эти коды (оставить только уникальные) по каждой модели. Пример в столбце "Общий код"

Пример
Скрытый текст
Изменено: dixel - 04.11.2020 11:15:30
 
 
 
#2
04.11.2020 11:21:53
dixel, что должно получится в столбце общий свод?
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#3
04.11.2020 11:30:32
Вариант в PQ
 
 
 
#4
04.11.2020 11:37:01
Доброе время суток.
Ещё вариант на Power Query
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    group = Table.Group(Source, {"Артикул"}, {"Сведено",
        each Text.Combine(List.Transform(List.Sort(List.Distinct([код])), Text.From), "-")
    })
in
    group
 
 
 
#5
04.11.2020 12:16:29
DemonAMT, Андрей VG , спасибо за помощь. Получилось
 
 
 
#6
04.11.2020 12:25:50
dixel, VBA
Код
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
Не бойтесь совершенства. Вам его не достичь.
 
 
 
Страницы: 1
Наверх