Форумчане, доброго времени суток! Очень нужна помощь.. Есть следующий кейс: нужно консолидировать на лист данные из других книг, причем делать это по тем путям (к файлам), которые будут указаны в n-ом столбце данной книги (то есть, как я понимаю, цикл, который будет перебирать все пути и подгружать из книг определенные диапазоны с определенных листов). А следующим шагом должно быть добавление с консолидированного листа в другой уникальных значений (типа ВПР, но там 10ки тысяч строк будут, боюсь зависнет), в котором сохраняется вся история кумулятивно (то есть, добавили раз, там осталось, потом сконсолидировали еще раз, в этот список из консо новые уникальные добавились и тд.) Горит уже, честно говоря, от неумения кодить....
Примерно в эксельке забил листы и вот начало кода, что смог придумать:
Sub Консолидация () Dim iBeginRange As Object Dim sSheetName As String, bPasteValues As String, File As String Dim Title As String Dim rn&, rc& Dim wsDataSheet As Object
On Error Resume Next Set iBeginRange = Range("A3:H10") sSheetName = "Заявки" rn = Cells(J3) rc = Range(("J3"), Range(("J3"), .End(xlDown))) Set wsDataSheet = ActiveWorkbook.Sheets("СВОД")
For i = rn To rc File = Application.GetOpenFilename(rn)
vadik-ceo, код следует оформлять соответствующим тегом - ищите такую кнопку <...> и исправьте своё сообщение. P.S. В книгах формата .xlsx макросы не живут.