профлист для заборов. / деревянный дом строительство . / столешницы из искусственного камня информация форум москва и область .

И вот он окончательный вариант:

Dim a As String
dim k As Byte

Sub Макрос1()
a = ActiveCell.Value
For i = 1 To 3
ActiveCell.Value = fio():
ActiveCell.Cells(,2).Activate
Next i
End Sub

Function fio()
1: k = k + 1:
fio = fio + Mid(a, k, 1)
If Mid(a, k, 1) <> " " And k < Len(a) Then GoTo 1
End Function

 

кровля москва . При этом, мы немного изменили работу макроса. Если раньше он записывал результаты в столбец, опускаясь вниз, то сейчас будет это делать, продвигаясь по строке вправо. И хотя макрос получился компактным его можно еще доводить до совершенства, поскольку оно (совершенство) не имеет предела...

продолжение :