Добрый день. Во вложении файл с макросом, который разделяет фамилия имя и отчество по отдельным ячейкам.Но есть удалить отчество например, выводит ошибку. Как дописать макрос, чтобы ошибки небыло а просто заполнялось 2 ячейки (без отчества, если его нет)? Спасибо.
Вот список возможных вариантов. И еще, можно ли сделать чтобы макрос смотрел не только на Cells (2,2)б а брал полностью столбец и разделял вправо все что есть в столбце? Спасибо.
Вообще, отлично. Спасибо большое. А можете разяснить, что значить данный код. Я хочу понять логику для будущего. Спасибо.
Код
Sub Dividing_names()
i = 1
Do
i = i + 1
If Range("B" & i) = "" Then Exit Do
myFIO = Split(Range("B" & i), " ")
Range("C" & i).Resize(, UBound(myFIO) + 1) = myFIO
Loop
End Sub
Sub Dividing_names()
i = 1 'счетчик
Do
i = i + 1
If Range("B" & i) = "" Then Exit Do ' если в столбце B пусто, то выходим из цикла
myFIO = Split(Range("B" & i), " ") ' с помощью оператора Split разделяем ФИО по пробелам и получаем массив myFIO
Range("C" & i).Resize(, UBound(myFIO) + 1) = myFIO ' Переносим массив myFIO в ячейки
Loop
End Sub