Цикл по ячейке

[Olper]

Уважаемые Госода профи!
Вроде все просто, в не как получается создать цикл внутри ячейки с разными переменными, т.е. циклами, прикладываю пример, внутри которого есть пояснения и шаги выполнения. Помогите кто могет стать профи . Комментарии к макросам можно опустить.

[IgorGO]

проверяйте:

Sub sj()
  For i = 2 To 6
    Cells(i, 5) = Join(Split(Cells(i, 1), Chr(10)), "; ")
  Next
End Sub

[MCH]

А может нужно:

=ПОДСТАВИТЬ(A2;СИМВОЛ(10);"; ")

To IgorGO,
А не проще Join(Split(Cells(i, 1), Chr(10)), "; ") на Replace(Cells(i, 1), Chr(10), "; ") заменить

[IgorGO]

ой, нет...
там все мимо кассы... однообразия нет
В ячейке А4, например, символом 10 разбито на 2 строки, во второй строке после Валиева нет запятой, после Солдатова есть... и т.д.
и + (я с этим прокололся), там еще отчества надо поудалять, начиная с точки после имени.

[Казанский]

пробуйте UDF

[IgorGO]

вроде тут все на месте:

Sub sj()
  Dim r As Long, i As Long, ar() As String, s As String
  For r = 2 To 6
    s = Replace(Cells(r, 1), Chr(10), ",")
    s = Replace(s, ". ", ".,")
    s = Replace(s, ", ", ",")
    If Right(s, 1) = "," Then s = Left(s, Len(s) - 1)
    ar = Split(s, ",")
    For i = 0 To UBound(ar)
       ar(i) = Trim(ar(i))
       ar(i) = Left(ar(i), Len(ar(i)) - 3)
    Next
    Cells(r, 5) = Join(ar, "; ")
  Next
End Sub

[Olper]

Всем ребятам спасибо...Сиходня попробоваю обязательно отпишусь.

[Olper]

Хотя на первый прикид неплохо на 90% отработала пользовательская функция г.Казанского, но функция без кода , Но всеравно спасибо.

[Olper]

Извини Дорогой Казанский протупил ....утро раннее. Спасибо тебе.