Как вставить пустую строку над определенным текстом в Excel?
 |
 |
 |
Когда вы работаете с листом, пробовали ли вы когда-нибудь вставить пустую строку над определенным текстом в столбце? Например, в столбце 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 нажмите клавишу для запуска этого кода, и появится диалоговое окно, напоминающее вам о выборе данных столбца, которые содержат определенный текст, который вы хотите вставить в строку выше, см. снимок экрана:
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. В Выбрать определенные ячейки диалоговое окно, выберите Ячейка под Тип выбора, а затем укажите необходимые критерии в поле Конкретный тип раздел, в этом случае я выберу Равно из Конкретный тип, и введите имя, которое я хочу выбрать, см. снимок экрана:
4. Затем нажмите Ok Кнопка, все ячейки со значением Mike выбираются сразу, см. снимок экрана:
5. После выбора конкретных текстовых ячеек нажмите Главная > Вставить > Вставить строки листа, а пустые строки будут вставлены над выделенным текстом, см. скриншоты:
 |
|
|
Загрузите бесплатную пробную версию Kutools for Excel прямо сейчас!
Демо: вставьте пустую строку над определенным текстом с помощью Kutools for Excel
Лучшие инструменты для работы в офисе
Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%
- Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
- Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
- Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
- Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
- Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
- Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
- Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
- Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
- Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
