Страницы: 1
RSS
VBA: копирование и вставка данных с листа на лист
 
Добрый вечер.
Подскажите, пожалуйста, как можно оптимизировать код макроса, который вставляет определённые столбцы с данными с Листа1 на Лист2.
Файл примера во вложении.
 
При активном Листе1 запустить макрос
Код
Sub Perenos()
  With Worksheets("Лист2")
    .Rows("3:" & Rows.Count).Clear
    Range("B2:H19").AdvancedFilter xlFilterCopy, , .Range("B2:E2")
  End With
End Sub
 
Kuzmich, хорошее решение, спасибо!
А если отталкиваться от того, что в таблицах не будут совпадать названия столбцов, можно ли что-то придумать в таком случае?
 
Цитата
не будут совпадать названия столбцов, можно ли что-то придумать
Добавьте в таблицы по строчке и сделайте свою шапку, но чтобы названия совпадали
Страницы: 1
Наверх