Страницы: 1
RSS
группировка данных с сохранением значений в одной ячейке
 
Добрый день!

Как максимально простым способом можно сгруппировать строки по уникальному числу, чтобы значения сохранились в одной ячейке?
 
мне проще всего так:
Код
Sub JoinEmail()
  Dim a, k, d, r&
  Set d = CreateObject("Scripting.Dictionary"): a = [a1].CurrentRegion
  For r = 1 To UBound(a)
    If d.exists(a(r, 1)) Then d(a(r, 1)) = d(a(r, 1)) & "," & a(r, 2) _
    Else d(a(r, 1)) = a(r, 2)
  Next
  [e:d].ClearContents: k = d.keys: ReDim a(1 To d.Count, 1 To 2)
  For r = 0 To UBound(k): a(r + 1, 1) = k(r): a(r + 1, 2) = d(k(r)): Next
  [e1].Resize(UBound(a), UBound(a, 2)) = a
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
UDF СцепитьЕсли на форуме была поищите.
 
Спасибо!  
 
Цитата
V: UDF СцепитьЕсли
оригинал тут
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
Если офис 2019 и выше
в "номер"
Код
=УНИК(A2:A6)

в "почта" и протянуть вниз
Код
=ОБЪЕДИНИТЬ("; ";1;ФИЛЬТР(B2:B6;A2:A6=E2))
Страницы: 1
Наверх