Страницы: 1
RSS
Агрегатор таблиц в книге
 
Во вложенном файле в листах представлены таблицы, которые не изменяются по ширине, но изменяются по количеству строк.
Задача состоит в том что бы по нажатию кнопки макрос копировал таблицы с данными последовательно вертикально (как это указано на листе СВОД).
Буду рад любой помощи, спасибо.
 
Код
Sub test()
Dim sht As Worksheet, sh As Worksheet
Dim i&, j&
Set sht = Sheets("СВОД")
For Each sh In Worksheets
    If sh.Name <> sht.Name Then
        With sh
            i = .Cells(.Rows.Count, "c").End(xlUp).Row
            j = sht.Cells(sht.Rows.Count, "c").End(xlUp).Row + 1
            .Range("b5:w" & i).Copy sht.Range("b" & j)
        End With
    End If
Next sh
End Sub
Изменено: Nordheim - 12.07.2017 14:28:12
"Все гениальное просто, а все простое гениально!!!"
 
Преогромная благодарность. вопрос закрыт
Страницы: 1
Наверх