Как вставить или удалить часть строки в Excel?

В Excel легко вставить или удалить целую строку на листе. Но как вставить или удалить только часть строки с листа? Эта статья вам поможет.

Вставка или удаление части строки с помощью функции Вставить/Удалить ячейки
Вставка или удаление части строки с помощью кода VBA

Вставка или удаление части строки с помощью функции Вставить/Удалить ячейки

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

Вставка части строки

1. Выберите три ячейки в строке 5 (выбранные ячейки должны быть равны вставленным ячейкам), затем нажмите Вставить > Вставить ячейки на вкладке Главная. См. скриншот:

2. В диалоговом окне Вставить выберите опцию Сдвинуть ячейки вправо или Сдвинуть ячейки вниз, а затем нажмите кнопку ОК.

Затем часть строки с тремя ячейками будет вставлена, как показано на скриншоте ниже.

Удаление части строки

1. После выбора части строки, которую вы хотите удалить, нажмите Удалить > Удалить ячейки на вкладке Главная.

2. В диалоговом окне Удалить выберите Сдвинуть ячейки влево или Сдвинуть ячейки вверх по мере необходимости, а затем нажмите кнопку ОК. См. скриншот:

Затем выбранная часть строки будет удалена.

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

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

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

Вставка или удаление части строки с помощью кода VBA

Вы также можете применить следующие коды VBA для вставки или удаления части строки в Excel.

1. Выберите любую ячейку в определенной строке, куда вы хотите вставить частичные строки, затем нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. В окне Microsoft Visual Basic for Applications нажмите Вставить > Модуль. Затем скопируйте и вставьте приведенный ниже код VBA в окно Код.

Код VBA: Вставка части строки в Excel

Sub InsertRow()
    Dim I As Long
    On Error Resume Next
LInput:
    I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
    If I < 1 Then
        MsgBox "Error, please retype", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Insert xlDown
End Sub

Примечание: В коде VBA число 1 означает, что частичная строка будет вставлена с первого столбца, а число 3 означает, что между столбцами будут вставлены три ячейки. Вы можете изменить их в зависимости от ваших потребностей.

3. Нажмите клавишу F5 для запуска кода, затем появится диалоговое окно Kutools для Excel, пожалуйста, введите необходимое количество строк и нажмите кнопку ОК.

Если вы введете 3 в поле, после нажатия кнопки ОК, три частичные строки с тремя столбцами будут вставлены в указанное место вашего листа.

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

Код VBA: Удаление части строки в Excel

Sub DelActiveCell_Row()
    Dim I As Long
    On Error Resume Next
LInput:
    I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
    If I < 1 Then
        MsgBox " Error, please retype", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Delete xlShiftUp
End Sub

После запуска кода также появится диалоговое окно Kutools для Excel, напоминающее вам, сколько частичных строк вы хотите удалить, пожалуйста, введите число и нажмите кнопку ОК. Затем указанные частичные строки будут немедленно удалены.