Saltar al contenido principal

¿Cómo concatenar valores únicos en Excel?

Si tengo una lista larga de valores que se llenaron con algunos datos duplicados, ahora quiero encontrar solo los valores únicos y luego concatenarlos en una sola celda. ¿Cómo podría solucionar este problema de forma rápida y sencilla en Excel?

Encuentre valores únicos en una columna y concatenélos en una celda con código VBA

Encuentre valores únicos en una columna y concatenelos en una celda con Kutools para Excel

Enumere valores únicos y concatenar los valores correspondientes con el código VBA

Enumere valores únicos y concatene los valores correspondientes con Kutools para Excel


flecha azul burbuja derecha Encuentre valores únicos en una columna y concatenélos en una celda con código VBA

Las siguientes Función definida por el usuario puede ayudarlo a concatenar solo los valores únicos en una sola celda de una lista, haga lo siguiente:

1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.

Código de VBA: concatenar valores únicos en una sola celda:

Function ConcatUniq(xRg As Range, xChar As String) As String
'updateby Extendoffice
    Dim xCell As Range
    Dim xDic As Object
    Set xDic = CreateObject("Scripting.Dictionary")
    For Each xCell In xRg
        xDic(xCell.Value) = Empty
    Next
    ConcatUniq = Join$(xDic.Keys, xChar)
    Set xDic = Nothing
End Function

3. Luego regrese a su hoja de trabajo e ingrese esta fórmula: = ConcatUniq (A1: A17, ",") en una celda en blanco donde desea generar el resultado concatenado y presione Participar clave para obtener el resultado concatenado único, vea la captura de pantalla:

doc concatenar únicos 1

Note: En la fórmula anterior, A1: A17 es el rango de celdas que desea concatenar y la coma ",”Es el separador que necesita para separar los valores combinados, puede cambiarlos según sus necesidades.


flecha azul burbuja derecha Encuentre valores únicos en una columna y concatenelos en una celda con Kutools para Excel

Si no está familiarizado con el código VBA, Kutools for Excel también puede ayudarte, puedes combinar el Seleccione celdas duplicadas y únicas y Combinar utilidades para lograr el resultado que necesita.

Kutools for Excel : con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días.

Después de instalar Kutools for Excel, haz lo siguiente :( ¡Descarga gratis Kutools para Excel ahora! )

1. Seleccione la lista de celdas que desea combinar solo con los valores únicos.

2. Hacer clic Kutools > Seleccione > Seleccione celdas duplicadas y únicas, ver captura de pantalla:

3. En la Seleccione celdas duplicadas y únicas cuadro de diálogo, seleccione Todos únicos (incluidos los primeros duplicados) Bajo el Regla sección, ver captura de pantalla:

Tips: Si desea combinar los valores únicos excluyendo el primer duplicado que aparece, marque Solo valores únicos .

doc concatenar únicos 3

4. Luego haga clic OK , y solo se han seleccionado los valores únicos, y luego presione Ctrl + C para copiarlos y pegarlos en una ubicación específica presionando Ctrl + V, ver captura de pantalla:

doc concatenar únicos 4

5. Seleccione las celdas únicas pegadas y luego haga clic en Kutools > Fusionar y dividirCombine filas, columnas o celdas sin perder datos, ver captura de pantalla:

6. En la Combinar columnas o filas cuadro de diálogo, elija Combinar en una sola celda bajo el Para combinar celdas seleccionadas de acuerdo con las siguientes opciones, y luego especifique un separador para sus datos combinados, vea la captura de pantalla:

doc concatenar únicos 6

7. Luego haga clic Ok or ¡Aplicá! , los valores únicos extraídos se han concatenado en una sola celda como se muestra en la siguiente captura de pantalla:

doc concatenar únicos 7

¡Descarga gratis Kutools para Excel ahora!


flecha azul burbuja derecha Enumere valores únicos y concatenar los valores correspondientes con el código VBA

En otro caso, tiene un rango de datos que incluye dos columnas, y ahora, desea enumerar solo los valores únicos y concatenar sus valores correspondientes de otra columna para obtener el siguiente resultado, ¿tiene alguna buena forma de terminar este trabajo? en Excel?

doc concatenar únicos 8

Aquí, puede aplicar el siguiente código VBA para hacer frente a este trabajo, haga lo siguiente:

1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.

Código VBA: enumere valores únicos y concatenar los datos correspondientes

Sub test()
'updateby Extendoffice
    Dim xRg As Range
    Dim xArr As Variant
    Dim xCell As Range
    Dim xTxt As String
    Dim I As Long
    Dim xDic As Object
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "Does not support multiple selections", , "Kutools for Excel"
        Exit Sub
    End If
    If xRg.Columns.Count <> 2 Then
        MsgBox "There must be only two columns in the selected range", , "Kutools for Excel"
        Exit Sub
    End If
    xArr = xRg
    Set xDic = CreateObject("Scripting.Dictionary")
    xDic.CompareMode = 1
    For I = 1 To UBound(xArr)
        If Not xDic.Exists(xArr(I, 1)) Then
            xDic.Item(xArr(I, 1)) = xDic.Count + 1
            xArr(xDic.Count, 1) = xArr(I, 1)
            xArr(xDic.Count, 2) = xArr(I, 2)
        Else
            xArr(xDic.Item(xArr(I, 1)), 2) = xArr(xDic.Item(xArr(I, 1)), 2) & "," & xArr(I, 2)
        End If
    Next
    Sheets.Add.Cells(1).Resize(xDic.Count, 2).Value = xArr
End Sub

3. Entonces presione F5 para ejecutar este código, y aparece un cuadro emergente para recordarle que seleccione el rango de datos que desea concatenar según los valores únicos, vea la captura de pantalla:

doc concatenar únicos 9

4. Hacer clic OK, los valores únicos se han extraído y sus valores correspondientes en otra columna se han concatenado en una nueva hoja de trabajo.

Note: En el código anterior, puede cambiar la coma roja xArr (xDic.Item (xArr (I, 1)), 2) = xArr (xDic.Item (xArr (I, 1)), 2) & ","& xArr (I, 2) en este script a cualquier otro delimitador que desee para separar los datos combinados.


flecha azul burbuja derecha Enumere valores únicos y concatene los valores correspondientes con Kutools para Excel

Si tiene Kutools for Excel, Con su Filas combinadas avanzadas característica, puede resolver este problema rápida y fácilmente sin ningún código.

Después de instalar Kutools for Excel, haz lo siguiente :( ¡Descarga gratis Kutools para Excel ahora! )

1. Primero, debe hacer una copia de sus datos originales si desea conservar los datos originales. Y luego seleccione el rango de datos que desea concatenar según los valores únicos.

2. Luego haga clic Kutools > Fusionar y dividir > Filas combinadas avanzadas, ver captura de pantalla:

3. En la Filas combinadas avanzadas cuadro de diálogo, haga clic en el nombre de la columna en la que desea enumerar solo los valores únicos y haga clic en Clave primaria, ver captura de pantalla:

doc concatenar únicos 11

4. Luego haga clic en otro nombre de columna que desee concatenar y haga clic en Combinary elija un delimitador para separar sus datos combinados, vea la captura de pantalla:

doc concatenar únicos 12

5. Y luego haz clic Ok , los valores se han concatenado en función de los valores únicos de otra columna como se muestra en la siguiente captura de pantalla:

doc concatenar únicos 13

¡Descarga gratis Kutools para Excel ahora!

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
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...

Descripción


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 (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Excellent article!
I have a question.
How would delete blanks from start and end to avoid duplicates(caused by spaces) in function ConcatUniq?
Thank you very much!
This comment was minimized by the moderator on the site
I was successfully using the VBA function but something has gone wrong with it - I am only having a #VALUE! error returned now in places where it was working previously. I have combed my data for errors and tried removing and re-creating the VBA module, and renaming the function, nothing seems to be working. Any help would be appreciated, thanks!
This comment was minimized by the moderator on the site
Thank you! Great and simple function works perfect for me! https://www.extendoffice.com/documents/excel/3418-excel-concatenate-unique-values.html#a1
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations