Частичный перенос данных из одного массива в другой

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Частичный перенос данных из одного массива в другой (Макросы/Sub)

Xpert

Дата: Среда, 18.08.2021, 11:00 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 117

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый день, уважаемые форумчане.
Столкнулся с проблемой: необходимо перенести данные из массива(3 х 10) в другой массив(3х8) и выгрузить на лист, начиная с ячейки D15.
Цель в том, чтобы значения из первого массива переместить во второй, за исключением данных, содержащихся в первых двух столбцах первого массива.
Уже голову сломал, помогите, пожалуйста!
[vba]

Код

Sub Test()
With Application
.ScreenUpdating = False: .EnableEvents = False: .Calculation = xlCalculationManual
End With
Dim arr, arr1, lstrw&, j&, r&
lstrw = Лист1.Cells(Rows.Count, 2).End(xlUp).Row
arr = Лист1.Range("B3:K" & lstrw)

ReDim arr1(1 To UBound(arr), 1 To 8)
For j = LBound(arr) To UBound(arr)
For r = 3 To 10
arr1(j, j) = arr(j, r)
Next r
Next j
Лист1.Range("D15:K" & lstrw + 13) = arr1
With Application
.Calculation = xlCalculationAutomatic: .EnableEvents = True: .ScreenUpdating = True
End With
End Sub

[/vba]

Пример прилагается.