Копировать с разных листов макросом

[Петро1]

Здравствуйте ув. форумчане. У меня такой вопрос, нужен макрос для копирования содержимого с разных листов на один, и при том, чтоб ети данные вставлялись последовательно. Пример в прикреплённом файле.
Смысл в чём копировать данные сначала с листа1 на всё вместе, потом с листа2 снова на всё вместе но разместить сразу под уже скопироваными данными. А потом таже манипуляция но с листа4.
Подскажите пожалуйста как это сделать.





--------- примечание модератора - вдруг кому пригодится --------------

На сайте ExcelVBA.ru можно скачать универсальную программу обработки прайс-листов:
http://excelvba.ru/programmes/Unification

Программа «Прайс лист», выполненная в виде надстройки для Excel, позволяет вам нажатием одной кнопки преобразовать множество прайс-листов различных форматов к единому виду.

Программа умеет объединять данные из самых разных прайсов (формата CSV и Excel), в том числе из файлов иерархической структуры (выгрузки из 1С).

Возможностей в программе множество — например, она умеет делать наценку (в т.ч. и «сложную»), конвертировать цены из одной валюты в другую, выполнять замены наименований, выделять нужные данные (характеристики) из описания товара при помощи специальных функций.

Создавать итоговый прайс можно в формате Excel (по шаблону XLS) или в CSV (разделители столбцов, кодировка, и всё такое - настраивается)

Вы легко сможете настроить программу обработки прайс-листов под свои нужды.
Если сами не разберётесь — позвоните в Скайп (ник: ExcelVBA.ru), — получите бесплатную консультацию, с демонстрацией возможностей программы.

Программа изначально предназначалась для обработки прайс-листов на автозапчасти, но подойдёт для абсолютно любых файлов Excel.
Для обработки прайс-листов на автомобильные шины и диски, в программу добавлены специальные функции.

Обновления к программе «Прайс-лист» выходят регулярно, — соответственно, в программу постоянно добавляются новые возможности.

[SAS888]

Посмотрите пример во вложении.

[Петро1]

Спасибо ув. SAS888. Но тут есть проблемка, у меня листов очень много, и подписаны они по разному. Не могли бы вы показать как прописать названия листов, и мне нужно выставить их в определённом порядке (потому-что листы вперемешку).
И как ваш макрос можна сохранить в "стандартные" чтоб применять его можно было для разных книг?

[kuklp]

Можно так:

Sub www()
    Dim i%, a
    a = Array("Лист1", "Лист2", "Лист3", "Лист4") ' преречисляете листы в нужном Вам порядке
    For i = 1 To UBound(a)
        Sheets(a(i)).UsedRange.Copy
        '..... тут ваша обработка
    Next
End Sub

[Петро1]

Ув. kuklp. Как бы это выразится помягче, в общем не могли бы вы всунуть эту процедуру в предыдуцую заготовку, у меня как-бы это - руки не стоят Я могу переделать только уже готовый под свои потребности.
А ещё вторая часть вопроса о том чтоб макрос был в "стандартных", как его туда добавить?

[kuklp]

Private Sub Main()
    Dim i As Integer, a()
    Application.ScreenUpdating = False: Cells.ClearContents
     a = Array("Лист1", "Лист2", "Лист4") ' преречисляете листы в нужном Вам порядке
    For i = 0 To UBound(a)
    Sheets(a(i)).UsedRange.Copy Cells(Rows.Count, 1).End(xlUp).Offset(1)
    Next
    Application.ScreenUpdating = true
End Sub

Вторую часть вопроса плохо понял. Через menu-insert-module. И в созданный модуль копируете макрос

[3BEPOBOY]

Петро1
в PERSONAL.xls макрос засуньте, будет доступно в любой книге. Находится в c:\Users\собственно вы\AppData\Roaming\Microsoft\Excel\ XLSTART\ - для Win 7. Для предыдуущих виндоусов вроде также, только без Roaming. Называется это личная книга макросов.
Можно по-другому:
записать произвольный макрос макрорекордером в личную книгу. После этого книга PERSONAL.xls будет стразу видна по нажатию Alt + F11

[Петро1]

kuklp только в этой функции нет имени конечного листа (куда копировать). Не могли бы вы провести короткий ликбез по этому вопросу?! т.к. я буду подганять макрос под свои прайсы. Я так понимаю открытый лист конечный?!

И вам 3BEPOBOY спасибо, буду пробовать.

[Петро1]

[QUOTE=Петро1;744138]kuklp только в этой функции нет имени конечного листа (куда копировать). Не могли бы вы провести короткий ликбез по этому вопросу?! т.к. я буду подганять макрос под свои прайсы. Я так понимаю открытый лист конечный?!

Всё разобрался всем спасибо.


А можно ещё такой макрос. В примере видно, есть список товаров, названия (красными буквами) повторяются, но под ними ничего нет. Так вот, чтоб макрос определял если название есть а под ним снова название (красными буквами) то первое название удалить. Вообщем в примере понятнее. Возможен ли такой макрос? На счёт красных букв я тут ещё одну тему паралельно веду.

[Петро1]

И всё же ещё есть вопросы.
Private Sub Main()
Dim i As Integer, a()
Application.ScreenUpdating = False: Cells.ClearContents
a = Array("Ëèñò1", "Ëèñò2", "Ëèñò4") ' ïðåðå÷èñëÿåòå ëèñòû â íóæíîì Âàì ïîðÿäêå
For i = 0 To UBound(a)
Sheets(a(i)).UsedRange.Copy Cells(Rows.Count, 1).End(xlUp).Offset(1)
Next
End Sub

я эту процедуру не вижу при нажатии "выполнить макрос", она мне там нужна чтоб назначить комбинацию клавиш на выполнение.
Предудущий пост тоже актуален.