поиск уникальных значений и суммирование

[lkbb]

Приветствую, уважаемые!

Передо мной стоит задача: собрать с нескольких листов уникальные значения и просуммировать числа, им соответствующие. То есть к примеру, во вложенном файле на листе "данные" в первом столбце по типу "кирпич" должны складываться количества и веса по категории "кирпич" с листов 1 и 2. Так же и по другим типам.

Я вижу решение этой задачи следующим способом:
1)циклом собрать все строки со значениями с листов 1 и 2 на лист "данные"
2)из полученных данных извлечь уникальные типы ("кирпич", "песок" и тд)
3)с помощью формулы "суммесли" найти суммы по типам.

То есть 3 шага. Медленно и как-то топорно.

Возможно, есть более изящное решение задачи? Подскажите пожалуйста.

[IgorGO]

я сделал одним шагом, без программирования (это называется сводная таблица)

[doober]

чтобы было быстро.мне надо знать собрать с каких листов.

Итого сколько мы имеем листов для сбора.
1.Все .кроме первого.
2.Все,лист с результатом создаем в процессе работы макроса.


PS.Вот так всегда,пока собрался,написал-Игорь уже отстрелялся

[lkbb]

Сообщение от IgorGO

я сделал одним шагом, без программирования (это называется сводная таблица)

Сводной таблицей, увы, решить проблему не получится, поскольку реальная задача несколько сложней той, что в примере (хотя сходна по принципу)
В реальности на листах есть некие блоки с данными, у которых есть идентификационная ячейка, и суммировать нужно данные в ячейках каждого блока, которые находятся или ниже идентификационного блока, или правее, или ниже и правее. (как в примере). Так что без макроса не обойтись!

Сообщение от doober

Итого сколько мы имеем листов для сбора.
1.Все .кроме первого.
2.Все,лист с результатом создаем в процессе работы макроса.

Листов с данными для сбора фиксированное количество, 12. Известны их индексы (с 4 по 15) и названия (месяцы). Всего в книге будет 17 листов

[doober]

Кнопка,выбор файла.
Листы обрабатываются с 4 по 15
Пароль перед вами,но лучше не трогать код

[lkbb]

Сообщение от doober

Кнопка,выбор файла.
Листы обрабатываются с 4 по 15
Пароль перед вами,но лучше не трогать код

Это нечто гениальное. Никогда бы не додумался использовать sql. Буду разбираться. Спасибо!

[Vja4eslav]

Здравствуйте doober, на Вашем коде стоит пароль. Это потому что он платный? Просто хотелось бы тоже посмотреть на этот код.

[Чивап59]

Доброго всем здоровья и с праздником!!!
Пользуюсь данным макросом. Помогите добавить в него суммирование данных полученных уникальных значений из столбцов "Е" и "G:K"
Sub Данные()
Dim i As Long, N As Long, c As Collection, m As Long
Dim j As Long, vd As String, va As String

Columns("C:C").Copy Range("L1")

ActiveSheet.Range("L:L").RemoveDupl icates Columns:=1, Header:=xlYes

Range("L1").Value = "Данные"

N = Cells(Rows.Count, "L").End(xlUp).Row
m = Cells(Rows.Count, "A").End(xlUp).Row

For i = 2 To N
Set c = Nothing
Set c = New Collection
vd = Cells(i, "L").Value
For j = 2 To m
va = Cells(j, "C").Value
If va = vd Then
On Error Resume Next
c.Add Cells(j, "A").Value, CStr(Cells(j, "A").Value)
On Error GoTo 0
End If
Next j
Cells(i, "M").Value = c.Count
Next i
End Sub