Всем привет!
Никак не могу разобраться с двумерными массивами. Как заполнять двумерный массив с сохранением предыдущих элементов?
Есть код:
Запутался с redim preserve.
Пример во вложении.
Всем большое спасибо!
Никак не могу разобраться с двумерными массивами. Как заполнять двумерный массив с сохранением предыдущих элементов?
Есть код:
Код |
---|
Sub Пример() Dim i, Counter, myArr Dim Criterial, RowTarget As Range, Result Criterial = Cells(7, 1) Set RowTarget = Range("a10") myArr = Range("h1:j5") For i = LBound(myArr, 1) To UBound(myArr, 1) If myArr(i, 1) = Criterial Then Counter = Counter + 1 If Counter = 1 Then ReDim Result(0, 1) Else ReDim Result(UBound(Result), UBound(Result) + 1) End If Result(UBound(Result), UBound(Result)) = myArr(i, 2) Result(UBound(Result), UBound(Result) + 1) = myArr(i, 3) End If Next i RowTarget.Resize(1, UBound(Result) + 1) = Result End Sub |
Пример во вложении.
Всем большое спасибо!