Come unire i testi in una colonna senza duplicati in Excel?

Sapete come unire i testi da una colonna in una cella senza duplicati in Excel? E cosa fare se si vuole unire i testi in una colonna senza duplicati basandosi su un valore di cella specifico? Questo articolo fornisce metodi per risolvere questi problemi.

Unire i testi in una colonna senza duplicati con una formula
Unire i testi in una colonna senza duplicati basandosi sul valore di un'altra cella con il codice VBA
Unire facilmente i testi in una colonna basandosi sul valore di un'altra cella con uno strumento incredibile
Altri tutorial per combinare celle…

Unire i testi in una colonna senza duplicati con una formula

Come mostrato nello screenshot sottostante, volete unire i testi nella colonna A in una singola cella senza duplicati. Procedete come segue.

1. Selezionate una cella vuota, copiate la seguente formula al suo interno e premete contemporaneamente i tasti Alt + Shift + Enter.

=TEXTJOIN(", ", TRUE, IF(MATCH(A2:A12, A2:A12, 0)=MATCH(ROW(A2:A12), ROW(A2:A12)), A2:A12, ""))

Nota: Nella formula, “, ” è il separatore dei testi combinati; A2:A12 sono le celle della colonna che desiderate unire. Modificateli secondo necessità.

Ora i testi nella colonna specificata sono stati uniti senza duplicati.

Unire i testi in una colonna senza duplicati basandosi sul valore di un'altra cella con il codice VBA

A volte potreste dover unire i testi in una colonna senza duplicati basandovi sul valore di un'altra cella, come mostrato nello screenshot sottostante. Potete farlo come segue.

1. Nel foglio di lavoro contenente i testi che desiderate unire, premete i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Nella finestra Microsoft Visual Basic for Applications, cliccate su Inserisci > Modulo, quindi copiate il seguente codice VBA nella finestra del codice del Modulo.

Codice VBA: Unire i testi in una colonna senza duplicati basandosi sul valore di un'altra cella

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. Premete il tasto F5 per eseguire il codice. Nella finestra di dialogo Kutools for Excel che appare, selezionate l'intervallo che include sia i valori su cui baserete l'unione dei testi sia i testi che desiderate unire, quindi cliccate sul pulsante OK.

Successivamente, i valori univoci vengono estratti e i loro corrispondenti testi univoci in un'altra colonna vengono uniti e posizionati in un nuovo foglio di lavoro.

Unire facilmente i testi in una colonna basandosi sul valore di un'altra cella con uno strumento incredibile

Nota: Poiché l'utilità verrà applicata direttamente nell'intervallo originale, fate una copia dei dati originali prima di applicare l'operazione seguente.

1. Selezionate l'intervallo (includendo i testi che desiderate unire e il valore su cui baserete l'unione dei testi), cliccate su Kutools > Unisci & Dividi > Unione avanzata righe.

2. Nella finestra di dialogo Unione avanzata righe, procedete come segue:

• Selezionate la colonna contenente i valori su cui baserete l'unione dei testi e cliccate su Chiave principale;
• Selezionate la colonna contenente i testi che desiderate unire in una cella e cliccate su Unisci > Virgola;
• Se ci sono altre colonne rimaste, specificate le condizioni per esse. In questo caso, seleziono la colonna Vendite e seleziono Calcola > Somma.
• Cliccate sul pulsante OK. Vedere lo screenshot:

Successivamente, potrete vedere che tutti i testi nella colonna specificata sono stati uniti basandosi sulla colonna chiave. Vedere lo screenshot:

Articoli correlati