¿Cómo unir textos en una columna sin duplicados en Excel?
¿Sabes cómo unir textos de una columna a una celda sin duplicados en Excel? ¿Y qué pasa si une textos en una columna sin duplicados según el valor de celda específico? Este artículo proporciona métodos para resolver los problemas.
Unir textos en una columna sin duplicados con fórmula
Unir textos en una columna sin duplicados basados en otro valor de celda con código VBA
Une fácilmente textos en una columna basada en otro valor de celda con una herramienta increíble
Más tutorial para combinar celdas ...
Unir textos en una columna sin duplicados con fórmula
Como se muestra en la siguiente captura de pantalla, desea unir textos en la columna A en una sola celda sin duplicados. Haz lo siguiente.
1. Seleccione una celda en blanco, copie la fórmula siguiente en ella y presione el otro + Shift + Participar llaves al mismo tiempo.
=TEXTJOIN(", ", TRUE, IF(MATCH(A2:A12, A2:A12, 0)=MATCH(ROW(A2:A12), ROW(A2:A12)), A2:A12, ""))
Nota: En la fórmula, ", ”Es el separador de los textos combinados; A2: A12 son las celdas de columna que unirá. Cámbielos según sea necesario.
Ahora los textos de la columna especificada se unen sin duplicados.
Unir textos en una columna sin duplicados basados en otro valor de celda con código VBA
A veces, es posible que necesite unir textos en una columna sin duplicados según el valor en otra celda, como se muestra a continuación, puede obtenerlo de la siguiente manera.
1. En la hoja de trabajo que contiene los textos que unirá, presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo, y luego copie el siguiente código VBA en la ventana de código del módulo.
Código de VBA: une textos en una columna sin duplicados basados en otro valor de celda
Sub JoinTextsWithoutDuplicates()
'Updated by Extendoffice 20190924
Dim xRg As Range
Dim xArr As Variant
Dim xCell As Range
Dim xTxt As String
Dim I As Long
Dim xDic As Object
Dim xValue
Dim xStr, xStrValue As String
Dim xB As Boolean
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
xStrValue = xArr(I, 2)
xB = True
For Each xStr In Split(xArr(xDic.Item(xArr(I, 1)), 2), ",")
If xStr = xStrValue Then
xB = False
Exit For
End If
Next
If xB Then
xArr(xDic.Item(xArr(I, 1)), 2) = xArr(xDic.Item(xArr(I, 1)), 2) & "," & xArr(I, 2)
End If
End If
Next
Sheets.Add.Cells(1).Resize(xDic.Count, 2).Value = xArr
End Sub3. presione el F5 clave para ejecutar el código. En el apareciendo Kutools for Excel cuadro de diálogo, seleccione el rango que incluya los valores en los que unirá los textos y los textos que unirá, y luego haga clic en el OK del botón.
Luego, se extraen los valores únicos y sus correspondientes textos únicos en otra columna se unen y se colocan en una nueva hoja de trabajo.
Une fácilmente textos en una columna basada en otro valor de celda con una herramienta increíble
Antes de aplicar Kutools for Excel, Por favor descargarlo e instalarlo en primer lugar.
Nota: Como la utilidad se aplicará directamente en el rango original, haga una copia de los datos originales antes de aplicar la siguiente operación.
1. Seleccione el rango (incluya los textos a los que se unirá y el valor en el que se unirán los textos), haga clic en Kutools > Contenido > Filas combinadas avanzadas. Ver captura de pantalla:
2. En el Filas combinadas avanzadas cuadro de diálogo, haga lo siguiente:
- Seleccione la columna que contiene los valores en los que unirá los textos y haga clic en Clave primaria;
- Seleccione la columna que contiene los textos que unirá en una celda y haga clic en Combinar > Coma;
- Si quedan columnas, especifique las condiciones para ellas. En este caso, selecciono la columna Ventas y selecciono Calcular > Suma.
- Haga clic en el OK botón. Ver captura de pantalla:
Luego, puede ver que todos los textos en la columna especificada se unen en función de la columna clave. Ver captura de pantalla:
Si desea tener una prueba gratuita (30 días) de esta utilidad, haga clic para descargarloy luego vaya a aplicar la operación según los pasos anteriores.
Artículos relacionados
Combine filas duplicadas y sume los valores en Excel
En Excel, siempre puede encontrar este problema, cuando tiene un rango de datos que contiene algunas entradas duplicadas, y ahora desea combinar los datos duplicados y sumar los valores correspondientes en otra columna, ¿cómo podría resolver este problema? Pruebe los métodos de este artículo.
Combine varias celdas en una celda con espacio, comas u otros separadores en Excel
Cuando combina las celdas de varias columnas o filas en una sola celda, los datos combinados pueden estar separados por nada. Pero si desea separarlos con marcas específicas, como espacios, comas, punto y coma u otros, ¿cómo puede hacerlo? Este tutorial le presentará algunos métodos.
Concatenar celdas manteniendo el formato de número / fecha en Excel
Es posible que haya notado que cuando aplicamos la función CONCATENAR en Excel, el formato de fecha (2014-01-03) y el formato de número como el formato de moneda ($ 734.7), formato de porcentaje (48.9%), lugares decimales (24.5000), etc. se eliminan y se muestran como números generales en los resultados de la concatenación. En este artículo, presentamos varias soluciones para concatenar datos con el formato de fecha o número de mantenimiento en Excel.
Invertir la función de concatenar en Excel
Como todos sabemos, la función Concatenar en Excel puede ayudarnos a combinar múltiples celdas en una celda, pero, a veces, desea hacer lo contrario de la función Concatenar, significa no combinar celdas, sino dividir el valor de la celda en múltiples celdas separadas. Los métodos de este artículo ayudarán a resolver el problema.
Concatenar celdas si existe el mismo valor en otra columna en Excel
Este artículo proporciona métodos para ayudarlo a concatenar celdas fácilmente si el mismo valor existe en otra columna en Excel.
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!
