Saltar al contenido principal

¿Cómo eliminar filas duplicadas y mantener los valores más altos solo en Excel?

Por ejemplo, tiene una tabla de compras en Excel como se muestra en la primera captura de pantalla. Ahora debe eliminar las filas duplicadas según la columna Fruta y mantener los valores más altos de las frutas correspondientes en la columna Cantidad como se muestra en la segunda captura de pantalla. ¿Se te ocurre alguna solución? Este artículo compartirá dos trucos para solucionarlo.

Elimine filas duplicadas y mantenga los valores más altos solo con VBA

Elimine filas duplicadas y mantenga los valores más altos solo con Kutools para Excel

Elimine fácilmente las filas duplicadas según los criterios en una columna y solo mantenga los valores más altos en Excel

Kutools para Excel Filas combinadas avanzadas La utilidad puede ayudar a los usuarios de Excel a encontrar rápidamente el valor máximo del valor mínimo de cada elemento en otra columna con facilidad.

anuncio avanzado combinar filas máx.

Esta utilidad de combinación avanzada de filas también puede combinar filas y valores separados por marcas especificadas, o combinar filas y calcular sus sumas, número de ocurrencias, valores máximos / mínimos, promedios, etc.


Supongamos que tiene una tabla como se muestra a continuación. Y este método introducirá una macro de VBA para eliminar filas duplicadas según una determinada columna y mantener los valores más altos solo en otra columna en Excel. Haz lo siguiente:

1. presione el otro + F11 teclas simultáneamente para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Hacer clic en recuadro > Móduloy pegue el siguiente código en la nueva ventana del módulo de apertura.

VBA: elimine filas duplicadas y mantenga los valores más altos

Public Sub DelDupes()
Dim xFilterRg As Range
Dim xCriteriaRg As Range
Dim xAddress As String
Dim xSUpdate As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xFilterRg = Application.InputBox("Please select a range:", "Kutools for Excel", xAddress, , , , , 8)
If xFilterRg Is Nothing Then Exit Sub
Set xFilterRg = Application.Intersect(ActiveSheet.UsedRange, xFilterRg)
If xFilterRg Is Nothing Then Exit Sub
On Error GoTo 0
xSUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
Set xCriteriaRg = ActiveSheet.Cells(1, xFilterRg.Column + xFilterRg.Columns.Count).Resize(2)
xCriteriaRg.Resize(1).Offset(1).Formula = "=COUNTIF(" & xFilterRg(2, 1).Address & ":" & _
xFilterRg(2, 1).Address(False, False) & "," & _
xFilterRg(2, 1).Address(False, False) & ")>1"
With xFilterRg
.Sort key1:=xFilterRg.Cells(1, 1).Offset(0, 1), order1:=xlDescending, Header:=xlYes
.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=xCriteriaRg
.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
.Parent.ShowAllData
End With
xCriteriaRg.Clear
Application.ScreenUpdating = xSUpdate
End Sub

3. presione el F5 o haga clic en el Ejecutar botón para ejecutar este VBA.

4. Ahora aparece un cuadro de diálogo. Seleccione las columnas en las que eliminará las filas duplicadas y reserve los valores más altos, y haga clic en el OK del botón.

En nuestro caso, eliminaremos filas duplicadas por la columna de frutas y mantendremos los valores más altos en la columna de cantidad, por lo tanto, selecciono la columna de frutas y la columna de cantidad como se muestra en la captura de pantalla anterior.

Luego, verá que las filas duplicadas se eliminan según la columna Fruta, y los valores más altos de las frutas correspondientes se mantienen en la columna Cantidad. Ver captura de pantalla:

Notas:

(1) El rango especificado debe comenzar con la columna por la que eliminará las filas duplicadas.

(2) Este VBA solo puede mantener los valores más altos en la columna justo detrás de la columna por la que eliminó las filas duplicadas.

(3) Este VBA no funciona en Microsoft Excel 2007.


El VBA anterior puede no ser lo suficientemente fácil para algunos usuarios, y solo puede mantener los valores más altos en la columna detrás de la columna de criterios. Pero Kutools para Excel Filas combinadas avanzadas La utilidad le ayudará a resolver este problema fácilmente.

Kutools for Excel - Equipado con más de 300 herramientas esenciales para Excel. ¡Disfrute de una prueba GRATUITA de 30 días con todas las funciones sin necesidad de tarjeta de crédito! ¡Descargar ahora!

1. Seleccione la tabla que eliminará las filas duplicadas y mantendrá los valores más altos (seleccione A1: C24 en nuestro caso), y haga clic en Kutools > Contenido > Filas combinadas avanzadas.

2. En el cuadro de diálogo de apertura Combinar filas en función de la columna, configure de la siguiente manera:

(1) Seleccione la columna Fruta (por la que eliminará las filas duplicadas) y luego haga clic en el Clave primaria botón;

(2) Seleccione la columna Importe (en la que mantendrá los valores más altos) y luego haga clic en Calcular > Max.

(3) Especifique las reglas de combinación para otras columnas que necesite.

doc eliminar duplicados mantener el valor más alto 2

3. Haga clic en el Ok botón. Y luego verá que todas las filas duplicadas se eliminan según la columna de frutas y solo los valores máximos de las frutas correspondientes se mantienen en la columna de cantidad. Ver captura de pantalla:

El Filas combinadas avanzadas La utilidad de Kutools para Excel puede combinar fácilmente filas en una columna y luego calcular otras columnas en función de estas columnas también, como Suma, Cuenta, Máx., Mín., Producto, etc. Haga clic para obtener una prueba gratuita de 60 días, ¡sin limitación!


Kutools for Excel: ¡Más de 300 herramientas útiles a tu alcance! Comience hoy su prueba gratuita de 30 días sin limitaciones de funciones. ¡Descargar ahora!

Las mejores herramientas de productividad de oficina

Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   +50 Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

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...

pestaña kte 201905


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!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
in VBA example, the date column doesn't filter. please advise.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations