Скопировать только отчество из другого листа в другой где в одной ячейке находится ФИО - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д