Вставка в excel из массива построчно

Пользователь

Сообщений: 208 Регистрация: 26.03.2019

29.11.2019 10:34:40

Добрый день.

Имеется двухмерный массив. По условию я нахожу строку в массиве и нужно добавить ее в Excel. Пока что я смог только добавлять каждую ячейку. Подскажите как вставить сразу полностью строку в Excel.

Код
For i = 0 to 1000 If b(56,i)="DRINK" then Workbooks("test").worksheets("test").range(cells(lr,1),cells(lr,lc))= range(b(0,i),b(135,i)) 'что-то вроде этого мне нужно End if Next

Юрий М

Модератор

Сообщений: 61036 Регистрация: 14.09.2012

Контакты см. в профиле

29.11.2019 12:31:43

Код
Sub qqq() Dim Arr() Arr = Range("A1:J3").Value [a10].Resize(1, UBound(Arr, 2)).Value = WorksheetFunction.Index(Arr, N, 0) 'N - номер выгружаемой строки. End Sub