Как вставить пустую строку после определенного текста в Excel?

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

Вставка пустых строк после определенного текста с помощью кода VBA

Вставка пустых строк после определенного текста с помощью Kutools AI

Вставка пустых строк после определенного текста с помощью кода VBA

Вы можете применить следующий код VBA для вставки пустых строк после нужного вам конкретного текста, сделайте следующее:

1. Нажмите и удерживайте клавиши "ALT + F11", чтобы открыть окно "Microsoft Visual Basic for Applications".

2. Щелкните "Вставить" > "Модуль" и вставьте следующий код в окно Модуля.

Код VBA: Вставка пустых строк после определенного текста

Sub Insertrowbelow()
'updateby Extendoffice
    Dim i As Long
    Dim xLast As Long
    Dim xRng As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = Application.ActiveWindow.RangeSelection.Address
    Set xRng = Application.InputBox("please select the column with specific text:", "Kutools for Excel", xTxt, , , , , 8)
    If xRng Is Nothing Then Exit Sub
    If (xRng.Columns.Count > 1) Then
        MsgBox "the selected range must be one column", , "Kutools for Excel"
        Exit Sub
    End If
    xLast = xRng.Rows.Count
    For i = xLast To 1 Step -1
      If InStr(1, xRng.Cells(i, 1).Value, "In progressing") > 0 Then
        Rows(xRng.Cells(i + 1, 1).Row).INSERT shift:=xlDown
      End If
    Next
End Sub

Примечание: В приведенном выше коде вы можете заменить текст "In progressing" в этом скрипте "If InStr(1, xRng.Cells(i, 1).Value, "In progressing") > 0 Then".

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

4. Затем нажмите кнопку ОК, и пустые строки будут вставлены после указанного текста, см. скриншот:

Вставка пустых строк после определенного текста с помощью Kutools AI

Испытываете трудности с вставкой пустых строк после определенного текста в Excel? Пусть "Kutools AI" упростит эту задачу для вас! Благодаря своим мощным возможностям искусственного интеллекта, вам больше не нужно вручную просматривать набор данных или писать сложный код VBA. Kutools AI мгновенно определит строки с указанным текстом и вставит пустые строки именно там, где они нужны.

После установки Kutools For Excel нажмите "Kutools" > "AI Ассистент", чтобы открыть панель "KUTOOLS AI Помощник".

1. Выберите столбец данных, в котором вы хотите вставить пустые строки на основе определенного текста;
2. Затем введите запрос в окне чата, например:
   Вставить пустую строку после определенного текста "In progressing" из выделенного фрагмента
3. Затем нажмите клавишу Enter или кнопку "Отправить". Kutools AI проанализирует вопрос, а после завершения анализа нажмите кнопку "Выполнить", чтобы получить результат.

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

Больше статей о вставке строк: