Вставити копію VBA

Подібно до функції робочого аркуша в excel, ми також можемо копіювати вставки даних або набір значень у VBA. У звичайних даних ми використовуємо або CTRL + C для копіювання виділених даних, а потім CTRL + V для вставки вибраних даних у цільову комірку. Але те саме в VBA робиться за певними кодами, про які ми дізнаємося в цій статті.

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

Синтаксис для копіювання даних у VBA такий:

 Діапазон ("Оригінальна клітинка"). Копія

Тепер синтаксис для вставки даних в інший робочий аркуш або будь-який інший діапазон комірок такий:

 Діапазон ("Клітина призначення"). Паст

Ми використовуємо оператор Dot (.) Для використання методів копіювання та вставки в VBA.

Ми можемо скопіювати цілий стовпець і вставити його в інший стовпець, а також можемо скопіювати цілий рядок і вставити його в інший рядок. Про всі ці речі ми дізнаємось у цій статті.

Примітка. Щоб використовувати VBA в excel, переконайтеся, що вкладка розробника увімкнена з вкладки Файл, а потім у розділі налаштувань параметрів.

Як використовувати вставку для копіювання Excel VBA?

Ми дізнаємось, як використовувати пасту для копіювання VBA з кількома прикладами в Excel.

Ви можете завантажити шаблон VBA Copy Paste Excel тут - VBA Copy Paste Excel Шаблон

Вставка копії VBA - приклад №1

З метою демонстрації у мене є випадкове значення в комірці A1, яке я хочу скопіювати і вставити у комірку B1, використовуючи код VBA. Подивіться нижче, які дані є у комірці A1, а клітинка B1 порожня.

Виконайте наведені нижче дії, щоб скопіювати папку для копіювання Excel VBA:

Крок 1: Перейдіть на вкладку розробника і натисніть на Visual Basic, щоб відкрити редактор VB.

Крок 2: Після відкриття редактора VB натисніть на Вставити, а потім натисніть на Вставити модуль, щоб вставити вікно коду.

Крок 3: Визначте підфункцію, щоб почати писати код.

Код:

 Sub Sample () Кінець Sub

Крок 4: Активуйте робочий лист спочатку, щоб використовувати властивості робочого аркуша за допомогою наступного коду.

Код:

 Робочі таблиці Sub Sample () ("Sheet1"). Активуйте End Sub

Крок 5: Скопіюйте дані, що знаходяться в комірці A1, наступним кодом.

Код:

 Додаткові робочі таблиці () ("Sheet1"). Активуйте діапазон ("A1"). Скопіюйте кінець Sub

Крок 6: Тепер вставте скопійовані дані в цільову клітинку, яка є коміркою B1, наступним кодом.

Код:

 Додаткові робочі таблиці () Листи ("Sheet1"). Активуйте діапазон ("A1"). Діапазон копіювання ("B1"). PasteSpecial End Sub

Крок 7: Запустіть наведений вище код із наданої кнопки запуску і побачте результат у комірці B1.

Вставка копії VBA - приклад №2

У мене є дані у стовпці C, і я хочу скопіювати цілі дані або значення та вставити їх у стовпчик D за допомогою коду VBA. Подивіться нижче, що є даними у стовпці С і що стовпець D порожній.

Виконайте наведені нижче дії, щоб скопіювати папку для копіювання Excel VBA:

Крок 1: Перейдіть на вкладку розробника і натисніть на Visual Basic, щоб відкрити редактор VB.

Крок 2. Клацніть на вставленому модулі, щоб відкрити вікно коду,

Крок 3: Визначте підфункцію, щоб почати писати код.

Код:

 Sub Sample1 () Кінець Sub

Крок 4: Активуйте робочий аркуш спочатку за допомогою наступного коду.

Код:

 Робочі таблиці Sub Sample1 () ("Sheet1")

Крок 5: Скопіюйте дані у стовпчик С наступним кодом.

Код:

 Sub Sample1 () Робочі таблиці ("Sheet1"). Активуйте діапазон ("C: C"). Скопіюйте кінець Sub

Крок 6: Тепер для вставки даних у стовпчик D використовуйте наступний код.

Код:

 Sub Sample1 () Робочі таблиці ("Sheet1"). Активуйте діапазон ("C: C"). Діапазон копіювання ("D: D"). PasteSpecial End Sub

Крок 7: Запустіть наступний код із наданої кнопки запуску або натисніть F5.

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

Вставка копії VBA - приклад №3

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

Виконайте наведені нижче дії, щоб скопіювати папку для копіювання Excel VBA:

Крок 1: Перейдіть на вкладку розробника і натисніть на Visual Basic, щоб відкрити редактор VB.

Крок 2. Клацніть на вставленому модулі, щоб відкрити вікно коду,

Крок 3: Визначте підфункцію, щоб почати писати код.

Код:

 Sub Sample2 () Кінець Sub

Крок 4: Активуйте робочий аркуш спочатку, щоб використовувати його властивості за допомогою наступного коду.

Код:

 Робочі таблиці Sub Sample2 () ("Sheet1")

Крок 5: Скопіюйте дані в діапазон цільової комірки із наступним кодом.

Код:

 Sub Sample2 () Робочі таблиці ("Sheet1"). Активуйте діапазон ("G1: H3"). Скопіюйте кінець Sub

Крок 6: Тепер для вставки даних у комірку призначення використовуйте наступний код.

Код:

 Sub Sample2 () Робочі таблиці ("Sheet1"). Активуйте діапазон ("G1: H3"). Діапазон копіювання ("I1: J3"). PasteSpecial End Sub

Крок 7: Запустіть наведений вище код із наданої кнопки запуску або натисніть F5, щоб побачити наступний результат.

Вставка копії VBA - приклад №4

У цьому прикладі у мене є дані в рядку 10, і я хочу вставити дані в рядок 11. Подивіться нижче, щоб побачити, що дані в рядку 10, а рядок 11 є вакантними.

Виконайте наведені нижче дії, щоб скопіювати папку для копіювання Excel VBA:

Крок 1: Перейдіть на вкладку розробника і натисніть на Visual Basic, щоб відкрити редактор VB.

Крок 2. Клацніть на вставлений модуль, щоб відкрити вікно коду,

Крок 3: Визначте підфункцію, щоб почати писати код.

Код:

 Sub Sample3 () Кінець Sub

Крок 4: Активуйте робочий аркуш, щоб використовувати властивості робочого аркуша.

Код:

 Робочі таблиці Sub Sample3 () ("Sheet1")

Крок 5: Скопіюйте рядок 10 із наступним кодом.

Код:

 Sub Sample3 () Робочі листи () Sheet1 ". Активуйте рядки (10) .EntireRow.Copy End Sub

Крок 6: Вставте дані рядка 10 у рядок 11 із наступним кодом.

Код:

 Sub Sample3 () Робочі таблиці ("Sheet1"). Активуйте рядки (10) .EntireRow.копіюйте рядки (11) .EntireRow.PasteSpecial End Sub

Крок 7: Запустіть наведений вище код, натиснувши F5, щоб побачити наступний результат.

Що потрібно пам’ятати

  • Щоб використовувати дані з будь-якого робочого аркуша для його копіювання, нам потрібно спочатку активувати аркуш.
  • Аналогічно, коли нам потрібно вставити дані в будь-який інший робочий аркуш VBA, нам потрібно активувати спочатку робочий аркуш призначення.
  • У випадку, якщо ми скопіюємо весь стовпець або рядок і вставимо дані в будь-який інший стовпець, тоді дані будь-де в рядку або стовпці в цільових клітинках будуть скопійовані та вставлені в комірки призначення. Це може спричинити наявність певних небажаних даних.
  • Найкращий спосіб скопіювати дані - скопіювати певний діапазон і вставити дані в цільові комірки.

Рекомендовані статті

Це був посібник для Вставки для копіювання VBA. Тут ми обговорили, як використовувати пасту Excel VBA Copy разом з деякими практичними прикладами та шаблоном Excel, який можна завантажити. Ви також можете ознайомитися з іншими запропонованими нами статтями -

  1. Метод вставки в VBA
  2. Параметр ярлика вставки Excel
  3. Використання функції розділення в VBA
  4. Залишив TRIM в Excel

Категорія:

VBA