Страницы: 1
RSS
Копирование данных из одинаковых ячеек разных листов в одну таблицу, Cобрать данные (текст из объединённых ячеек нескольких листов) - в одну таблицу
 
Добрый день!
Возможно (скорее всего) это элементарный вопрос, и я просто не вижу очевидного, но:

Есть книга с большим количеством листов, содержащих одинаковые таблицы.
Каждый лист (таблица) - это технологическая карта полиграфического заказа.
Один лист - одна таблица, т.е. необходимая информация находится в ячейках с одинаковым адресом.
В конце месяца, необходимо собирать и группировать данные со всех листов  в отдельную таблицу.

1 Столбец - наименование заказчика
2 Столбец - номер заказа

Т.е. задача: копирование данных из одинаковых ячеек разных листов в одну таблицу.
Нюанс: ячейки, откуда надо копировать текст (информацию) - объединение нескольких ячеек.

Образец (пример) - во вложении.
Что скажете?
 
Макрос.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
Код
Option Explicit

Sub tt()
    Dim sh As Worksheet, i As Long
    ReDim a(1 To Worksheets.Count + 1, 1 To 2)

    i = 1: a(i, 1) = "Продукция": a(i, 2) = "№ заказа"

    For Each sh In Worksheets: i = i + 1: a(i, 1) = sh.[b2]: a(i, 2) = sh.[c1]: Next

    With Workbooks.Add(1).Sheets(1).Cells(1).Resize(UBound(a), 2)
        With .Borders(): .LineStyle = xlContinuous: .Weight = xlThin: End With
        .Value = a: .Columns.AutoFit
    End With
End Sub

И сам исходный файл можно не портить.
А код может быть где угодно.
Изменено: Hugo - 02.03.2016 20:28:53 (чуть утоптал)
 
Спасибо большое!
Работает!
 
Здравствуйте, заинтересовал ваш макрос, решил применить его к своей таблице, но возникла вопрос как сделать что бы он копировал с Каталога 1 данные из ячеек ( Модель 1 ....., ФИО, размер, цвет, кол-во) в Итого и тоже самое из Каталога 2 .....15. если есть возможность помогите пожалуйста. С макросами к сожалению не дружу.  
 
slon1, здравствуйте. Покажите вручную созданный результат того, что должен сделать макрос, для двух моделей.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
Страницы: 1
Наверх