¿Cómo unir textos en una columna sin duplicados en Excel?

¿Sabes cómo unir textos de una columna en una celda sin duplicados en Excel? ¿Y qué pasa si se unen textos en una columna sin duplicados basándose en un valor de celda específico? Este artículo proporciona métodos para resolver estos problemas.

Unir textos en una columna sin duplicados con fórmula
Unir textos en una columna sin duplicados basados en el valor de otra celda con código VBA
Unir fácilmente textos en una columna basados en el valor de otra celda con una herramienta sorprendente
Más tutoriales para combinar celdas…

Unir textos en una columna sin duplicados con fórmula

Como se muestra en la captura de pantalla a continuación, deseas unir los textos de la columna A en una sola celda sin duplicados. Por favor, sigue los siguientes pasos.

1. Selecciona una celda en blanco, copia la siguiente fórmula en ella y presiona las teclas Alt + Shift + Enter al mismo tiempo.

=TEXTJOIN(", ", VERDADERO, SI(COINCIDIR(A2:A12, A2:A12, 0)=COINCIDIR(FILA(A2:A12), FILA(A2:A12)), A2:A12, ""))

Nota: En la fórmula, “, ” es el separador de los textos combinados; A2:A12 son las celdas de la columna que deseas unir. Cambia estos valores según sea necesario.

Ahora los textos en la columna especificada se han unido sin duplicados.

Unir textos en una columna sin duplicados basados en el valor de otra celda con código VBA

A veces, puede que necesites unir textos en una columna sin duplicados basándote en el valor de otra celda, como se muestra en la captura de pantalla a continuación. Puedes lograrlo siguiendo estos pasos.

1. En la hoja de trabajo que contiene los textos que deseas unir, presiona las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haz clic en Insertar > Módulo, y luego copia el siguiente código VBA en la ventana del código del Módulo.

Código VBA: Unir textos en una columna sin duplicados basados en el valor de otra 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 Sub

3. Presiona la tecla F5 para ejecutar el código. En el cuadro de diálogo emergente de Kutools for Excel, selecciona el rango que incluye tanto los valores en los que se basará la unión de los textos como los textos que deseas unir, y luego haz clic en el botón Aceptar.

Luego, los valores únicos se extraen y sus correspondientes textos únicos en otra columna se unen y se colocan en una nueva hoja de trabajo.

Unir fácilmente textos en una columna basados en el valor de otra celda con una herramienta increíble

Nota: Como la utilidad se aplicará directamente en el rango original, por favor, realiza una copia de los datos originales antes de aplicar la siguiente operación.

1. Selecciona el rango (incluye los textos que deseas unir y el valor en el que se basará la unión de los textos), haz clic en Kutools > Combinar y dividir > Combinar filas avanzado.

2. En el cuadro de diálogo Combinar filas avanzado, por favor, sigue los siguientes pasos:

• Selecciona la columna que contiene los valores en los que se basará la unión de los textos, y haz clic en Clave principal;
• Selecciona la columna que contiene los textos que deseas unir en una celda, y haz clic en Combinar > Coma;
• Si quedan columnas, por favor, especifica condiciones para ellas. En este caso, selecciono la columna Ventas y selecciono Calcular > Suma.
• Haz clic en el botón Aceptar. Ver captura de pantalla:

Luego puedes ver que todos los textos en la columna especificada se han unido basándose en la columna clave. Ver captura de pantalla:

Artículos relacionados