Доброго времени суток, уважаемые форумчане! Прошу помощи в решении задачи: Необходимо произвести сбор данных с "Лист1", "Лист2", "Лист3", "Лист4" на лист "сводная". Данные на "Лист1", "Лист2", "Лист3", "Лист4" могут быть записаны через строчку через две, меняться количество строк и столбцов Таблица на листе "Сводная", куда заносятся данные, форматирована,как таблица с заголовками, и начинается с 9 строки
Доброго времени суток, уважаемые форумчане! Прошу помощи в решении задачи: Необходимо произвести сбор данных с "Лист1", "Лист2", "Лист3", "Лист4" на лист "сводная". Данные на "Лист1", "Лист2", "Лист3", "Лист4" могут быть записаны через строчку через две, меняться количество строк и столбцов Таблица на листе "Сводная", куда заносятся данные, форматирована,как таблица с заголовками, и начинается с 9 строкиwerty456
Необходимо произвести сбор данных с "Лист1", "Лист2", "Лист3", "Лист4" на лист "сводная".
При активном листе "Сводная" запустить макрос [vba]
Код
Sub Sbor() Dim Sht As Worksheet Dim iLastRow As Long Dim iLR As Long iLastRow = Cells(Rows.Count, 1).End(xlUp).Row Range("A10:K" & iLastRow).Clear For Each Sht In Worksheets If Sht.Name <> "Сводная" And Sht.Name <> "123" Then With Sht iLR = .Cells(.Rows.Count, 1).End(xlUp).Row iLastRow = Cells(Rows.Count, 1).End(xlUp).Row + 1 .Range(.Cells(2, "A"), .Cells(iLR, "K")).Copy Cells(iLastRow, 1) End With End If Next End Sub
[/vba]
Цитата
Необходимо произвести сбор данных с "Лист1", "Лист2", "Лист3", "Лист4" на лист "сводная".
При активном листе "Сводная" запустить макрос [vba]
Код
Sub Sbor() Dim Sht As Worksheet Dim iLastRow As Long Dim iLR As Long iLastRow = Cells(Rows.Count, 1).End(xlUp).Row Range("A10:K" & iLastRow).Clear For Each Sht In Worksheets If Sht.Name <> "Сводная" And Sht.Name <> "123" Then With Sht iLR = .Cells(.Rows.Count, 1).End(xlUp).Row iLastRow = Cells(Rows.Count, 1).End(xlUp).Row + 1 .Range(.Cells(2, "A"), .Cells(iLR, "K")).Copy Cells(iLastRow, 1) End With End If Next End Sub
Собрал данные макросом. Потом произошло обновление данных, снова собрал данные первые данные удалились (пустые ячейки), а новые данные добавились в конец таблицы.Излишнее цитирование удалено администрацией - это нарушение п.5j Правил форума
Собрал данные макросом. Потом произошло обновление данных, снова собрал данные первые данные удалились (пустые ячейки), а новые данные добавились в конец таблицы.Излишнее цитирование удалено администрацией - это нарушение п.5j Правил форумаwerty456