Как записать в массив диапазон ячеек, а затем скопировать его

@spr85 · Регистрация: 29.05.2017

Студворк — интернет-сервис помощи студентам

Добрый день, вопрос следующего плана:

Мне нужно скопировать диапазон ячеек с Лист1 на Лист2 при определенном условии (условие проверяется c помощью if-then).
Я знаю такую конструкцию:

Visual Basic

1	arrTest(1) = Range("A1:C1").Value

С помощью ней диапазон "A1:C1" переносится на другой лист и проблем нет.

Однако у меня много таких диапазонов "A1:C1", "A2:C2", "A3:C3" и так далее. Следовательно их надо занести в цикл for-next, но
счетчик i никак не подружить с аргументом функции Range, поэтому нужно какое-то другое решение.

Если можно было бы сделать что-то типа: arrTest(i) = Cells(i, "A:C").Value , то это бы помогло, но к сожалению такое не работает.

Помогите решить плз.

@Hugo121 · 29.08.2018, 17:14

Сообщение от spr85

их надо занести в цикл for-next, но
счетчик i никак не подружить с аргументом функции Range

Так заносите в массив адреса своих диапазонов, и гоните по этому массиву for-next без проблем.

Visual Basic

1	arrTest(1) = Range(массив(i)).Value

@Казанский · 29.08.2018, 17:21

Сообщение от spr85

Если можно было бы сделать что-то типа: arrTest(i) = Cells(i, "A:C").Value

Visual Basic

arrTest(i) = range("A" & i & ":C" & i).Value
'или
arrTest(i) = Cells(i, "A").resize(,3).Value
'или
arrTest(i) = range("A:C " & i & ":" & i).Value
'или
arrTest(i) = range("A:C").rows(i).Value

@spr85 · 29.08.2018, 18:15 **[ТС]**

Это просто мега! Спасибо

@spr85 0 / 0 / 0 Регистрация: 29.05.2017 Сообщений: 23
	29.08.2018, 18:15 [ТС]	4
	Это просто мега! Спасибо 0

Опции темы

Как записать в массив диапазон ячеек, а затем скопировать его

Решение