Как вставить пустую строку над определённым текстом в Excel?
 |  |  |
Когда вы работаете с листом, пробовали ли вы когда-нибудь вставлять пустую строку над определённым текстом в столбце? Например, в столбце A указаны имена, и сейчас вы хотите вставить пустые строки над ячейками, содержащими имя «Mike», как показано на скриншоте слева. Возможно, в Excel нет прямого способа решить эту задачу — но в этой статье я расскажу о нескольких эффективных приёмах для выполнения такой операции.
Вставка Пустая строка над определённым текстом с помощью кода VBA
Вставка Пустая строка над определённым текстом с помощью Kutools для Excel
Вставка Пустая строка над определённым текстом с помощью кода VBA
Вставка Пустая строка над определённым текстом вручную по одной ячейке займёт много времени. Здесь я создам для вас код VBA, чтобы вставить Пустая строка над ячейками с заданным значением сразу.
1. Удерживая нажатыми клавиши ALT + F11, откройте окно Microsoft Visual Basic for Applications.
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. После этого нажмите кнопку ОК, и пустые строки будут вставлены над текстом «Mike».
Примечание: в приведённом выше коде вы можете заменить текст «Mike» на любое другое желаемое значение в строке If InStr(1, xRng.Cells(i, 1).Value, «Mike») > 0Then.
Вставка Пустая строка над определённым текстом с помощью Kutools для Excel
Если у вас установлен Kutools для Excel, вы можете сначала выбрать нужные ячейки с помощью его функции Выбрать определенные ячейки, а затем применить стандартную утилиту Excel «Вставить строки листа» для одновременной вставки пустых строк.
После установки Kutools для Excelвыполните следующие действия:
1. Выделите диапазон данных, с которым хотите работать.
2. Затем нажмите Kutools > Выделить > Выбрать определенные ячейки (см. скриншот):
3. В диалоговом окне Выбрать определенные ячейки выберите Ячейка в разделе Выбрать тип, затем укажите необходимые критерии в разделе Указать тип. В данном случае я выбираю Равно в поле Указать тип и ввожу имя, которое нужно выделить (см. скриншот):
4. Нажмите кнопку ОК, и все ячейки со значением «Mike» будут выделены одновременно (см. скриншот):
5. После выделения ячеек с нужным текстом нажмите Главная > Вставка > Вставить строки листа, и пустые строки будут вставлены над выделенным текстом (см. скриншоты):
 | | |
Скачайте и попробуйте бесплатную пробную версию Kutools для Excel прямо сейчас!
Демонстрация: вставка Пустая строка над определённым текстом с помощью Kutools для Excel
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек