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