Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Перенос данных с одного листа на другой по условию
 
#1
09.07.2024 11:48:14
Здравствуйте!

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

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

1) Найти на листе "TD1", в колонке "А" ячейку, которая содержит слово "Итого" или определить последнюю заполненную строку в колонке "А" начиная счет после 5 строки (одно из условий)
2) Через одну пустую строку вставить данные из листа "TD2" в пределах диапазона A:Q, начиная с первой строки и до крайней заполненной или все строки, которые содержать данные (одно из условий)
3) Удалить лист TD2
Изменено: gesper2017 - 16.07.2024 12:46:17
 
 
 
#2
09.07.2024 12:57:23
Нашел решение.
Код
 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
 
 
 
#3
15.07.2024 17:36:35
Помогите разобраться

.CurrentRegion - текущий прямоугольный диапазон ячеек, в который входит текущая ячейка, ограниченный пустыми строками и столбцами либо границами листа
Код
.Range("A1").CurrentRegion.Copy Cells(iRow1 + 2, 1)

В таблице могут быть промежуточные пустые колонки, которые необходимо сохранить в структуре, но таблица ограничена диапазоном "A:H"

Подскажите, как учитывать промежуточные пустые столбцы?

Например, после первого столбца "А" следуют три пустых, а после, заполненные до столбца "H"

В случае запуска моего варианта, переносится только столбец "A"

 
 
 
#4
15.07.2024 17:39:17
Приложите файл-пример. Как есть - Как надо.
Может, потому что нет файла, помощь так и не пришла? Мало кому хочется самому воспроизводить в файле Вашу проблему
Согласие есть продукт при полном непротивлении сторон
 
 
 
#5
16.07.2024 12:47:59
Цитата
написал:
Приложите файл-пример. Как есть - Как надо.
Добавил файл-пример
 
 
 
#6
16.07.2024 12:57:08
Код
.Range("A1").CurrentRegion.Resize(, 8).Copy Cells(iRow1 + 2, 1)
 
 
 
#7
16.07.2024 13:08:50
МатросНаЗебре, спасибо большое. Все работает  
 
 
 
Страницы: 1
Читают тему
Наверх