Note: The other languages of the website are Google-translated. Back to English

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

Pestaña de Office Habilite la edición y navegación con pestañas en Office y haga su trabajo mucho más fácil
Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%
  • Reutiliza cualquier cosa: Agregue las fórmulas, gráficos y cualquier otra cosa más utilizados o complejos a sus favoritos y reutilícelos rápidamente en el futuro.
  • Más de 20 funciones de texto: Extraer número de la cadena de texto; Extraer o eliminar parte de los textos; Convierta números y monedas a palabras en inglés.
  • Combinar herramientas: Varios libros de trabajo y hojas en uno; Fusionar varias celdas / filas / columnas sin perder datos; Fusionar filas duplicadas y suma.
  • Herramientas divididas: Divida los datos en varias hojas según el valor; Un libro de trabajo para varios archivos Excel, PDF o CSV; Una columna a varias columnas.
  • Pegar saltando Filas ocultas / filtradas; Cuenta y suma por color de fondo; Envíe correos electrónicos personalizados a varios destinatarios de forma masiva.
  • Súper filtro: Cree esquemas de filtros avanzados y aplíquelos a cualquier hoja; Ordenar por semana, día, frecuencia y más; Filtrar por negrita, fórmulas, comentario ...
  • Más de 300 potentes funciones; Funciona con Office 2007-2021 y 365; Admite todos los idiomas; Fácil implementación en su empresa u organización.

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

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 - Incluye más de 300 herramientas útiles para Excel. Prueba gratuita de funciones completas 30-día, no se requiere tarjeta de crédito! Prueba gratis 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 incluye más de 300 útiles herramientas para Excel, gratis para probar sin limitación en 30 días. Descarga y prueba gratis ahora!

Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
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!
officetab parte inferior
Comentarios (1)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
en el ejemplo de VBA, la columna de fecha no se filtra. por favor avise.
No hay comentarios publicados aquí todavía

Siganos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL