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 concatenar valores únicos en Excel?

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

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

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

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

Listar valores únicos y concatenar los valores correspondientes con Kutools para Excel


flecha azul burbuja derecha Encuentre valores únicos en una columna y conéctelos 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 presionado 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 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 20151228
    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 entrar clave para obtener el resultado concatenado único, consulte la captura de pantalla:

doc concatenados únicos 1

Nota: 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 a su necesidad.


flecha azul burbuja derecha Encuentre valores únicos en una columna y conéctelos 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 Seleccione celdas duplicadas y exclusivas y Combinar utilidades para lograr el resultado que necesita.

Kutools for Excel : con más de 300 útiles complementos de Excel, de prueba sin límite en días 60.

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

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

2. Hacer clic Kutools > Seleccionar > Seleccione celdas duplicadas y exclusivas, mira la captura de pantalla:

doc concatenados únicos 2

3. En la Seleccione celdas duplicadas y exclusivas cuadro de diálogo, seleccione Todo único (Incluyendo 1 st duplicados) Bajo el Regla sección, ver captura de pantalla:

Consejos: Si desea combinar los valores únicos excluyendo el primer duplicado que aparece, verifique Solo valores únicos opción.

doc concatenados únicos 3

4. Luego haga clic OK botón, 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, mira la captura de pantalla:

doc concatenados únicos 4

5. Seleccione las celdas únicas pegadas, y luego haga clic Kutools > Combinar, mira la captura de pantalla:

doc concatenados únicos 5

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

doc concatenados únicos 6

7. Luego haga clic Ok or Aplicar botón, los valores únicos extraídos se han concatenado en una sola celda como se muestra a continuación.

doc concatenados únicos 7

Descarga gratuita Kutools for Excel ahora!


flecha azul burbuja derecha Enumerar 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 finalizar este trabajo? en Excel?

doc concatenados únicos 8

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

1. Mantenga presionado 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 Módulo Ventana.

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

Sub test()
'updateby Extendoffice 20151228
    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 tecla para ejecutar este código, y se abre un cuadro de aviso para recordarle que seleccione el rango de datos que desea concatenar en función de los valores únicos, vea la captura de pantalla:

doc concatenados ú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.

Nota: En el código anterior, puedes 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 separar los datos combinados.


flecha azul burbuja derecha Listar valores únicos y concatenar los valores correspondientes con Kutools para Excel

Si usted tiene Kutools for Excel, Con su Filas de combinación avanzadas función, puede resolver este problema de forma rápida y sencilla sin ningún código.

Después de instalar Kutools for Excel, haz lo siguiente :( Descarga gratuita Kutools for 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 en función de los valores únicos.

2. Luego haga clic Kutools > Contenido > Filas de combinación avanzadas, mira la captura de pantalla:

doc concatenados únicos 10

3. En la Filas de combinación avanzadas cuadro de diálogo, haga clic en el nombre de la columna en la que desea que aparezcan solo los valores únicos y haga clic en Clave primaria, mira la captura de pantalla:

doc concatenados únicos 11

4. A continuación, haga clic en el nombre de otra columna que desee concatenar y haga clic Combinar, y elija un delimitador para separar sus datos combinados, vea la captura de pantalla:

doc concatenados únicos 12

5. Y luego haz clic Ok botón, los valores se concatenaron en función de los valores únicos de otra columna como se muestra a continuación.

doc concatenados únicos 13

Descarga gratuita Kutools for Excel ahora!


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.
    MSBrown · 2 years ago
    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!
  • To post as a guest, your comment is unpublished.
    Marek · 2 years ago
    Thank you! Great and simple function works perfect for me!

    https://www.extendoffice.com/documents/excel/3418-excel-concatenate-unique-values.html#a1