¿Cómo insertar una fila en blanco encima de un texto específico en Excel?
 |  |  |
¿Ha intentado alguna vez, mientras trabaja en una hoja de cálculo, insertar una fila en blanco justo encima de un texto específico en una columna? Por ejemplo, supongamos que en la columna A hay varios nombres y desea insertar filas en blanco encima de todas las celdas que contienen el nombre «Mike», tal como se muestra en la captura de pantalla de la izquierda. Aunque Excel no ofrece una forma directa de realizar esta tarea, en este artículo le mostraré algunos trucos útiles para lograrlo con facilidad.
Insertar Fila en blanco encima de un texto específico con código VBA
Insertar Fila en blanco encima de un texto específico con Kutools para Excel
Insertar Fila en blanco encima de un texto específico con código VBA
Insertar filas en blanco manualmente, una por una, encima de un texto específico consume mucho tiempo. Por eso, he creado un código VBA que le permite insertar filas en blanco inmediatamente encima de un valor de celda determinado.
1. Mantenga pulsadas las teclas ALT + F11 y se abrirá la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y, a continuación, pegue la siguiente macro en la ventana del Módulo.
Código VBA: Insertar Fila en blanco encima de un texto específico rápidamente
Sub test1()
'updateby Extendoffice
Dim i As Long
Dim xLast As Long
Dim xRng As Range
Dim xTxt As String
On Error Resume Next
xTxt = Application.ActiveWindow.RangeSelection.Address
Set xRng = Application.InputBox("please select the column with specific text:", "Kutools for Excel", xTxt, , , , , 8)
If xRng Is Nothing Then Exit Sub
If (xRng.Columns.Count > 1) Then
MsgBox "the selected range must be one column", , "Kutools for Excel"
Exit Sub
End If
xLast = xRng.Rows.Count
For i = xLast To 1 Step -1
If InStr(1, xRng.Cells(i, 1).Value, "Mike") > 0 Then
Rows(xRng.Cells(i, 1).Row).Insert shift:=xlDown
End If
Next
End Sub
3. A continuación, pulse la tecla F5 para ejecutar este código y aparecerá un cuadro de diálogo que le pedirá que seleccione los datos de la columna que contiene el texto específico encima del cual desea insertar filas; consulte la captura de pantalla:
4. A continuación, haga clic en el botón Aceptar y se habrán insertado filas en blanco encima del texto específico «Mike».
Nota: En el código anterior, puede reemplazar el valor de texto «Mike» por cualquier otro que desee en la línea del script If InStr(1, xRng.Cells(i, 1).Value, «Mike») > 0Then.
Insertar Fila en blanco encima de un texto específico con Kutools para Excel
Si dispone de Kutools para Excel, con su función Seleccionar celdas específicas podrá seleccionar primero los valores de celda especificados y, a continuación, aplicar la utilidad Insertar filas de hoja de Excel para insertar filas en blanco de forma inmediata.
Tras instalar Kutools para Excel, siga estos pasos:
1. Seleccione el rango de datos que desea utilizar.
2. A continuación, haga clic en Kutools > Seleccionar > Seleccionar celdas específicas; consulte la captura de pantalla:
3. En el cuadro de diálogo Seleccionar celdas específicas, seleccione Celda en Seleccionar tipo y, a continuación, especifique los criterios necesarios en la sección Especificar tipo. En este caso, elegiré Igual a en el menú desplegable Especificar tipo e introduciré el nombre que deseo seleccionar. Consulte la captura de pantalla:
4. A continuación, haga clic en el botón Aceptar y todas las celdas cuyo valor sea «Mike» se seleccionarán de inmediato. Consulte la captura de pantalla:
5.Tras seleccionar las celdas con el texto específico, haga clic en Inicio>Insertar>Insertar filas de hoja, y las Filas en blanco se insertarán encima del texto seleccionado; consulte las capturas de pantalla:
 | | |
¡Descargue y pruebe gratis Kutools para Excel ahora!
Demostración: Insertar Fila en blanco encima de un texto específico con Kutools para Excel
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