Hur går man med texter i en kolumn utan dubbletter i Excel?

Vet du hur du går med i texter från en kolumn till en cell utan dubbletter i Excel? Och vad händer om sammanfoga texter i en kolumn utan dubbletter baserat på specifikt cellvärde? Den här artikeln innehåller metoder för att lösa problemen.

Gå med i texter i en kolumn utan dubbletter med formeln
Gå med i texter i en kolumn utan dubbletter baserat på ett annat cellvärde med VBA-kod
Gå enkelt med texter i en kolumn baserat på ett annat cellvärde med ett fantastiskt verktyg
Mer handledning för att kombinera celler ...

Gå med i texter i en kolumn utan dubbletter med formeln

Som nedanstående skärmdump visas vill du ansluta texter i kolumn A till en enda cell utan dubbletter. Gör så här.

1. Välj en tom cell, kopiera nedanstående formel till den och tryck på andra + shift + ange tangenter samtidigt.

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

Notera: I formeln, “, ”Är avgränsaren för de kombinerade texterna; A2: A12 är kolumncellerna du kommer att sammanfoga. Ändra dem efter behov.

Nu sammanfogas texterna i den angivna kolumnen utan dubbletter.

Gå med i texter i en kolumn utan dubbletter baserat på ett annat cellvärde med VBA-kod

Ibland kan du behöva gå med texter i en kolumn utan dubbletter baserat på värde i en annan cell, som nedan visas skärmdump, du kan få ner det enligt följande.

1. I kalkylbladet innehåller texterna du kommer att gå med, tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modul, och kopiera sedan nedanstående VBA-kod till modulkodsfönstret.

VBA-kod: Gå med i texter i en kolumn utan dubbletter baserat på ett annat cellvärde

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. tryck på F5 för att köra koden. I pop-up Kutools för Excel välj intervallet inklusive både de värden som du kommer att ansluta till texter baserat på och de texter du ska gå med i och klicka sedan på OK knapp.

Därefter extraheras de unika värdena och deras motsvarande unika texter i en annan kolumn sammanfogas och placeras i ett nytt kalkylblad.

Gå enkelt med texter i en kolumn baserat på ett annat cellvärde med ett fantastiskt verktyg

Notera: Eftersom verktyget kommer att gälla direkt i originalområdet, gör en kopia av originaldata innan du använder nedanstående åtgärd.

1. Välj intervallet (inkludera texterna du kommer att gå med och det värde du kommer att ansluta till texter baserat på), klicka Kutools > Slå ihop och dela > Avancerade kombinera rader.

2. I Avancerade kombinera rader dialogrutan, gör så här:

• Välj kolumnen som innehåller värdena som du kommer att ansluta till texter baserat på och klicka Primärnyckel;
• Markera kolumnen som innehåller texterna som du ska gå med i en cell och klicka på Kombinera > Kommatecken;
• Om det finns kolumner kvar, ange villkoren för dem. I det här fallet väljer jag kolumnen Försäljning och väljer Beräkna > Belopp.
• Klicka på OK knapp. Se skärmdump:

Då kan du se att alla texter i angiven kolumn förenas baserat på nyckelkolumnen. Se skärmdump:

Relaterade artiklar