Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Объединить в ячейку без повторов
 
Здравствуйте!!
Подскажите как соединить в одну ячейку без повторов
M, L, XL, 2XL, 3XL, M, L, XL, 2XL, 3XL, M, L, XL, 2XL, 3XL
Нужно в одну ячейку M.L,LX,2XL,3XL

Спасибо
 
Вот именно так нужно? :)
Пишите UDF.
 
Подозреваю, что есть громоздкая формула, но это именно тот случай когда без UDF не обойтись.
С уважением,
Федор/Все_просто
 
Если ждёте код - я вот именно чтоб такой результат был код не напишу, нет данных почему именно так нужно.
Ставьте корректные задачи, с примером файла - работать в мусор нет времени.
Скорее всего конечно результат нужен другой - но не мне это решать.
 
Вот написал небольшой кодик:
Код
Function joiner(rng As Range)
    Dim arr$(), tmp$
    Dim elem, c As New Collection
    
    joiner = ""
    If rng.Cells.Count <> 1 Then Exit Function
    
    tmp$ = Application.WorksheetFunction.Trim(rng.Value)
    arr$ = Split(tmp$, ",")
    
    On Error Resume Next
    For Each elem In arr
        c.Add Trim$(elem), Trim$(elem)
        If Err <> 0 Then
            Err.Clear
        ElseIf joiner <> "" Then
            joiner = joiner & ", " & Trim$(elem)
        Else
            joiner = elem
        End If
    Next elem
    On Error GoTo 0
    Set c = Nothing
    
End Function
С уважением,
Федор/Все_просто
 
Вот конкретная задача
Извиняюсь что сразу не приложил
 
чем функция то неустраивает от Все_просто,
Лень двигатель прогресса, доказано!!!
 
Всем устраивает, спасибо огромное
Страницы: 1
Читают тему (гостей: 1)