Сцепить без повторов

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сцепить без повторов (Макросы/Sub)

AleX_Leon

Дата: Среда, 26.11.2014, 19:22 | Сообщение № 1

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

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

Сообщений: 21

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

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

Excel 2016

Доброго времени суток. Есть задача, нужно сцепить столбец "арт" со столбцами "Размеры", так чтобы размеры не повторялись и были в одной ячейки. Пробовал с помощью пользоват. функции отсюда - не получилось... ошибка "#ЗНАЧ!". Пример приложен.
Заранее спасибо

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

i love www.excelworld.ru

Ответить

RAN

Дата: Среда, 26.11.2014, 21:25 | Сообщение № 2

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

Пример чего? В xlsx макросы не живут.

Быть или не быть, вот в чем загвоздка!

Ответить

nilem

Дата: Четверг, 27.11.2014, 09:02 | Сообщение № 3

Группа: Авторы

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

Сообщений: 1613

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

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

Excel 2013, 2016

Привет, AleX_Leon

Вроде бы нет причин для "#ЗНАЧ!"
а вот пробелы в ячейках есть, поэтому добавим Trim
[vba]

Код

Function JoinNoDup(rng As Range, Optional sep As String = "; ") As String
Dim x, v, s As String
x = Intersect(rng, ActiveSheet.UsedRange).Value: s = sep
For Each v In x
v = Trim$(v)
If Len(v) Then If InStr(s, sep & v & sep) = 0 Then s = s & v & sep
Next
JoinNoDup = Mid(s, Len(sep) + 1, Len(s) - Len(sep) * 2)
End Function

[/vba]
Чтобы получить результат точно, как в примере, пишем на листе такую формулку

Код

=JoinNoDup(B2:I5;"")

почему-то вместо "No" получилось "Чо"