Необходимо собрать все значения через запятую повторяющегося

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Необходимо собрать все значения через запятую повторяющегося (Функции/Function)

Den_Den

Дата: Воскресенье, 23.08.2015, 00:43 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Доброго времени суток.
Помогите решить задачу. Как-то попадалось решение через пользовательскую функцию, но сейчас не могу найти.
Столбцы в оригинальной таблице расположены именно так. Артикул может повторятся столько раз, сколько у него адресов.
Необходимо собрать все значения адреса через запятую для каждого артикула , и то же самое с количеством.
Спасибо.

К сообщению приложен файл: 123456.xls (29.0 Kb)

Ответить

KSV

Дата: Воскресенье, 23.08.2015, 04:19 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 770

Репутация: 255 ±

Замечаний: 0% ±

Excel 2013

Доброе утро!
Можно так: [vba]

Код

Function ВПР2(ByVal Art, Rng As Range, ByVal ColNum As Long) As String
      Dim i&, v()
      If TypeName(Art) = "Range" Then Art = Art.Value
      v = Rng.Value
      For i = 1 To UBound(v)
          If v(i, 1) = Art Then ВПР2 = ВПР2 & ", " & v(i, ColNum)
      Next
      If Len(ВПР2) Then ВПР2 = Mid$(ВПР2, 3)
End Function

[/vba]

UPD
Чтоб убить лишние пробелы в адресах, измените строчку: [vba]

Код

If v(i, 1) = Art Then ВПР2 = ВПР2 & ", " & Trim$(v(i, ColNum))

[/vba]