Страницы: 1
RSS
Перенос данных с одного листа на другой по условию
 
Здравствуйте!

Нужно перенести данные со второго листа на первый после основной таблицы.

Помогите пожалуйста доработать макрос по условию:

1) Найти на листе "TD1", в колонке "А" ячейку, которая содержит слово "Итого" или определить последнюю заполненную строку в колонке "А" начиная счет после 5 строки (одно из условий)
2) Через одну пустую строку вставить данные из листа "TD2" в пределах диапазона A:Q, начиная с первой строки и до крайней заполненной или все строки, которые содержать данные (одно из условий)
3) Удалить лист TD2
Изменено: gesper2017 - 09.07.2024 12:33:58
 
Нашел решение.
Код
 Dim iRow1 As Long
   iRow1 = Cells(Rows.Count, 1).End(xlUp).Row
   With Sheets("TD2")
   .Range("A1").CurrentRegion.Copy Cells(iRow1 + 2, 1)
   End With
    Sheets("TD2").Delete 
Изменено: gesper2017 - 09.07.2024 13:08:38
Страницы: 1
Наверх