Ինչպե՞ս միացնել տեքստերը սյունակում, առանց Excel- ում կրկնօրինակների:

Գիտե՞ք ինչպես սյունակից տեքստերը միացնել բջիջ ՝ առանց Excel- ում կրկնօրինակների: Իսկ ի՞նչ կլինի, եթե տեքստերը սյունակում միացվեն առանց կրկնօրինակների, որոնք հիմնված են բջջի որոշակի արժեքի վրա: Այս հոդվածը մեթոդներ է տրամադրում խնդիրները լուծելու համար:

Միացեք տեքստերին սյունակում, առանց բանաձևի կրկնօրինակների
Միացեք տեքստերին սյունակում ՝ առանց կրկնօրինակների, հիմնվելով VBA կոդով մեկ այլ բջջային արժեքի վրա
Հեշտությամբ միացրեք տեքստերը սյունակում ՝ հիմնված մեկ այլ բջջային արժեքի վրա, զարմանալի գործիքով
Լրացուցիչ ձեռնարկ ՝ բջիջները համատեղելու համար

Միացեք տեքստերին սյունակում, առանց բանաձևի կրկնօրինակների

Ինչպես ցույց է տրված ստորև նշված նկարից, դուք ցանկանում եք A սյունակում պարունակվող տեքստերը միացնել մեկ վանդակում ՝ առանց կրկնօրինակների: Խնդրում եմ արեք հետևյալ կերպ.

1. Ընտրեք դատարկ բջիջ, պատճենեք ներքևի բանաձևը և սեղմեք այն ալտ + Հերթափոխություն + Մտնել միաժամանակ ստեղներ:

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

Նշում: Բանաձևում «, ”- ը համակցված տեքստերի բաժանարարն է. A2: A12- ը սյունակի բջիջներն են, որոնք դուք միանալու եք միասին: Խնդրում ենք փոխել դրանք, ինչպես ձեզ հարկավոր է:

Այժմ նշված սյունակում նշված տեքստերը միանում են առանց կրկնօրինակների:

Միացեք տեքստերին սյունակում ՝ առանց կրկնօրինակների, հիմնվելով VBA կոդով մեկ այլ բջջային արժեքի վրա

Երբեմն կարող է անհրաժեշտ լինել միացնել տեքստերը սյունակում առանց կրկնօրինակների ՝ մեկ այլ խցում տեղադրված արժեքի հիման վրա, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը, այն կարող եք ստանալ հետևյալ կերպ.

1. Աշխատաթերթում պարունակում են այն տեքստերը, որոնց դուք կմիանաք, սեղմեք ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլ, և ապա պատճենեք ստորև նշված VBA կոդը Մոդուլի ծածկագրի պատուհանում:

VBA կոդ. Միացեք տեքստերին սյունակում, առանց կրկնօրինակների, մեկ այլ բջջային արժեքի հիման վրա

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. Սեղմեք F5 ծածկագիրը գործելու համար: Պատուհանման մեջ Excel- ի համար նախատեսված գործիքներ երկխոսություն, ընտրեք ընդգրկույթը ՝ ներառյալ թե՛ այն արժեքները, որոնց հիման վրա կմիանաք տեքստերին, և թե՛ տեքստերը, որոնց կմիանաք, ապա կտտացրեք OK կոճակը:

Դրանից հետո արդյունահանվում են եզակի արժեքները, և դրանց համապատասխան եզակի տեքստերը մեկ այլ սյունակում միանում են և տեղադրվում նոր աշխատանքային թերթում:

Հեշտությամբ միացրեք տեքստերը սյունակում ՝ հիմնված մեկ այլ բջջային արժեքի վրա, զարմանալի գործիքով

Նշում: Քանի որ կոմունալը ուղղակիորեն կիրառվելու է սկզբնական տիրույթում, նախքան ստորև նշված գործողությունը կիրառելը, պատրաստեք բնօրինակ տվյալների պատճեն:

1. Ընտրեք տիրույթը (ներառեք այն տեքստերը, որոնց դուք կմիանաք և այն արժեքը, որի հիման վրա կմիանաք տեքստերին), կտտացրեք Կուտոլս > Պարունակություն > Ընդլայնված կոմբինատ տողեր: Տեսեք,

2. Մեջ Ընդլայնված կոմբինատ տողեր երկխոսություն, խնդրում ենք կատարել հետևյալը.

• Ընտրեք այն արժեքները, որոնք պարունակում են այն արժեքները, որոնց հիման վրա կմիանաք տեքստերին և կտտացրեք Առաջնային բանալին;
• Ընտրեք այն սյունակը, որը պարունակում է այն տեքստերը, որոնց միանալու եք բջիջ, և կտտացրեք Միավորել > Ստորակետ;
• Եթե ​​սյուններ են մնացել, խնդրում ենք նշել դրանց համար պայմաններ: Այս դեպքում ես ընտրում եմ Վաճառքի սյունը և ընտրում Հաշվել > Գումար:
• Սեղմեք է OK կոճակ Տեսեք,

Դրանից հետո դուք կարող եք տեսնել, որ նշված սյունակում բոլոր տեքստերը միավորված են առանցքային սյունակի հիման վրա: Տեսեք,

Առնչվող հոդվածներ

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖	Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
	Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
	Super Փնտրել: Բազմաթիվ չափանիշների VLookup  |   Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
	Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
	Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
	Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar   |  Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները   |  Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
	Լավագույն 15 գործիքների հավաքածու:  12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Կարդալ ավելին... Անվճար ներբեռնում...

---

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

• Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
• Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
• Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Անվճար ներբեռնում...