¿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
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:
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.
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 .
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:
5. Seleccione las celdas únicas pegadas y luego haga clic en Kutools > Fusionar y dividir > Combine 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:
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:
¡Descarga gratis Kutools para Excel ahora!
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?
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:
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.
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:
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:
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:
¡Descarga gratis Kutools para Excel ahora!
Las mejores herramientas de productividad de oficina
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...
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!