Как вставить пустую строку над определенным текстом в 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
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!