Скопировать только отчество из другого листа в другой где в одной ячейке находится ФИО - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 3.833 из 5
Похожие ответы