Как создать командную кнопку для копирования и вставки данных в Excel?

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

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

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

Чтобы автоматически копировать и вставлять данные при нажатии кнопки управления, сделайте следующее.

1. Вставьте командную кнопку, нажав Застройщик > Вставить > Командная кнопка (элемент управления ActiveX). Смотрите скриншот:

2. Нарисуйте кнопку Command на листе и щелкните ее правой кнопкой мыши. Выбрать Просмотреть код из контекстного меню.

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. Нажмите другой + Q ключи, чтобы закрыть Microsoft Visual Basic для приложений окно. И выключите режим дизайна на вкладке разработчика.

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

Разблокируйте магию Excel с помощью Kutools AI

• Умное исполнение: выполнение операций с ячейками, анализ данных и создание диаграмм — и все это осуществляется с помощью простых команд.
• Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации рабочих процессов.
• VBA-кодирование: Пишите и внедряйте код VBA без особых усилий.
• Интерпретация формулы: Легкое понимание сложных формул.
• Перевод текста: преодолевайте языковые барьеры в своих таблицах.

Расширьте свои возможности Excel с помощью инструментов на базе искусственного интеллекта. Скачать сейчас и испытайте эффективность, как никогда раньше!

Статьи по теме:

• Как сохранить и закрыть активную книгу без запроса командной кнопки в Excel?
• Как всегда перемещать командную кнопку на листе в Excel?
• Как обновить или вставить (текущую) дату и время с помощью командной кнопки в Excel?
• Как использовать командную кнопку для изменения указанного значения ячейки в Excel?
• Как использовать командную кнопку для сохранения активного рабочего листа в виде файла PDF в Excel?
• Как автоматически вставить новую пустую строку с помощью командной кнопки в Excel?