Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo eliminar valores únicos de una columna en Excel?

Por lo general, la mayoría de nosotros desea eliminar valores duplicados de una columna, pero a veces, es posible que desee eliminar los valores únicos que aparecen solo una vez en la columna. Este tutorial habla sobre los trucos para que elimines valores únicos solo de una columna en Excel.

Eliminar valores únicos con VBA en Excel

Eliminar valores únicos con Kutools para Excel

Ficha 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: la mejor herramienta de productividad de Office resolverá la mayoría de sus problemas de Excel
  • Texto automático: Cree sus gráficos, imágenes, celdas, fórmulas complejas y reutilizar ellos rápidamente en el futuro.
  • Más de características de texto 20: Extraer número de la cadena de texto; Extraer o eliminar parte de los textos; Convertir números y monedas a palabras en inglés ...
  • Herramientas de fusión: Múltiples libros de trabajo y hojas en uno; Fusionar múltiples celdas / filas / columnas y guardar datos; Combinar filas duplicadas y sumar ...
  • Herramientas divididas: Dividir datos en varias hojas en función del valor; Un libro de trabajo para múltiples archivos Excel, PDF o CSV; De una columna a varias columnas ...
  • Saltar pasta Filas ocultas / filtradas; Cuenta y suma por color de fondo; Crear lista de correo y Enviar correos electrónicos por el valor de la celda...
  • Súper filtro: Cree esquemas de filtro avanzados y aplique a cualquier hoja; Tipo de Propiedad por semana, día, frecuencia y más; Filtrar por negrita, fórmulas, comentario ...
  • Más de potentes funciones de 300; Funciona con Office 2007-2019 y 365; Soporta todos los idiomas; Fácil despliegue en compañía; Funciones completas de prueba gratuita de 60-day.

flecha azul burbuja derecha Eliminar valores únicos con VBA en Excel


El uso de VBA puede eliminar rápidamente todos los valores únicos de una columna.

1. Prensa Alt + F11 para mostrar el Microsoft Visual Basic para aplicaciones ventana.

2. En la ventana, haz clic recuadro > Módulo para mostrar una nueva ventana de módulo, luego copie el siguiente código de VBA en la ventana del módulo.

VBA: elimina valores únicos de una columna.

Sub DeleteUnique()
'Updateby20140617
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim Dic As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Columns(1)
Set Dic = CreateObject("Scripting.Dictionary")
Arr = WorkRng.Value
For i = 1 To UBound(Arr, 1)
    xValue = Arr(i, 1)
    Dic(xValue) = Dic(xValue) + 1
Next
WorkRng.ClearContents
Arr = WorkRng.Value
xIndex = 1
For Each xKey In Dic.keys
    xValue = Dic(xKey)
    If xValue > 1 Then
        For i = 1 To xValue
            Arr(xIndex, 1) = xKey
            xIndex = xIndex + 1
        Next
    End If
Next
WorkRng.Value = Arr
End Sub
3. Hacer clic corrida botón para ejecutar el código VBA, y una KutoolsforExcel cuadro de diálogo emerge para seleccionar un rango para trabajar. Ver captura de pantalla:

doc-delete-unique-1

4. Hacer clic OK, y todos los valores únicos se eliminan.


flecha azul burbuja derecha Eliminar valores únicos con Kutools para Excel

Si no está familiarizado con VBA, puede considerar utilizar Kutools para la función Seleccionar celdas exclusivas y duplicadas de Excel para eliminar los valores únicos en Excel.

Kutools for Excel incluye más de las útiles herramientas de Excel de 300. Gratis para probar sin limitaciones en los días 30. Get it Now

1. Seleccione la columna de la que desea eliminar los valores únicos y haga clic en Kutools > Seleccionar herramientas > Seleccione celdas duplicadas y exclusivas. Ver captura de pantalla:

doc-delete-unique-2

2. En el cuadro de diálogo emergente, verifique Solo valores únicos y haga clic Ok, y luego salir de este cuadro de diálogo. Ver captura de pantalla:

doc-delete-unique-3

3. Entonces todos los valores aparecen solo una vez han sido seleccionados. Y haga clic derecho para hacer clic Borrar en el menú contextual. Ver captura de pantalla:

doc-delete-unique-4

4. En el Borrar diálogo, marque Toda la fila y haga clic OK. Ver captura de pantalla:

doc-delete-unique-5

Ahora puede ver que los valores únicos se eliminan.

doc-delete-unique-6 doc-arrow doc-delete-unique-7

Tip: Si solo desea eliminar el contenido de la celda, puede hacer clic Contenidos claros desde el menú contextual en el paso 3.

Puede hacer clic aquí para obtener más información sobre Select Duplicate & Unique Cells.


Artículos relativos


Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células 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 Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Más de potentes funciones de 300. Funciona con Office 2007-2019 y 365. Soporta todos los idiomas. Fácil despliegue en compañía. Funciones completas de prueba gratuita de 60-day.
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

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Mort W · 2 years ago
    VBA code does not work....I use option explicit and while I Dim xValue as Variant, keeps saying variable not defined.
    I'd say a good 80% of copied code from net does not work at first shot.
  • To post as a guest, your comment is unpublished.
    Mistereri · 3 years ago
    You are a life saver. God bless you
  • To post as a guest, your comment is unpublished.
    Rossini · 5 years ago
    How would one tweak the VBA code to delete the entire row based on unique value of one field only?

    The Kutools for Excel allow deletion of the entire row, but the code deletes only the unique values from one field.

    Thank you,