¿Cómo insertar una fila automáticamente en Excel según el valor de una celda?
Insertar fila debajo en función del valor de una celda con VBA
Insertar fila encima en función del valor de una celda con Kutools para Excel
Insertar fila debajo en función del valor de una celda con VBA
Para insertar una fila en función del valor de una celda ejecutando VBA, siga los pasos que se indican a continuación:
1. Pulse Alt + F11 simultáneamente y aparecerá una ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y, a continuación, pegue el siguiente código VBA en la ventana del Módulo que aparece.
VBA: Insertar una fila debajo en función del 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. Haga clic en F5 o en el botón Ejecutar; aparecerá un cuadro de diálogo. Seleccione la columna que contiene ceros. Vea la captura de pantalla:
4. Haga clic en Aceptar. A continuación, se insertarán filas en blanco debajo del valor cero.
Consejo:
1. Si desea insertar filas en función de otro valor, puede reemplazar 0 por cualquier valor que desee en el código VBA: If Rng.Value = "0" Then.
2. Si desea insertar filas encima del cero u otro valor, puede 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 en función del valor de una celda con Kutools para Excel
Si no está familiarizado con VBA, puede probar la utilidad Kutools para Excel de Seleccionar celdas específicas y, a continuación, insertar filas encima.
Después de instalar Kutools para Excel, siga los pasos que se indican a continuación:
1. Seleccione la lista en la que desea encontrar las celdas específicas y haga clic en Kutools > Seleccionar > Seleccionar celdas específicas. Vea la captura de pantalla:
2. En el cuadro de diálogo que aparece, active la opción Fila completa, vaya a la lista Igual a de Especificar tipo e introduzca el valor que desea buscar en el cuadro de texto de la derecha. Vea la captura de pantalla:
3. Haga clic en Aceptar y aparecerá un cuadro de diálogo que le recordará el número de filas seleccionadas; simplemente ciérrelo.
4. Coloque el cursor en una de las filas seleccionadas, haga clic con el botón derecho y seleccione Insertar en el menú contextual. Vea la captura de pantalla:
Ahora se han insertado filas encima en función de un valor específico.
Insertar filas Encima en función del valor de una celda
Artículos relacionados:
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos