¿Cómo encontrar y eliminar varias coincidencias a la vez en Excel?
Cuando se trabaja con datos de gran tamaño en Excel, es fundamental poder encontrar rápidamente la información que necesita en un momento determinado. Y ahí es cuando necesita la función Buscar y reemplazar, que lo ayuda a buscar y resaltar valores o formatos específicos en la hoja activa o en todo el libro de trabajo y luego hacer lo que quiera con los resultados, por ejemplo, eliminarlos o reemplazarlos. Sin embargo, con Buscar y reemplazar de Excel, solo puede encontrar un valor a la vez. En este tutorial, presentaré una forma rápida de encontrar múltiples valores diferentes y eliminarlos a la vez en Excel.
Encuentre y elimine varias coincidencias a la vez con VBA
Hemos creado dos códigos VBA para ayudarlo a encontrar múltiples valores diferentes en el rango seleccionado o en varias hojas de trabajo y eliminarlos de inmediato. Siga los pasos a continuación y ejecute el código según sus necesidades.
1. En su Excel, presione el botón otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic en recuadro > Módulo. Luego copie cualquiera de los siguientes códigos VBA en el Módulo ventana.
Código VBA 1: busque y elimine varias coincidencias en el rango seleccionado a la vez
Sub FindAndDeleteDifferentValues_Range()
'Updated by ExtendOffice 20220823
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg As Range
Dim xURg As Range
Dim xFindRgs As Range
Dim xFAddress As String
Dim xBol As Boolean
Dim xJ
xArrFinStr = Array("sales", "9", "@") 'Enter the values to delete, enclose each with double quotes and separate them with commas
On Error Resume Next
Set xRg = Application.InputBox("Please select the search scope:", "Kutools for Excel", , Type:=8)
If xRg Is Nothing Then Exit Sub
xBol = False
For Each xARg In xRg.Areas
Set xFindRg = Nothing
Set xFindRgs = Nothing
Set xURg = Application.Intersect(xARg, xARg.Worksheet.UsedRange)
For Each xFindRg In xURg
For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
If xFindRg.Text = xArrFinStr(xJ) Then
xBol = True
If xFindRgs Is Nothing Then
Set xFindRgs = xFindRg
Else
Set xFindRgs = Application.Union(xFindRgs, xFindRg)
End If
End If
Next
Next
If Not xFindRgs Is Nothing Then
xFindRgs.ClearContents
End If
Next
If xBol Then
MsgBox "Successfully deleted."
Else
MsgBox "No results found."
End If
End Sub
Nota: en el fragmento xArrFinStr = Array("ventas", "9", "@") en la fila 13, debe reemplazar "ventas", "9", "@" con los valores reales que desea buscar y eliminar, recuerde encerrar cada valor entre comillas dobles y separarlos con comas.
Código VBA 2: busque y elimine varias coincidencias en varias hojas a la vez
Sub FindAndDeleteDifferentValues_WorkSheets()
'Updated by ExtendOffice 20220823
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg, xFindRgs As Range
Dim xWShs As Worksheets
Dim xWSh As Worksheet
Dim xWb As Workbook
Dim xURg As Range
Dim xFAddress As String
Dim xArr, xArrFinStr
Dim xI, xJ
Dim xBol As Boolean
xArr = Array("Sheet1", "Sheet2") 'Names of the sheets where to find and delete the values. Enclose each with double quotes and separate them with commas
xArrFinStr = Array("sales", "9", "@") 'Enter the values to delete, enclose each with double quotes and separate them with commas
'On Error Resume Next
Set xWb = Application.ActiveWorkbook
xBol = False
For xI = LBound(xArr) To UBound(xArr)
Set xWSh = xWb.Worksheets(xArr(xI))
Set xFindRg = Nothing
xWSh.Activate
Set xFindRgs = Nothing
Set xURg = xWSh.UsedRange
Set xFindRgs = Nothing
For Each xFindRg In xURg
For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
If xFindRg.Text = xArrFinStr(xJ) Then
xBol = True
If xFindRgs Is Nothing Then
Set xFindRgs = xFindRg
Else
Set xFindRgs = Application.Union(xFindRgs, xFindRg)
End If
End If
Next
Next
If Not xFindRgs Is Nothing Then
xFindRgs.ClearContents
End If
Next
If xBol Then
MsgBox "Successfully deleted."
Else
MsgBox "No results found."
End If
End Sub
- en el fragmento xArr = Matriz("Hoja1", "Hoja2") en la fila 15, debe reemplazar "Hoja1", "Hoja2" con los nombres reales de las hojas donde desea buscar y eliminar los valores. Recuerde encerrar los nombres de cada hoja entre comillas dobles y separarlos con comas.
- en el fragmento xArrFinStr = Array("ventas", "9", "@") en la fila 16, debe reemplazar "ventas", "9", "@" con los valores reales que desea buscar y eliminar, recuerde encerrar cada valor entre comillas dobles y separarlos con comas.
3. Prensa F5 para ejecutar el código VBA. Nota: Si utiliza la opcion de Código 1 de VBA, aparecerá un cuadro de diálogo que le pedirá que seleccione el rango donde buscar y eliminar valores. También puede hacer clic en la pestaña de una hoja para seleccionar toda la hoja.
4. Aparecerá el cuadro de diálogo que se muestra a continuación indicándole que el código ha eliminado las coincidencias especificadas. Hacer clic OK para cerrar el diálogo
5. Los valores especificados se han eliminado a la vez.
Encuentre y elimine varias coincidencias a la vez con la función Seleccionar celdas específicas
Kutools para Excel ofrece el Seleccionar celdas específicas característica para encontrar valores que cumplan con una o dos condiciones que establezca a la vez, siga leyendo para descubrir cómo encontrar y eliminar rápidamente varios valores a la vez.
1. Atravez de Kutools pestaña, en el Edición grupo, clic Seleccione > Seleccionar celdas específicas.
- En Seleccionar celdas en este rango cuadro, haga clic en el botón de selección de rango a la derecha para especificar el rango de dónde encontrar y eliminar valores. Nota: Para buscar en toda la hoja, haga clic en la pestaña de la hoja.
- En Tipo de selección sección, seleccione la Celular .
- En Tipo específico sección, establecer como máximo dos condiciones:
- Haga clic en la flecha desplegable en el lado izquierdo para seleccionar la relación que necesita, como contiene, Equivale, Menos que, Empieza con, etc.
- Escriba el valor en la casilla correspondiente según sus necesidades.
- Especifique la relación entre las dos condiciones (si las hay): Y or Or.
3. Hacer clic en Ok para seleccionar las celdas que cumplan las condiciones que establezca. Aparece un cuadro de diálogo que le indica cuántas celdas se encontraron y seleccionaron.
4. Hacer clic en OK. Ahora, presione el botón BORRAR para borrar los valores seleccionados a la vez.
Nota: Para utilizar el Seleccionar celdas específicas característica, debe tener Kutools for Excel instalado en su computadora. Si no tienes Kutools instalado, haga clic aquí para descargar e instalar. El complemento profesional de Excel ofrece una prueba gratuita de 30 días sin limitaciones.
Encuentre y elimine varias coincidencias a la vez en Excel
Artículos relacionados
Buscar, resaltar, filtrar, contar, eliminar duplicados en Excel
En Excel, los datos duplicados ocurren una y otra vez cuando registramos datos manualmente, copiamos datos de otras fuentes o por otras razones. A veces, los duplicados son necesarios y útiles. Sin embargo, a veces los valores duplicados dan lugar a errores o malentendidos. Aquí, este artículo presentará métodos para identificar rápidamente, resaltar, filtrar, contar, eliminar duplicados por fórmulas, reglas de formato condicional, complementos de terceros, etc. en Excel.
¿Cómo comparar dos columnas y eliminar coincidencias en Excel?
Si tiene dos columnas / listas que incluyen algunos duplicados, ahora desea compararlos y encontrar las coincidencias, eliminarlos, ¿cómo puede resolverlos rápidamente? En este artículo, presento diferentes formas de ayudarlo a manejarlo en Excel.
¿Cómo eliminar todos los rangos excepto los seleccionados en Excel?
En Excel, podemos eliminar rápida y directamente los rangos seleccionados, pero ¿alguna vez ha intentado eliminar otros contenidos de celda excepto los rangos seleccionados? En este artículo, te presentaré algunos trucos para que puedas resolver esta tarea en Excel de forma rápida y sencilla.
¿Cómo eliminar todas las imágenes en un rango de celdas?
Si hay varias imágenes en su hoja de trabajo, ahora, desea eliminar algunas de ellas en un rango específico, ¿cómo lo maneja rápidamente?
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!