¿Cómo insertar automáticamente una fila basada en el valor de una celda en Excel?

Supongamos que tienes un rango de datos y quieres insertar automáticamente filas en blanco encima o debajo de un cierto valor en Excel, por ejemplo, insertar automáticamente filas debajo del valor cero como se muestra en la captura de pantalla a continuación. En Excel, no hay una manera directa de resolver esta tarea, pero puedo presentarte un código Macro para insertar automáticamente filas basadas en un determinado valor en Excel.
Insertar fila debajo basada en el valor de una celda con VBA

Insertar fila encima basada en el valor de una celda con Kutools para Excel

Insertar fila debajo basada en el valor de una celda con VBA

Para insertar una fila basada en el valor de una celda ejecutando VBA, sigue los siguientes pasos:

1. Presiona simultáneamente las teclas Alt + F11, y aparecerá una ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, luego pega el siguiente código VBA en la ventana del Módulo emergente.

VBA: Insertar fila debajo basada en el valor de una celda.

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. Haz clic en F5 o en el botón Ejecutar Aparecerá un cuadro de diálogo, selecciona la columna que contiene cero. Ver captura de pantalla:

4. Haz clic en Aceptar. Luego se insertarán filas en blanco debajo del valor cero.

Consejo:

1. Si deseas insertar filas basadas en otro valor, puedes cambiar 0 por cualquier valor que desees en el VBA: If Rng.Value = "0" Then.

2. Si deseas insertar filas encima de cero u otro valor, puedes usar el siguiente código vba.

VBA: Insertar fila encima del valor cero:

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

Insertar fila encima basada en el valor de una celda con Kutools para Excel

Si no estás familiarizado con VBA, puedes probar la utilidad Seleccionar celdas específicas de Kutools para Excel, y luego insertar filas encima.

Después de instalar Kutools para Excel, sigue los siguientes pasos:

1. Selecciona la lista desde la cual deseas encontrar las celdas específicas y haz clic en Kutools > Seleccionar > Seleccionar celdas específicas. Ver captura de pantalla:

2. En el cuadro de diálogo emergente, marca la opción Fila completa y luego ve a seleccionar Igual desde Especificar tipo lista, y luego introduce el valor que deseas encontrar en el cuadro de texto de la derecha. Ver captura de pantalla:

3. Haz clic en Aceptar, y aparecerá un cuadro de diálogo recordándote el número de filas seleccionadas, simplemente ciérralo.

4. Coloca el cursor en una fila seleccionada, haz clic derecho y selecciona Insertar en el menú contextual. Ver captura de pantalla:

Ahora las filas se han insertado encima basadas en un valor específico.

Insertar filas encima basadas en el valor de una celda

Artículos relacionados:

• Insertar filas en blanco en Excel