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

Por lo general, la mayoría de nosotros queremos 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 trata sobre algunos trucos para que elimine solo los valores únicos de una columna en Excel.

Eliminar valores únicos con VBA en Excel

Eliminar valores únicos con Kutools para Excel

---

Eliminar valores únicos con VBA en Excel

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

1. Presione Alt + F11 para mostrar la ventana de Microsoft Visual Basic para Aplicaciones.

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

VBA: Eliminar 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. Haga clic Ejecutar para ejecutar el código VBA, y un cuadro de diálogo de KutoolsforExcel aparecerá para seleccionar un rango con el que trabajar. Ver captura de pantalla:

4. Haga clic en Aceptar, y se eliminarán todos los valores únicos.

---

Eliminar valores únicos con Kutools para Excel

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

Kutools para Excel incluye más de 300 herramientas útiles para Excel. Pruébelo gratis sin limitaciones durante 30 días. Obténgalo ahora

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

2. En el cuadro de diálogo emergente, marque Valores únicos solamente y haga clic en Aceptar, y luego salga de este cuadro de diálogo. Ver captura de pantalla:

3. Luego, todos los valores que aparecen solo una vez se habrán seleccionado. Haga clic derecho y seleccione Eliminar en el menú contextual. Ver captura de pantalla:

4. En el cuadro de diálogo Eliminar, marque Fila completa y haga clic en Aceptar. Ver captura de pantalla:

Ahora puede ver que los valores únicos han sido eliminados.

Consejo: Si solo desea eliminar el contenido de las celdas, puede hacer clic en Borrar contenido desde el menú contextual en el paso 3.

Puede hacer clic aquí para obtener más información sobre Seleccionar celdas duplicadas y únicas.

---

Artículos relacionados:

• Eliminar todos los comentarios en Excel
• Eliminar filas duplicadas en Excel

---