Как автоматически вставить строку на основе значения ячейки в Excel?

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

Вставка строки над значением ячейки с помощью Kutools для Excel

Вставка строки под значением ячейки с помощью VBA

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

1. Нажмите клавиши Alt + F11 одновременно, и откроется окно Microsoft Visual Basic for Applications.

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. Поместите курсор на одну из выбранных строк и щелкните правой кнопкой мыши, чтобы выбрать Вставить из контекстного меню. См. скриншот:

Теперь строки вставлены выше на основе определенного значения.

Вставить строки выше на основе значения ячейки

Связанные статьи:

• Вставить пустые строки в Excel