Перейти до основного матеріалу

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

Автор: Силувій Остання зміна: 2024-08-26

Припустимо, вам потрібно часто копіювати діапазон комірок в інше місце після зміни даних, метод ручного копіювання та вставки буде непомітним і трудомістким. Як зробити так, щоб цей процес копіювання та вставлення запускався автоматично? Ця стаття покаже, як за допомогою командної кнопки копіювати та вставляти дані лише одним клацанням миші.

Створіть кнопку команди, щоб скопіювати та вставити дані за допомогою коду VBA


Створіть кнопку команди, щоб скопіювати та вставити дані за допомогою коду VBA

Будь ласка, виконайте наступні дії, щоб автоматично копіювати та вставляти дані, натискаючи кнопку команди.

1. Вставте командну кнопку, клацнувши Розробник > Insert > Кнопка керування (керування ActiveX). Дивіться знімок екрана:

натисніть кнопку команди на вкладці розробника

2. Намалюйте на своєму аркуші командну кнопку та клацніть правою кнопкою миші. Виберіть Переглянути код з контекстного меню.

намалюйте кнопку та натисніть Переглянути код у контекстному меню

3. У спливаючому Microsoft Visual Basic для додатків вікно, будь ласка, замініть оригінальний код у вікні коду на код VBA нижче.

Код VBA: Скопіюйте та вставте дані в Excel за допомогою командної кнопки

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Dim xSheet As Worksheet
    Set xSheet = ActiveSheet
        If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
            xSheet.Range("A1:C17 ").Copy
            xSheet.Range("J1:L17").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End If

    Application.ScreenUpdating = True
End Sub

Примітка:: У коді CommandButton1 - це назва вставленої кнопки Command. A1: C17 - діапазон, який потрібно скопіювати, а J1: L17 - діапазон призначення, щоб вставити дані. Будь ласка, змініть їх, як вам потрібно.

4. прес інший + Q клавіші, щоб закрити Microsoft Visual Basic для додатків вікно. І вимкніть Режим дизайну на вкладці Розробник.

5. Тепер натисніть кнопку команди, всі дані в діапазоні A1: C17 будуть скопійовані та вставлені в діапазон J1: L17 без форматування комірки.

знімок екрана kutools для excel ai

Розкрийте магію Excel за допомогою Kutools AI

  • Розумне виконання: Виконуйте операції з комірками, аналізуйте дані та створюйте діаграми — усе це керується простими командами.
  • Спеціальні формули: створюйте індивідуальні формули для оптимізації робочих процесів.
  • Кодування VBA: Напишіть і реалізуйте код VBA без зусиль.
  • Інтерпретація формул: Розумійте складні формули з легкістю.
  • Переклад тексту: Подолайте мовні бар’єри у ваших електронних таблицях.
Розширте свої можливості Excel за допомогою інструментів на основі ШІ. Завантажити зараз і відчуйте ефективність, як ніколи раніше!

Статті по темі:

Найкращі інструменти продуктивності офісу

🤖 Kutools А. І. помічник: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  волати Kutools Функції...
Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Інструменти (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Інструменти (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Інструменти (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Інструменти (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше
Скористайтеся кнопкою Kutools вашою бажаною мовою – підтримується англійська, іспанська, німецька, французька, китайська та понад 40 інших!

Покращуйте свої навички Excel за допомогою Kutools for Excel, і відчуйте ефективність, як ніколи раніше. Kutools for Excel Пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...


Office Tab Надає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!