Есть строки с фио, и с ФИ там где есть отчество нужно его удалить.
В форуме нащел схожую тему и решение кода только по сокращению инициалов. Можно его как то поменять, чтобы оставлять только Фамилии и имена?
Разбираться начал относительно недавно и пока тупой как воробушек
В форуме нащел схожую тему и решение кода только по сокращению инициалов. Можно его как то поменять, чтобы оставлять только Фамилии и имена?
Разбираться начал относительно недавно и пока тупой как воробушек
Код |
---|
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 |