Копирование со всех листов определеную строку

[chib_sv]

Добрый день, прошу помощи в реализации задачи. Необходимо со всех листов (может быть любое кол-во листов и с разными названиями) в книги скопировать только шестую строчку в лист Сводный, так чтобы каждая шестая строка со всех листов располагались другом за другом на Сводном. Спасибо!

[AlexM12]

Вставлять на лист Сводный надо с 6-ой строки или начиная с 3-ей?
В коде два варианта на выбор

Sub Test()
    Dim i As Long, r As Long
    Application.ScreenUpdating = False
    r = IIf(Range("A" & Rows.Count).End(xlUp).Row < 5, 5, Range("A" & Rows.Count).End(xlUp).Row) 'c 6-ой строки
    'r = Range("A" & Rows.Count).End(xlUp).Row ' с 3-ей строки
    For i = 2 To Sheets.Count
        Sheets(i).Range("A6:J6").Copy (Cells(r + i - 1, 1))
    Next
    Application.ScreenUpdating = True
End Sub

[chib_sv]

Я не правильно сделал в примере, на Сводном будет начинаться с 4 строчки. В третий строке Сводного будут числа они которые находятся на втором и остальных листах (строка 3). Числа на всех листах будут одинаковые. На всех листах в 6 строке (кроме сводного) будет условное форматирование. Возможно ли чтобы закраска ячеек сохранилась на Сводном.

[AlexM12]

Sub Test()
    Dim i As Long, r As Long
    Application.ScreenUpdating = False
    Sheets(2).Range("A3:J3").Copy (Cells(3, 1))
    r = Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To Sheets.Count
        Sheets(i).Range("A6:J6").Copy (Cells(r + i - 1, 1))
    Next
    Application.ScreenUpdating = True
End Sub

[chib_sv]

Спасибо Алексей, а возможно чтобы условное форатирование сохранилось или заливка ячеек перенеслась на сводный?

[AlexM12]

В вашем файле нет условного форматирования.

[chib_sv]

Переделал пример

[IgorGO]

а возможно чтобы условное форатирование сохранилось или заливка ячеек перенеслась на сводный?

сводная работает с данными, и совершенно по барабану на каком фоне, каким цветом и шрифтом они написаны
макросом можете разрисовать сводную как захотите (или почти как захотите)

[AlexM12]

chib_sv, а самостоятельно проверить, переносится УФ или нет не получилось?