Как создать кнопку управления для копирования и вставки данных в Excel?
Предположим, вам часто нужно копировать диапазон ячеек в другое место после изменения данных. В этом случае ручное копирование и вставка будут утомительными и отнимут много времени. Как автоматизировать эту операцию? В данной статье мы покажем, как с помощью одной кнопки управления выполнять копирование и вставку данных одним щелчком мыши.
Создание кнопки управления для копирования и вставки данных с помощью кода VBA
Создание кнопки управления для копирования и вставки данных с помощью кода VBA
Выполните следующие действия, чтобы данные автоматически копировались и вставлялись при нажатии кнопки управления.
1. Вставьте кнопку управления, щёлкнув Разработчик > Вставить > Кнопка управления (элемент управления 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 — это имя вставленной управляющей кнопки. A1:C17 — диапазон, который нужно скопировать, а J1:L17 — диапазон для вставки данных. При необходимости измените их.
4. Нажмите клавиши Alt+Q, чтобы закрыть окно Microsoft Visual Basic для приложений и отключить режим конструктора на вкладке «Разработчик».
5. Теперь при нажатии кнопки управления все данные из диапазона A1:C17 будут скопированы и вставлены в диапазон J1:L17 без сохранения форматирования ячеек.
Раскройте магию Excel с помощью KUTOOLS AI
- Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
- Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
- Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
- Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
- Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
См. также:
- Как сохранить и закрыть текущую книгу без запроса с помощью кнопки управления в Excel?
- Как закрепить кнопку управления, чтобы она всегда оставалась на виду на листе Excel?
- Как обновлять или вставлять текущие дату и время с помощью кнопки управления в Excel?
- Как использовать кнопку управления для изменения значения заданной ячейки в Excel?
- Как использовать кнопку управления для сохранения активного листа в формате PDF в Excel?
- Как с помощью кнопки управления автоматически вставить новую пустую строку в Excel?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек