¿Cómo insertar automáticamente una fila basada en el valor de una celda 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:
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.





- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos