¿Cómo eliminar filas que no contienen cierto texto en Excel?
Quizás algunos de ustedes sepan cómo eliminar las filas enteras cuando contienen algunos textos determinados en Excel, pero si desea completar la fila cuando no contienen ciertos textos, ¿cómo podría hacerlo? Ahora, siga este tutorial, puede encontrar la manera de resolver este problema en Excel.
Elimina filas que no contienen cierto texto con Filtro
Eliminar filas que no contienen cierto texto con VBA
Eliminar filas que no contienen cierto texto con Kutools para Excel
Elimina filas que no contienen cierto texto con Filtro
En Excel, la función Filtro puede ayudarlo rápidamente a filtrar las filas que no contienen cierto texto, y luego puede seleccionarlas para eliminarlas.
1. Seleccione la columna que contiene los textos en los que eliminará las filas y haga clic en Datos > Filtrar. Ver captura de pantalla:
 |
 |
 |
2. En el encabezado de la columna, hay un botón de filtro y haga clic en él para abrir la lista desplegable, marque todo excepto el texto en el que desea basarse. Ver captura de pantalla:
3. Entonces puede ver solo la fila del encabezado y se filtran las filas que no contienen cierto texto. Ver captura de pantalla:
4. Seleccione todos ellos excepto la fila de encabezado, y haga clic derecho para seleccionar Borrar fila desde el menú contextual. Ver captura de pantalla:
5. Luego haga clic Datos > Filtrar de nuevo, y luego se eliminan todas las filas que no contienen cierto texto. Ver captura de pantalla:
 |
|
 |
Eliminar filas que no contienen cierto texto con VBA
VBA es muy útil para operaciones algo difíciles en Excel y siga los pasos a continuación para eliminar las filas que no contienen cierto texto.
1. Prensa Alt + F11 para mostrar el Microsoft Visual Basic para aplicaciones ventana.
2. En la ventana, haga clic en recuadro > Módulo para mostrar una nueva ventana del módulo, luego copie el siguiente código VBA en la ventana del módulo.
VBA: elimine toda la fila si la celda contiene cierto texto.
Sub DeleteRowNoInclude()
'Update20140618
Dim xRow As Range
Dim rng As Range
Dim WorkRng As Range
Dim xStr As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xStr = Application.InputBox("Text", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
For i = WorkRng.Rows.Count To 1 Step -1
Set xRow = WorkRng.Rows(i)
Set rng = xRow.Find(xStr, LookIn:=xlValues)
If rng Is Nothing Then
xRow.Delete
End If
Next
Application.ScreenUpdating = True
End Sub
4. Luego haga clic OKy escriba el texto en el que desea eliminar las filas en otro cuadro de diálogo emergente. Ver captura de pantalla:
5. Hacer clic en OKy se eliminarán las filas que no contengan Apple.
Eliminar filas que no contienen cierto texto con Kutools para Excel
Si cree que los métodos anteriores no son fáciles para usted, puede utilizar Kutools for Excel's Seleccionar celdas específicas .
Kutools for Excel incluye más de 300 útiles herramientas de Excel. Prueba gratis sin límite en 30 días. Comprar ahora
1. Seleccione la columna en la que desea eliminar las filas que no contienen cierto texto y haga clic en Kutools > Seleccionar herramientas > Seleccionar celdas específicas. Ver captura de pantalla:
2. Y en el Seleccionar celdas específicas diálogo, comprobar Fila completaY seleccione No contieney escriba el texto determinado en el cuadro de texto, también puede hacer clic en el botón de rango en el Tipo específico sección para seleccionar la celda que contiene el texto determinado.
3. Luego haga clic Ok, luego se seleccionan las filas que no contienen cierto texto, haga clic derecho para seleccionar Borrar desde el menú contextual. Ver captura de pantalla:
4. Ahora se eliminan todas las filas que no contienen cierto texto en el rango. Haga clic en ella para obtener más información sobre Seleccionar celdas específicas.
Artículos relativos:
- Eliminar filas enteras si la celda no contiene cero en Excel
- Eliminar filas que no coinciden con los criterios en otra hoja
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite 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 de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
