Как скопировать и вставить диапазон

Что делает макрос: Этот макрос сможет копировать значения указанного диапазон данных и вставить их в новый диапазон.

Как макрос работает

В этом макросе, мы используем метод Copy объекта Range, чтобы скопировать данные из D6: D17 и вставить в L6: L17. Обратите внимание на использование целевого аргумента. Этот аргумент говорит Excel, где нужно вставить данные.

Код макроса

Sub KopirovanieDannih()
'Копируем данные
Sheets("Лист1").Range("D6:D17").Copy _
'Вставляем данные
Destination:=Sheets("Лист1").Range("L6:L17")
End Sub

При работе с таблицей, иногда приходится копировать формулы и вставлять их в качестве значений. Для этого в макросе, вы можете использовать метод PasteSpecial. В этом примере мы копируем формулы F6:F17 в M6:M17. Обратите внимание на то, что мы не только используем xlPasteValues, также xlPasteFormats, чтобы применить форматирование из скопированного диапазона.

Sub KopirovanieDannihIFormata()
Sheets("Лист1").Range("F6:F17").Copy
Sheets("Лист1").Range("M6:M17").PasteSpecial xlPasteValues
Sheets("Лист1").Range("M6:M17").PasteSpecial xlPasteFormats
End Sub

Как использовать

Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:

  1. Активируйте редактор Visual Basic, нажав ALT + F11 на клавиатуре.
  2. Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта.
  3. Выберите Insert➜Module.
  4. Введите или вставьте код.
Оцените статью
Добавить комментарий