Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Удалить отчество макросом, Есть строки с фио, и с ФИ там где есть отчество нужно его удалить
 
Mershik, И еще один вопрос.
Возможно ли поставить пробелы в ФИО, встречаются строки где их нет Пример: ИвановИваниванович ---> Иванов Иван Иванович  
Удалить отчество макросом, Есть строки с фио, и с ФИ там где есть отчество нужно его удалить
 
Mershik,Вроде первый вариант работает! Спасибо огромное!
Удалить отчество макросом, Есть строки с фио, и с ФИ там где есть отчество нужно его удалить
 
Mershik,Вот пример
Удалить отчество макросом, Есть строки с фио, и с ФИ там где есть отчество нужно его удалить
 
Есть строки с фио, и с ФИ там где есть отчество нужно его удалить.
В форуме нащел схожую тему и решение кода только по сокращению инициалов. Можно его как то поменять, чтобы оставлять только Фамилии и имена?

Разбираться начал относительно недавно и пока тупой как воробушек
Код
Sub Macro1()
Dim Arr, rCell As Range
    For Each rCell In Selection
        Arr = Split(rCell)
        If UBound(Arr) > 0 Then
            If UBound(Arr) > 1 Then
                rCell = Arr(0) & " " & Left(Arr(1), 1) & "." & Left(Arr(2), 1) & "."
            Else
                rCell = Arr(0) & " " & Left(Arr(1), 1) & "."
            End If
        End If
    Next
End Sub
ФИО в инициалы макросом, ФИО (отчества может не быть) преобразовать в инициалы макросом
 
Юрий М,Добрый день!
Знаю, что прошло много времени с последнего поста, можете помочь по данной теме, мне нужно сделать все тоже самое только удалить отчество, соответственно есть и строки без отчества
Страницы: 1
Наверх