Код под выделение и вставку строки

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

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

05.04.2018 17:58:15

Ребята, есть следующий вопрос: нужно выделить, предположим три ячейки в столбце "А", стоящие ниже заданной (пусть А1), вырезать их (или копировать) и вставить в столбец "B" (начальная ячейка B1). Можно ли как-то избежать следующей большой конструкции:

Код
Range("A2:A4").Select Selection.Copy Range("B1").Paste

И заменить на одну строку кода?
Процедура, вроде как должна быть понятна, файл не прилагаю.
Спасибо.

Dyroff

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

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

05.04.2018 18:00:39

Вариант названия темы: Копирование и вставка одной строкой кода VBA
Попробуйте так

Код
Range("A2:A4").Copy Destination:=Range("B1")

Изменено: Dyroff - 05.04.2018 18:02:21

Нужно бежать со всех ног, чтобы только оставаться на месте, а чтобы куда-то попасть, надо бежать как минимум вдвое быстрее!