Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

doc вставить строку над определенным текстом 1  2 doc вставить строку над определенным текстом 2

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

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

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


Выберите конкретный текст и вставьте пустые строки над ними:

Kutools for Excel's Выберите конкретные ячейки вы можете быстро выбрать целые строки, которые содержат конкретный текст или номер, как вам нужно, а затем вы можете удалить строки или вставить строки bkank над текстом как можно скорее.

doc вставить строку над определенным текстом 8

Kutools for Excel: с более чем 200 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни. Скачать и бесплатно пробную версию!


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


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

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

2. Щелчок Вставить > модуль, а затем вставьте следующий макрос в модуль Окно.

Код VBA: быстро вставьте пустую строку над определенным текстом

Sub test1()
'updateby Extendoffice 20151030
    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, "Mike") > 0 Then
        Rows(xRng.Cells(i, 1).Row).Insert shift:=xlDown
      End If
    Next
End Sub

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

doc вставить строку над определенным текстом 3

4, Затем нажмите OK , пустые строки были вставлены над конкретным текстом «Майк».

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


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

Если у вас есть Kutools for Excel, С его Выберите конкретные ячейки , вы можете сначала выбрать указанные значения ячеек, а затем применить утилиту Insert Sheet Rows для Excel, чтобы сразу вставить пустые строки.

Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни.

После установки Kutools for Excel, сделайте следующее:

1, Выберите диапазон данных, который вы хотите использовать.

2, Затем нажмите Kutools > Выбрать > Выберите конкретные ячейки, см. снимок экрана:

doc вставить строку над определенным текстом 4

3. В Выберите конкретные ячейки диалоговое окно, выберите Ячейка под Тип выбора, а затем укажите критерии, которые вам нужны в соответствии с Конкретный тип раздел, в этом случае я выберу Равно из Конкретный тип, и введите имя, которое я хочу выбрать, см. снимок экрана:

doc вставить строку над определенным текстом 5

4, Затем нажмите Ok , все ячейки, значение которых Mike выбраны сразу, см. снимок экрана:

doc вставить строку над определенным текстом 6

5. После выбора конкретных текстовых ячеек нажмите Главная > Вставить > Вставить строки строк, и пустые строки будут вставлены над выбранным текстом, см. скриншоты:

doc вставить строку над определенным текстом 7  2 doc вставить строку над определенным текстом 2

Скачать и бесплатно пробную версию Kutools для Excel сейчас!


Демонстрация: добавьте пустую строку над определенным текстом с помощью Kutools for Excel

Kutools for Excel: с более чем 200 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни. Скачать и бесплатно пробную версию!


  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905
  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    JK · 1 years ago
    This has been amazing for the data I have. I was wondering if you could help me one step further. I have been able to split my data based on this, but then I need to colour code my groups of data. When I split my data I have a variable number of rows from 1-50, and I have 36 columns of data including 32 columns that I need to compare the values within to the top row. I am currently manually selecting each group (as separated by a blank row) and then using ctrl+shift+| to highlight column differences, and formatting those cells to highlight the differences.


    Is there anyone who could write a code to select and format those column differences within the groupings, using the blank row as a separator?
  • To post as a guest, your comment is unpublished.
    SSJ · 3 years ago
    Hi, i have a similar problem as the one above.
    What if i want to select the cell below a specified criteria?

    For example, you can use the example from above. i want to select the cell below "Mike". is there any easy way out?
    • To post as a guest, your comment is unpublished.
      Shawn · 1 years ago
      @SSJ did you ever find a solution?
      • To post as a guest, your comment is unpublished.
        skyyang · 1 years ago
        Hello, guys,

        To insert blank rows below a specific cell value, you can apply the following code:

        Sub BlankLine()
        Dim Rng As Range
        Dim WorkRng As Range
        On Error Resume Next
        xTitleId = "KutoolsforExcel"
        Set WorkRng = Application.Selection
        Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
        Set WorkRng = WorkRng.Columns(1)
        xLastRow = WorkRng.Rows.Count
        Application.ScreenUpdating = False
        For xRowIndex = xLastRow To 1 Step -1
        Set Rng = WorkRng.Range("A" & xRowIndex)
        If Rng.Value = "Mike" Then
        Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown
        End If
        Next
        Application.ScreenUpdating = True
        End Sub

        Please change the criteria "Mike" to your own cell value.

        Hope it can help you, thank you!