Конкатенация. Сводная таблица

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

Конкатенация. Сводная таблица (Формулы/Formulas)

Kuznetsov_R

Дата: Вторник, 27.10.2015, 10:17 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 26

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

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

Excel 2007

Здравствуйте, форумчане!
Помогите, пожалуйста, решить следующую задачу.
На Листе 1 имеется исходная таблица из двух столбцов. На Листе 2 - сводная. В столбце "А" сводной таблицы должны отображаться уникальные имена из столбца "А" исходной таблицы (тут всё просто). В столбце "В" сводной таблицы должны отображаться сконкатенированные значения из столбца "В" исходной таблицы (с этим и прошу помочь).
Файл прикладываю.
Спасибо!

К сообщению приложен файл: 8336428.xlsx (13.7 Kb)

Ответить

SLAVICK

Дата: Вторник, 27.10.2015, 10:31 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

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

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

2019

Вот UDF отсюда:
[vba]

Код

Public Function ertert(SearchValue, rng As Range, k As Long, Optional sep As String = "; ") As String 'напряженка с названиями :)
Dim x, v, s As String, i As Long
x = Intersect(rng, rng.Worksheet.UsedRange).Value: s = sep
For i = 1 To UBound(x)
If x(i, 1) = SearchValue Then
If Len(x(i, k)) Then
If InStr(s, sep & x(i, k) & sep) = 0 Then
s = s & x(i, k) & sep
End If
End If
End If
Next i
If Len(s) > Len(sep) Then ertert = Mid(s, Len(sep) + 1, Len(s) - Len(sep) * 2)
End Function

[/vba]
Можете еще посмотреть здесь
Таких тем на форуме очень много - возникают постоянно