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

Разбираться начал относительно недавно и пока тупой как воробушек
Код
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
 
Андрей Игнатьев, покажите файл-пример с исходными данными и рядом покажите желаемый результат.
а наугад
Код
Sub Macro1()
Dim Arr, rCell As Range
   For Each rCell In Selection
       Arr = Split(rCell)
       If UBound(Arr) > 0 Then
           If UBound(Arr) > 2 Then
               rCell = Arr(0) & " " & Arr(1)
           Else
               rCell = Arr(0) & " " & Arr(1)
           End If
       End If
   Next
End Sub

или так

Код
Sub Macro1()
Dim Arr, rCell As Range
   For Each rCell In Selection
       Arr = Split(rCell)
       If UBound(Arr) > 0 Then
           If UBound(Arr) > 2 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
Изменено: Mershik - 19.10.2020 12:41:28
Не бойтесь совершенства. Вам его не достичь.
 
Mershik,Вот пример
 
Mershik,Вроде первый вариант работает! Спасибо огромное!
 
Mershik, И еще один вопрос.
Возможно ли поставить пробелы в ФИО, встречаются строки где их нет Пример: ИвановИваниванович ---> Иванов Иван Иванович  
 
Вопрос не по теме
Страницы: 1
Наверх