Скопировать только отчество из другого листа в другой где в одной ячейке находится ФИО - VBA
Формулировка задачи:
Имеется цикл, который разбивает ФИО кот. находится в одной ячейке, нужно чтобы в другой лист копировались только отчество
Решение задачи: «Скопировать только отчество из другого листа в другой где в одной ячейке находится ФИО»
textual
Листинг программы
Sub tt()
Dim arr(), i As Long
With Worksheets("Аналитика по ИБ(1)")
arr = .Range("C4:C" & .Cells(Rows.Count, "C").End(xlUp).Row - 1).Value
End With
For i = 1 To UBound(arr)
If arr(i, 1) <> "" Then arr(i, 1) = Split(arr(i, 1))(2)
Next
Worksheets("Лист1").Range("A1").Resize(UBound(arr), 1) = arr
End Sub