Перейти к основному содержанию

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

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

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


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

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

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

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

Внимание: В приведенном выше коде вы можете изменить текстовое значение «В процессе»На любые другие значения, которые вы хотите из сценария. Если InStr (1, xRng.Cells (i, 1) .Value, "In progressing")> 0 Тогда.

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

4. А затем нажмите OK кнопку, и пустые строки были вставлены после определенного текста, который вы указали, см. снимок экрана:


Дополнительные статьи по относительной вставке строк:

  • Скопируйте и вставьте строку несколько раз или продублируйте строку X раз
  • Пробовали ли вы в своей повседневной работе скопировать строку или каждую строку, а затем несколько раз вставить ее под текущей строкой данных на листе? Например, у меня есть диапазон ячеек, теперь я хочу скопировать каждую строку и вставить их 3 раза в следующую строку, как показано на следующем снимке экрана. Как бы вы справились с этой работой в Excel?
  • Вставлять пустые строки при изменении значения в Excel
  • Предположим, у вас есть диапазон данных, и теперь вы хотите вставить пустые строки между данными при изменении значения, чтобы вы могли разделить последовательные одинаковые значения в одном столбце, как показано на следующих снимках экрана. В этой статье я расскажу о некоторых хитростях, которые помогут вам решить эту проблему.
  • Вставить пустую строку над определенным текстом в Excel
  • Когда вы работаете с листом, пробовали ли вы когда-нибудь вставить пустую строку над определенным текстом в столбце? Например, в столбце A есть имена, теперь я хочу вставить пустые строки над ячейками, которые содержат имя «Майк», как показано на скриншоте слева, возможно, у вас нет прямого способа решить эту задачу в Excel. . В этой статье я расскажу о некоторых хороших приемах для решения этой задачи в Excel.

  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Разделить содержимое ячеек; Объедините повторяющиеся строки и сумму / среднее значение... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Избранные и быстро вставляйте формулы, Диапазоны, диаграммы и изображения; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Группировка сводной таблицы по номер недели, день недели и другое ... Показать разблокированные, заблокированные ячейки разными цветами; Выделите ячейки, у которых есть формула / имя...
вкладка kte 201905
  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is so helpful! But how do I add new rows after several different texts. For example, I want to add a row after SB2 and BB2, is this possible? or do I just need to run it two times with two different texts?
This comment was minimized by the moderator on the site
You can use the textjoin function by adding the same word at the end of each line and then delete that word with ctrl+f
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations