Как автоматически вставить пустую новую строку с помощью кнопки Command в Excel?

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

Автоматическая вставка пустой новой строки с помощью кнопки Command

Автоматическая вставка пустой новой строки с помощью кнопки Command

Вы можете запустить следующий код VBA для вставки пустой новой строки, нажав на кнопку Command. Пожалуйста, выполните следующие действия.

1. Сначала вам нужно вставить кнопку Command. Пожалуйста, нажмите Разработчик > Вставить > Кнопка Command (Элемент управления ActiveX). Смотрите скриншот:

2. Затем нарисуйте кнопку Command на листе, куда вы хотите добавить новые строки, щелкните правой кнопкой мыши по кнопке Command и выберите Свойства из контекстного меню.

3. В диалоговом окне Свойства введите отображаемый текст кнопки Command в поле Подпись под вкладкой Категоризировано, а затем закройте диалоговое окно.

Вы можете увидеть, что отображаемый текст кнопки Command изменен, как показано на скриншоте ниже.

4. Щелкните правой кнопкой мыши по кнопке Command снова, а затем выберите Просмотр кода из контекстного меню.

5. Затем в окне Microsoft Visual Basic for Applications замените исходный код следующим кодом VBA в окне Код.

Код VBA: Автоматическая вставка пустой новой строки с помощью кнопки Command

Private Sub CommandButton1_Click()
    Dim rowNum As Integer
    On Error Resume Next
    rowNum = Application.InputBox(Prompt:="Enter Row Number where you want to add a row:", _
                                    Title:="Kutools for excel", Type:=1)
    Rows(rowNum & ":" & rowNum).Insert Shift:=xlDown
End Sub

Примечание: В коде CommanButton1 — это имя созданной вами кнопки Command.

6. Нажмите клавиши Alt + Q одновременно, чтобы закрыть окно Microsoft Visual Basic for Applications. И выключите Режим конструктора на вкладке Разработчик.

7. Нажмите на вставленную кнопку Command, и появится диалоговое окно Kutools для Excel. Пожалуйста, введите номер строки, куда вы хотите добавить пустую новую строку, а затем нажмите кнопку ОК. Смотрите скриншот:

Затем пустая новая строка вставляется в указанное место вашего листа, как показано на скриншоте ниже. Она сохраняет форматирование ячеек из верхней ячейки.

Раскройте магию Excel с Kutools AI

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

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

Связанные статьи:

• Как использовать кнопку Command для сохранения активного листа в виде PDF-файла в Excel?
• Как отформатировать ячейку, чтобы она выглядела как 3D-кнопка в Excel?
• Как скрыть или показать кнопку Command на основе определенного значения ячейки в Excel?