Копирование n столбцов на новый лист с заданными заголовками

blackeangel · Отправлено: **16:56, 04-05-2017** | #3

Цитата Iska:

blackeangel, добавили лист по Sheets.Add() — сразу берите возвращаемую методом ссылку на новый рабочий лист и работайте с ней. И никаких последующих игр с ActiveSheet и Worksheets(ActiveSheet.Index - 1).

Будет проще, если Вы поясните, что означает:

Код:

        oboz = .Cells.Find(What:=column1, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns).Column
        .Columns(oboz).Copy
        Columns(1).Select
        ActiveSheet.Paste

И пример вызова процедуры покажите.

1. Не понял про sheet.add
2. Ищем столбец на предыдущем листе по его заголовку, копируем весь столбец и вставляем на новый
3. Пример вызова
Copy4Columns("Имя_Нового_Листа","имя_столбца1","Имя_столбца2","Имя_столбца3","имя_столбца4")