Собрать данные

[kzld]

Имеется книга Excel из 13 листов
Первый сводный и 12 - это месяцы года
На 2-13 листах макросом проставлены значения, взяты из другого файла
То есть, имеются пустые строки в листах 2-13
Что желаю :
Научиться составить макрос, который делает следующее
Лист сводный, ячейка B17 ,принимает значение появившееся первым на листе 01 (январь)
Лист сводный, ячейка B18 ,принимает значение появившееся вторым на листе 01 (январь)
Лист сводный, ячейка Bxx , (январь кончился к примеру) ,принимает значение первое на листе 02 (февраль)

[EducatedFool]

Что желаю :
Научиться составить макрос ...

Сообщений: 438

Научитесь читать правила раздела - там сказано, что надо прикреплять пример файла Excel
Откуда нам знать, какая там структура данных, на листах типа «01 (январь)»...

Будет файл - будет решение.

И зачем макрос? Чем формулы не устраивают?

[kzld]

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

Будет файл - будет решение.
И зачем макрос? Чем формулы не устраивают?

Файл прилагаю. Формулами думаю не получится. На листе 650 строк и три столбца. Более 2000 формул. Полагаю, что EXCEL будет тормозить

[staniiislav]

если правильно понял:
пробуйте

Private Declare Function GetTickCount Lib "kernel32" () As Long

Sub Find_()
Dim arr1, arr2, arr3, n As Long, i As Long, sh As Worksheet, t
If MsgBox("Произвести поиск данных?", 32 & vbYesNo, "ПОИСК") = vbNo Then Exit Sub
Application.ScreenUpdating = False
t = GetTickCount
Range("D17:R7791").ClearContents
Range("AA17:AA7791").ClearContents
arr1 = Range("D17:R7791").Value
arr3 = Range("AA17:AA7791").Value
For Each sh In ThisWorkbook.Worksheets
    If sh.Name <> ActiveSheet.Name Then
        arr2 = sh.Range("E17:S664").Value
        For i = 1 To UBound(arr2)
            If arr2(i, 1) > 0 Then
                n = n + 1: arr1(n, 1) = arr2(i, 1): arr1(n, 9) = arr2(i, 9): arr3(n, 1) = "Лист " & sh.Name & "|" & " номер " & i
            End If
        Next i
    End If
Next sh
[D17].Resize(n, 9).Value = arr1
[AA17].Resize(n, 1).Value = arr3
MsgBox "Затрпчено времени на поиск данных: " & (GetTickCount - t) / 1000, vbInformation, "ГОТОВО"
Application.ScreenUpdating = True
End Sub

[kzld]

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

если правильно понял:
пробуйте

Спасибо, то что нужно

[kzld]

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

если правильно понял:
пробуйте

А как дополнить макрос, что бы он еще и сумму "подхватывал" и вставлял в соответствующее поле, в столбец T