работа с выделенным диапазоном

[DAN1L]

Здравствуйте, мне необходимо из введенных в одном столбце но в разных строках ФИО (т.е. в каждой ячейке введено целиком ФИО через пробел) вынести только фамилии в другой столбец, но работая только с выделенными ячейками.

Вот мой код, но он работает со всеми строками в столбце "А", как сделать что бы работал только с выделенными?

Sub prog4()
Dim string1 As String, i As Integer
i = 2

Do
string1 = Cells(i, 1)
string2 = " "
m = InStr(1, string1, string2)
Sheets("Лист7").Cells(i, 6) = Mid(Sheets("Лист7").Cells(i, 1), 1, m)
  
i = i + 1

Loop
End Sub

[Serge_Bliznykov]

не совсем понятно, что Вы имеете в виду под "работал только с выделенными" ..
Ну, допустим, Выделили Вы в столбце D две ячейки, вызвали макрос Prog4() на исполнение, что должно произойти?

[doober]

Не проверял,но должно работать

Sub prog4()
    Dim string1 As String,string2 As String, cel As Range
    For Each cel In Selection
        string1 = cel.Text
        string2 = " "
        m = InStr(1, string1, string2)
        cel.Offset(0, 5) = Mid(string1, 1, m)
    Next
End Sub

[DAN1L]

Сообщение от Serge_Bliznykov

не совсем понятно, что Вы имеете в виду под "работал только с выделенными" ..
Ну, допустим, Выделили Вы в столбце D две ячейки, вызвали макрос Prog4() на исполнение, что должно произойти?

в указанных ячейках должны быть написаны только фамилии из этого диапазона

[DAN1L]

Большое спасибо! Все работает!

[SAS888]

Можно проще:

Sub prog4()
    For Each cel In Selection: cel.Offset(, 5) = Split(cel)(0): Next
End Sub