Скопировать только отчество из другого листа в другой где в одной ячейке находится ФИО - VBA

Формулировка задачи:

Имеется цикл, который разбивает ФИО кот. находится в одной ячейке, нужно чтобы в другой лист копировались только отчество

                    Листинг программы
                
For i = 4 To 65536  
    Sheets(2).Cells(i - 1, 1).Resize(, 3) = Split(Application.Trim(Sheets(1).Cells(i, 2)), , 3)
Next i

Решение задачи: «Скопировать только отчество из другого листа в другой где в одной ячейке находится ФИО»

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы