Note: The other languages of the website are Google-translated. Back to English

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

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

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

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

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


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

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

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

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

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

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

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

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

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

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


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

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

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

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

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

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

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

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

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

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

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

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

 Загрузите бесплатную пробную версию Kutools for Excel прямо сейчас!


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

Kutools for Excel: с более чем 300 удобными надстройками Excel, которые можно попробовать бесплатно без ограничений в течение 30 дней. Загрузите и бесплатную пробную версию прямо сейчас!

Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (7)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Привет, у меня такая же проблема, как и выше. Что делать, если я хочу выбрать ячейку ниже указанного критерия? Например, вы можете использовать пример выше. я хочу выбрать ячейку ниже «Майк». есть ли простой выход?
Этот комментарий был сведен к минимуму модератором на сайте
@SSJ ты когда-нибудь находил решение?
Этот комментарий был сведен к минимуму модератором на сайте
Привет ребята,

Чтобы вставить пустые строки под определенным значением ячейки, вы можете применить следующий код:

Вспомогательная пустая строка ()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Установите WorkRng = Application.Selection
Установите WorkRng = Application.InputBox ("Диапазон", xTitleId, WorkRng.Address, Type: = 8)
Установите WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Приложение.ScreenUpdating = False
Для xRowIndex = xLastRow To 1 Step -1
Установите Rng = WorkRng.Range("A" & xRowIndex)
Если Rng.Value = "Майк" Тогда
Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown
End If
Далее
Application.ScreenUpdating = True
End Sub

Пожалуйста, измените критерий "Майк" на собственное значение ячейки.

Надеюсь, это поможет вам, спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
спасибо! это сработало.
Этот комментарий был сведен к минимуму модератором на сайте
Это было удивительно для данных, которые у меня есть. Мне было интересно, не могли бы вы помочь мне сделать еще один шаг вперед. Я смог разделить свои данные на основе этого, но затем мне нужно раскрасить группы данных. Когда я разделяю свои данные, у меня есть переменное количество строк от 1 до 50, и у меня есть 36 столбцов данных, включая 32 столбца, которые мне нужны для сравнения значений внутри с верхней строкой. В настоящее время я вручную выбираю каждую группу (разделенную пустой строкой), а затем использую ctrl+shift+| для выделения различий в столбцах и форматирования этих ячеек для выделения различий.


Есть ли кто-нибудь, кто мог бы написать код для выбора и форматирования этих различий в столбцах внутри групп, используя пустую строку в качестве разделителя?
Этот комментарий был сведен к минимуму модератором на сайте
Есть ли способ не отображать диалоговое окно с всплывающим окном, чтобы напомнить мне выбрать данные столбца, которые содержат определенный текст, который я хочу вставить в строку выше. Если указанная ячейка заполнена данными, то процесс запускается автоматически, без подсказок и вставляется ряд выше?
Этот комментарий был сведен к минимуму модератором на сайте
Я пытаюсь сделать это, чтобы поместить пустую строку после каждой непустой ячейки, но Excel говорит. «Эту команду нельзя использовать для множественного выбора»
Почему у меня не работает???
Здесь еще нет комментариев
Пожалуйста, оставляйте свои комментарии на английском языке
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL