VBA Paste

VBA Paste работает так же, как мы делаем Copy / Cut и Paste в Excel. VBA Вставьте это в автоматизированную версию того, что мы регулярно делаем в обычной работе Excel. Вставка данных в любом необходимом месте является обычной задачей. Чтобы выполнить это действие, нам нужно определить место, откуда мы будем выбирать данные, и место, куда мы его вставим.

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

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

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

VBA Paste - Пример № 1

Давайте рассмотрим любую ячейку в Excel, в которой есть текст. Здесь мы сохранили текст « VBA Paste » в ячейке B3, как показано ниже.

Для использования VBA Paste выполните следующие шаги.

Шаг 1: Теперь перейдите в окно VBA и откройте новый модуль из меню «Вставка», как показано ниже.

Шаг 2: Как только мы это сделаем, мы получим пустой модуль. В этом начать писать подкатегорию. Рекомендуется написать подкатегорию в названии функции, которую мы выполняем.

Код:

 Sub VBAPaste1 () End Sub

Шаг 3: Теперь сначала выберите ячейку Range, где у нас есть данные, которые нам нужно скопировать. Здесь нашей ячейкой Range является B3, за которой следует функция .Copy . Это копирует данные в ячейку Range, которую мы выбрали.

Код:

 Sub VBAPaste1 () Range ("B3"). Копировать End Sub

Шаг 4: Теперь нам нужна ячейка назначения, куда мы должны вставить это скопированное значение. С помощью команды Destination выберите ячейку Range. Здесь мы выбрали ячейку D1, где увидим значение.

Код:

 Sub VBAPaste1 () Range ("B3"). Назначение копирования: = Range ("D1") End Sub

Шаг 5: После этого скомпилируйте код и запустите его.

Мы увидим, что содержимое ячейки ячейки B3 теперь скопировано и вставлено в ячейку D3, как показано выше.

VBA Paste - пример № 2

Давайте рассмотрим другой пример VBA Paste. Для этого перейдите в окно VBA и откройте модуль, а затем выполните следующие шаги.

Шаг 1: Начните писать Подкатегорию под именем VBA Paste или под любым другим именем, как показано ниже.

Код:

 Sub VBAPaste2 () End Sub

Шаг 2: Здесь мы рассмотрим те же данные или эталонную ячейку B3, которые мы видели в примере-1. Выберите ячейку Range B3, а затем команду .Copy . Это скопирует данные.

Код:

 Sub VBAPaste2 () Range ("B3"). Копировать End Sub

Шаг 3: Теперь выберите ячейку диапазона, в которую нам нужно вставить скопированные данные. Здесь мы выбираем ячейки D1-D3 в отличие от выбора только одной ячейки, как показано в примере-1.

Код:

 Sub VBAPaste2 () Range ("B3"). Copy Range ("D1: D3"). Выберите End Sub

Шаг 4: Как только мы скопировали данные и выбрали ячейки, куда их нужно вставить. Теперь выберите команду Вставить с помощью функции ActiveSheet . Этот активный лист позволяет скопировать ячейку, вставленную в ячейки диапазона.

Код:

 Sub VBAPaste2 () Range ("B3"). Copy Range ("D1: D3"). Выберите ActiveSheet.Paste End Sub

Шаг 5: Теперь скомпилируйте код и запустите его. Мы увидим, что значение ячейки из ячейки B3 будет вставлено из ячеек D1 в D3.

VBA Paste - пример № 3

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

Выполните следующие шаги:

Шаг 1: Напишите подкатегорию VBA Paste, как показано ниже.

Код:

 Sub VBAPaste3 () End Sub

Шаг 2: Лучше передать последовательность в подкатегорию, если вы пишете несколько наборов кодов в одном файле. Для вставки чего-либо, во-первых, нам нужно скопировать эти данные. Здесь мы выбрали команду Копировать .

Код:

 Sub VBAPaste3 () Selection.Copy End Sub

Шаг 3: Теперь выберите диапазон или ячейку ссылки, которую нам нужно скопировать и вставить. Здесь у нас есть ячейка D3 с данными «VBA Paste».

Код:

 Sub VBAPaste3 () Selection.Copy Range ("D3"). Выберите End Sub

Шаг 4. Теперь в Excel мы выбираем ячейки, в которые нам нужно вставить данные, вручную или клавишами Shift + Ctrl + Up / Down. Здесь также мы выберем расположение ячеек командой End (xlUp) для выбора диапазона выходных ячеек.

Код:

 Sub VBAPaste3 () Selection.Copy Range ("D3"). Выберите диапазон (Selection, Selection.End (xlUp)). Выберите End Sub

Шаг 5: Теперь выберите диапазон выходных ячеек, здесь мы выбрали ячейки от D1 до D3, где мы увидим вставленные данные.

Код:

 Sub VBAPaste3 () Selection.Copy Range ("D3"). Выберите диапазон (Selection, Selection.End (xlUp)). Выберите Range ("D1: D3"). Выберите End Sub

Шаг 6: В качестве функции нам нужно выполнить функцию вставки, поэтому нам нужно активировать команду вставки в VBA командой ActiveSheet, за которой следует точка (.) Paste.

Код:

 Sub VBAPaste3 () Selection.Copy Range ("D3"). Выберите Range (Selection, Selection.End (xlUp)). Выберите Range ("D1: D3"). Выберите ActiveSheet.Paste End Sub

Шаг 7: Теперь, наконец, разрешите приложению CutCopyMode использовать FALSE, что означает только копирование данных вместо их вырезания из эталонной ячейки.

Код:

 Sub VBAPaste3 () Selection.Copy Range ("D3"). Выберите Range (Selection, Selection.End (xlUp)). Выберите Range ("D1: D3"). Выберите ActiveSheet.Paste Application.CutCopyMode = False End Sub

Шаг 8: Перед запуском кода сначала наведите курсор на ячейку B3. Затем скомпилируйте код и запустите его. Мы увидим, что наши данные будут скопированы в ячейки от D1 до D3.

VBA Paste - пример № 4

Существует еще один способ использования VBA Paste в одной строке кода.

Выполните следующие шаги:

Шаг 1: Запишите подкатегорию в последовательности и название выполняемой функции.

Код:

 Sub VBAPaste4 () End Sub

Шаг 2: Используйте команду Worksheets и выберите лист, где мы будем работать. Здесь наш лист называется «Лист1». Мы можем использовать Workbook.Sheet (1) также для выбора «Sheet1» вместо этого.

Код:

 Sub VBAPaste4 () Рабочие листы ("Лист1"). End Sub

Шаг 3: Выберите ячейку, из которой мы будем копировать данные. Здесь нашей ячейкой Range является B3, которая имеет те же данные, что мы видели в приведенных выше примерах.

Код:

 Sub VBAPaste4 () Рабочие листы ("Лист1"). Диапазон ("B3"). End Sub

Шаг 4: Теперь вставьте команду « Копировать» после точки (.) Для копирования данных из выбранной ячейки диапазона.

Код:

 Sub VBAPaste4 () Рабочие листы ("Sheet1"). Диапазон ("B3"). Копировать End Sub

Шаг 5: Теперь используйте команду Destination, чтобы выбрать место, куда мы будем вставлять скопированные данные. Для этого выберите «Рабочий лист» как «Лист1», который мы сделали в начале этого примера, и выберите ячейки «Диапазон» в любом месте на том же листе. Здесь мы выбрали диапазон выходных ячеек от D1 до D3.

Код:

 Sub VBAPaste4 () Рабочие листы ("Лист1"). Диапазон ("B3"). Копия Назначение: = Рабочие листы ("Лист1"). Диапазон ("D1: D3") Конец Sub

Шаг 6: Теперь скомпилируйте и запустите. Текст «Вставка VBA» из ячейки B3 будет скопирован и вставлен в ячейки D1-D3, как показано ниже.

Плюсы Excel VBA Paste

  • Применение первых двух примеров - это самый простой и быстрый способ применения VBA Paste.
  • Для огромных данных, где сложно выполнять несколько действий, если мы автоматизируем этот тип небольшой функции, это сэкономит огромное время на ручные операции.
  • Нет ограничений на копирование и вставку данных.

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

  • Используйте подкатегорию таким образом, чтобы, если вы используете несколько модулей, то добавление последовательности в нее облегчит отслеживание и выбор правильного макроса.
  • Сохраните файл Excel в Macro Enable Format, чтобы записанный код был сохранен для следующего использования.
  • Если вы пишете несколько строк кода, рекомендуется построчно компилировать код, чтобы определить, есть ли в нем ошибка.
  • Рекомендуется поместить курсор в ячейку B3, если вы используете пример-3.

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

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

  1. VBA Match | Как пользоваться?
  2. Excel TRANSPOSE Formula
  3. VBA Range | Easy Excel Макросы
  4. Вложенная формула IF в Excel

Категория:

VBA