VBA Copy Paste

Подобно функции листа в Excel, мы также можем копировать данные вставки или набор значений в VBA. В обычных данных мы используем CTRL + C, чтобы скопировать выборку данных, а затем CTRL + V, чтобы вставить выбранные данные в целевую ячейку. Но то же самое в VBA делают определенные коды, которые мы узнаем в этой статье.

Как мы используем копирование и вставку в Excel VBA? Для этого сначала нам нужно активировать целевой лист или рабочую книгу, из которой мы хотим скопировать любой диапазон данных, и этот выбор копируется определенным кодом, когда этот выбор успешно скопирован, мы можем продолжить и вставить данные в целевой диапазон ячеек.

Синтаксис для копирования данных в VBA выглядит следующим образом:

 Диапазон («Оригинальная ячейка»). Копия

Теперь синтаксис для вставки данных в другой лист или в любой другой диапазон ячеек выглядит следующим образом:

 Диапазон («Ячейка назначения»). Паста

Мы используем оператор Dot (.) Для использования методов копирования и вставки в VBA.

Мы можем скопировать весь столбец и вставить его в другой столбец, а также мы также можем скопировать всю строку и вставить ее в другую строку. Мы узнаем все это в этой статье.

Примечание. Чтобы использовать VBA в Excel, убедитесь, что вкладка «Разработчик» включена из вкладки «Файл», а затем в раздел настроек параметров.

Как использовать Excel VBA Copy Paste?

Мы научимся использовать VBA Copy Paste с несколькими примерами в Excel.

Вы можете скачать этот шаблон VBA Copy Paste Excel здесь - Шаблон VBA Copy Paste Excel

VBA Copy Paste - Пример № 1

Для демонстрации у меня есть случайное значение в ячейке A1, которое я хочу скопировать и вставить в ячейку B1, используя код VBA. Посмотрите, какие данные находятся в ячейке A1, а ячейка B1 пуста.

Выполните следующие шаги, чтобы использовать Excel VBA Copy Paste:

Шаг 1: Перейдите на вкладку разработчика и нажмите на Visual Basic, чтобы открыть VB Editor.

Шаг 2: Как только редактор VB откроется, нажмите на кнопку вставки, а затем на кнопку Вставить модуль, чтобы вставить окно кода.

Шаг 3: Объявите подфункцию, чтобы начать писать код.

Код:

 Sub Sample () End Sub

Шаг 4. Сначала активируйте лист, чтобы использовать свойства листа с помощью следующего кода.

Код:

 Sub Sample () Worksheets ("Sheet1"). Активировать End Sub

Шаг 5: Скопируйте данные, которые находятся в ячейке A1, с помощью следующего кода.

Код:

 Sub Sample () Worksheets ("Sheet1"). Активировать диапазон ("A1"). Copy End Sub

Шаг 6: Теперь вставьте скопированные данные в целевую ячейку, которая является ячейкой B1, с помощью следующего кода.

Код:

 Sub Sample () Worksheets ("Sheet1"). Активировать диапазон ("A1"). Copy Range ("B1"). PasteSpecial End Sub

Шаг 7: Запустите приведенный выше код с помощью кнопки запуска и посмотрите результат в ячейке B1.

VBA Copy Paste - Пример №2

У меня есть данные в столбце C, и я хочу скопировать все данные или значения и вставить их в столбец D, используя код VBA. Посмотрите ниже, что это за данные в столбце C, и что столбец D пуст.

Выполните следующие шаги, чтобы использовать Excel VBA Copy Paste:

Шаг 1: Перейдите на вкладку разработчика и нажмите на Visual Basic, чтобы открыть VB Editor.

Шаг 2: Нажмите на вставленный модуль, чтобы открыть окно кода,

Шаг 3: Объявите подфункцию, чтобы начать писать код.

Код:

 Sub Sample1 () End Sub

Шаг 4. Сначала активируйте рабочий лист с помощью следующего кода.

Код:

 Sub Sample1 () Worksheets ("Sheet1"). Активировать End Sub

Шаг 5: Скопируйте данные в столбце C с помощью следующего кода.

Код:

 Sub Sample1 () Worksheets ("Sheet1"). Активировать диапазон ("C: C"). Copy End Sub

Шаг 6: Теперь, чтобы вставить данные в столбец D, используйте следующий код.

Код:

 Sub Sample1 () Worksheets ("Sheet1"). Активировать диапазон ("C: C"). Копировать диапазон ("D: D"). PasteSpecial End Sub

Шаг 7: Запустите следующий код с помощью кнопки запуска или нажмите F5.

Запустите код, чтобы увидеть следующий результат.

VBA Copy Paste - Пример № 3

Теперь для этого примера у меня есть целый диапазон данных в диапазоне ячеек G1: H3, и я хочу скопировать данные в диапазоне ячеек I1: J3. Посмотрите ниже на данные, которые у меня есть в диапазоне ячеек G1: H3, а диапазон ячеек I1: J3 пуст.

Выполните следующие шаги, чтобы использовать Excel VBA Copy Paste:

Шаг 1: Перейдите на вкладку разработчика и нажмите на Visual Basic, чтобы открыть VB Editor.

Шаг 2: Нажмите на вставленный модуль, чтобы открыть окно кода,

Шаг 3: Объявите подфункцию, чтобы начать писать код.

Код:

 Sub Sample2 () End Sub

Шаг 4. Сначала активируйте лист, чтобы использовать его свойства с помощью следующего кода.

Код:

 Sub Sample2 () Worksheets ("Sheet1"). Активировать End Sub

Шаг 5: Скопируйте данные в целевой диапазон ячеек с помощью следующего кода.

Код:

 Sub Sample2 () Worksheets ("Sheet1"). Активировать диапазон ("G1: H3"). Copy End Sub

Шаг 6: Теперь, чтобы вставить данные в ячейку назначения, используйте следующий код.

Код:

 Sub Sample2 () Worksheets ("Sheet1"). Активировать диапазон ("G1: H3"). Копировать диапазон ("I1: J3"). PasteSpecial End Sub

Шаг 7: Запустите приведенный выше код с помощью кнопки запуска или нажмите F5, чтобы увидеть следующий результат.

VBA Copy Paste - пример № 4

Для этого примера у меня есть данные в строке 10, и я хочу вставить данные в строке 11. Посмотрите ниже, чтобы увидеть, какие данные находятся в строке 10, а строка 11 свободна.

Выполните следующие шаги, чтобы использовать Excel VBA Copy Paste:

Шаг 1: Перейдите на вкладку разработчика и нажмите на Visual Basic, чтобы открыть VB Editor.

Шаг 2: Нажмите на вставленный модуль, чтобы открыть окно кода,

Шаг 3: Объявите подфункцию, чтобы начать писать код.

Код:

 Sub Sample3 () End Sub

Шаг 4. Активируйте рабочий лист, чтобы использовать свойства рабочего листа.

Код:

 Sub Sample3 () Worksheets ("Sheet1"). Активировать End Sub

Шаг 5: Скопируйте строку 10 со следующим кодом.

Код:

 Sub Sample3 () Worksheets ("Sheet1"). Активировать строки (10) .EntireRow.Copy End Sub

Шаг 6: Вставьте данные строки 10 в строку 11 с помощью следующего кода.

Код:

 Sub Sample3 () Worksheets ("Sheet1"). Активировать строки (10) .EntireRow.Copy Rows (11) .EntireRow.PasteSpecial End Sub

Шаг 7: Запустите приведенный выше код, нажав F5, чтобы увидеть следующий результат.

То, что нужно запомнить

  • Чтобы использовать данные из любого листа для их копирования, нам нужно сначала активировать лист.
  • Точно так же, когда нам нужно вставить данные в любой другой лист в VBA, нам нужно сначала активировать целевой лист.
  • Если мы копируем весь столбец или строку и вставляем данные в любой другой столбец, тогда данные в любом месте строки или столбца в целевых ячейках копируются и вставляются в целевые ячейки. Это может привести к определенным нежелательным данным.
  • Лучший способ скопировать данные - скопировать определенный диапазон и вставить данные в целевые ячейки.

Рекомендуемые статьи

Это было руководство к VBA Copy Paste. Здесь мы обсудили, как использовать Excel VBA Copy paste, а также некоторые практические примеры и загружаемый шаблон Excel. Вы также можете просмотреть наши другие предлагаемые статьи -

  1. Метод вставки в VBA
  2. Возможность вставки в Excel
  3. Использование функции разделения в VBA
  4. Оставил TRIM в Excel

Категория:

VBA