есть огромное желание сделать функцию сцепления нескольких ячеек в одну, да еще и без повторов, да еще и чтобы пустые пропускались...
Есть два кусочка кода
Код
Public Function СцепитьНеПустые(target As Range)
For Each cl In target.Cells
If cl.Value <> "" Then СцепитьНеПустые= СцепитьНеПустые & cl.Value & ", "
Next
End Function
первый сцепляет непустые ячейки, например если в 3х ячейках будут фамилии, то в ячейке выведутся все 3 фамилии через запятую второй кусок кода сцепляет уникальные значения
Код
Function СцепитьУник(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
СцепитьУник= Mid(s, Len(sep) + 1, Len(s) - Len(sep) * 2)
End Function
Не пойму как прописать во втором коде условие чтобы пропускать пустые ячейки или ячейки содержащие слово "тест" Второй код используется для сцепления должностей, без повторов
сам файл к сожалению прикрепить не могу, слишком большой.