Как автоматически вставить строку в Excel на основе значения ячейки?
Вставка строки ниже на основе значения ячейки с помощью VBA
Вставка строки выше на основе значения ячейки с помощью Kutools для Excel
Вставка строки ниже на основе значения ячейки с помощью VBA
Чтобы вставить строку на основе значения ячейки с помощью запуска кода VBA, выполните следующие действия:
1. Нажмите Alt + F11 одновременно, и откроется окно Microsoft Visual Basic для приложений.
2. Нажмите Вставка > Модуль, затем вставьте приведённый ниже код VBA в появившееся окно Модуля.
VBA: вставка строки ниже на основе значения в ячейке.
Sub BlankLine()
'Updateby20150203
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 = "0" Then
Rng.Offset(1, 0).EntireRow.Insert Shift: = xlDown
End If
Next
Application.ScreenUpdating = True
End Sub
3. Нажмите F5 или кнопку Выполнить — появится диалоговое окно, в котором нужно выбрать столбец, содержащий нули. См. снимок экрана:
4. Нажмите ОК. После этого пустые строки будут вставлены ниже ячеек со значением ноль.
Совет:
1. Если вы хотите вставить строки на основе другого значения, замените 0 на нужное вам значение в строке VBA: If Rng.Value = "0" Then.
2. Если вы хотите вставить строки выше нуля или другого значения, воспользуйтесь приведённым ниже кодом VBA.
VBA: вставка строки выше ячейки со значением ноль:
Sub BlankLine()
'Updateby20150203
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 = "0" Then
Rng.EntireRow.Insert Shift: = xlDown
End If
Next
Application.ScreenUpdating = True
End Sub
Вставка строки выше на основе значения ячейки с помощью Kutools для Excel
Если вы не знакомы с VBA, попробуйте утилиту Kutools для Excel — выберите Выбрать определенные ячейки, а затем вставьте строки выше.
После установки Kutools для Excel выполните следующие действия:
1. Выделите диапазон, в котором нужно найти нужные ячейки, и нажмите Kutools > Выделить > Выбрать определенные ячейки. См. снимок экрана:
2. В появившемся диалоговом окне отметьте опцию Вся строка, затем выберите Равно из списка Указать тип и введите нужное значение в поле справа. См. снимок экрана:
3. Нажмите ОК, и появится диалоговое окно с количеством выделенных строк — просто закройте его.
4. Установите курсор на одну из выделенных строк, щёлкните правой кнопкой мыши и выберите команду Вставить в контекстном меню. См. снимок экрана:
Теперь строки вставлены выше в соответствии с указанным значением.
Вставить строки выше на основе значения ячейки
См. также:
Лучшие инструменты повышения продуктивности в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек