Доброго времени суток. Есть задача, нужно сцепить столбец "арт" со столбцами "Размеры", так чтобы размеры не повторялись и были в одной ячейки. Пробовал с помощью пользоват. функции отсюда - не получилось... ошибка "#ЗНАЧ!". Пример приложен. Заранее спасибо
Доброго времени суток. Есть задача, нужно сцепить столбец "арт" со столбцами "Размеры", так чтобы размеры не повторялись и были в одной ячейки. Пробовал с помощью пользоват. функции отсюда - не получилось... ошибка "#ЗНАЧ!". Пример приложен. Заранее спасибо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" получилось "Чо" еще раз: =JoinNoDup(B2:I5;"")
Привет, 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" получилось "Чо" еще раз: =JoinNoDup(B2:I5;"")nilem
Яндекс.Деньги 4100159601573
Сообщение отредактировал nilem - Четверг, 27.11.2014, 09:05