Автор: SanShiney. Вчера написал код. Ниже привожу выдержку по коду, которая даёт проблему. ' Раздаю определенения Dim arr1 As New Collection, a1 Dim aFirstArray1() As Variant Dim i1 As Long ' Присваиваю значения переменным. Т.к. данные на другой странице, использую WTIH With Sheets("PROJECT DETAILS") LastRow1 = .Cells.Find("*", .Range("A1"), , , xlByRows, xlPrevious).Row PROJECTSLIST1 = .Range(.Cells(2, 1), .Cells(LastRow1, 1)).Value End ...