Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս Excel- ում միավորել եզակի արժեքները:

Եթե ​​ես ունեմ արժեքների երկար ցուցակ, որոնք բնակեցված են ինչ-որ կրկնօրինակ տվյալներով, ապա հիմա ուզում եմ գտնել միայն եզակի արժեքները և այնուհետեւ դրանք միացնել մեկ բջիջի: Ինչպե՞ս կարող էի Excel- ում արագ և հեշտությամբ զբաղվել այս խնդրով:

Գտեք եզակի արժեքներ սյունակում և միացրեք դրանք մեկ բջիջի մեջ ՝ VBA կոդով

Գտեք եզակի արժեքներ սյունակում և միացրեք դրանք մեկ բջիջում Kutools- ի համար Excel- ի համար

Թվարկեք եզակի արժեքներ և համապատասխան արժեքները միացրեք VBA կոդով

Excel- ի համար Kutools- ի հետ ցուցակագրեք եզակի արժեքներ և համապատասխան արժեքները միացրեք


նետ կապույտ աջ պղպջակ Գտեք եզակի արժեքներ սյունակում և միացրեք դրանք մեկ բջիջի մեջ ՝ VBA կոդով

Հետեւյալ Օգտագործողի սահմանած գործառույթը կարող է օգնել ձեզ ցուցակից միայն եզակի արժեքները միացնել մեկ բջիջի, արեք հետևյալը.

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

VBA կոդ. Միացրեք եզակի արժեքները մեկ բջիջի մեջ.

Function ConcatUniq(xRg As Range, xChar As String) As String
'updateby Extendoffice
    Dim xCell As Range
    Dim xDic As Object
    Set xDic = CreateObject("Scripting.Dictionary")
    For Each xCell In xRg
        xDic(xCell.Value) = Empty
    Next
    ConcatUniq = Join$(xDic.Keys, xChar)
    Set xDic = Nothing
End Function

3. Հետո վերադառնաք ձեր աշխատաթերթ և մուտքագրեք այս բանաձևը. = ConcatUniq (A1: A17, ",") դատարկ բջիջի մեջ, որտեղ ուզում եք դուրս բերել համակցված արդյունքը և սեղմել Մտնել եզակի համակցված արդյունք ստանալու բանալին, տես նկարի նկարը.

doc համակցված եզակի 1

ՆշումՎերոհիշյալ բանաձևում A1: A17 բջիջների տիրույթն է, որը ցանկանում եք միավորել, և ստորակետը «,”- ը այն տարանջատիչն է, որը դուք պետք է տարանջատված համակցված արժեքները, կարող եք դրանք փոխել ձեր պահանջի:


նետ կապույտ աջ պղպջակ Գտեք եզակի արժեքներ սյունակում և միացրեք դրանք մեկ բջիջում Kutools- ի համար Excel- ի համար

Եթե ​​դուք ծանոթ չեք VBA կոդին, Excel- ի համար նախատեսված գործիքներ կարող է նաև օգնել ձեզ, կարող եք համատեղել այն Ընտրեք Կրկնօրինակ և եզակի բջիջներ և Միավորել կոմունալ ծառայություններ ՝ ձեզ անհրաժեշտ արդյունքին հասնելու համար:

Excel- ի համար նախատեսված գործիքներ : ավելի քան 300 հարմար Excel հավելվածներով, 30 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար.

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներխնդրում եմ արեք հետևյալ կերպ .( Անվճար ներբեռնեք Kutools Excel- ի համար հիմա: )

1, Ընտրեք այն բջիջների ցանկը, որոնք ցանկանում եք համատեղել միայն եզակի արժեքները:

2: Սեղմեք Կուտոլս > ընտրել > Ընտրեք Կրկնօրինակ և եզակի բջիջներ, տես նկարի նկարը.

3, Մեջ Ընտրեք Կրկնօրինակ և եզակի բջիջներ երկխոսության տուփ, ընտրեք Բոլորը եզակի են (ներառյալ 1-ին կրկնօրինակները) տարբերակով Կանոն բաժին, տես նկարի նկարը.

TipsԵթե ​​ուզում եք համատեղել եզակի արժեքները `բացառելով առաջին կրկնօրինակները, ստուգեք Միայն եզակի արժեքներ տարբերակ.

doc համակցված եզակի 3

4. Այնուհետեւ կտտացրեք OK կոճակը, և ընտրվել են միայն եզակի արժեքները, ապա սեղմել Ctrl + C պատճենել դրանք և կպցնել դրանք որոշակի վայրում ՝ սեղմելով Ctrl + V, տես նկարի նկարը.

doc համակցված եզակի 4

5, Ընտրեք տեղադրված եզակի բջիջները և այնուհետև կտտացրեք Կուտոլս > Միաձուլում և պառակտումՄիավորել տողերը, սյունակները կամ բջիջները ՝ առանց տվյալների կորստի, տես նկարի նկարը.

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

doc համակցված եզակի 6

7. Այնուհետեւ կտտացրեք Ok or Դիմել կոճակը, արդյունահանվող եզակի արժեքները միավորվել են մեկ բջիջում, ինչպես ցույց է տրված հետևյալ նկարը.

doc համակցված եզակի 7

Անվճար ներբեռնեք Kutools Excel- ի համար հիմա:


նետ կապույտ աջ պղպջակ Թվարկեք եզակի արժեքներ և համապատասխան արժեքները միացրեք VBA կոդով

Մեկ այլ դեպքում, դուք ունեք տվյալների մի շարք, որոնք ներառում են երկու սյունակ, և այժմ դուք ցանկանում եք թվարկել միայն եզակի արժեքները և միավորել մեկ այլ սյունակի դրանց համապատասխան արժեքները `հետևյալ արդյունքը ստանալու համար. Ունե՞ք այս գործն ավարտելու լավ ձևեր: Excel- ում:

doc համակցված եզակի 8

Այստեղ դուք կարող եք կիրառել հետևյալ VBA կոդը ՝ այս գործով զբաղվելու համար, խնդրում ենք կատարել հետևյալը.

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

VBA կոդ. Նշեք եզակի արժեքներ և միացրեք համապատասխան տվյալները

Sub test()
'updateby Extendoffice
    Dim xRg As Range
    Dim xArr As Variant
    Dim xCell As Range
    Dim xTxt As String
    Dim I As Long
    Dim xDic As Object
    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
            xArr(xDic.Item(xArr(I, 1)), 2) = xArr(xDic.Item(xArr(I, 1)), 2) & "," & xArr(I, 2)
        End If
    Next
    Sheets.Add.Cells(1).Resize(xDic.Count, 2).Value = xArr
End Sub

3, Դրանից հետո սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և հուշվում է արագ տուփ ՝ հիշեցնելու համար, որ ընտրեք տվյալների տիրույթը, որը ցանկանում եք միավորել ՝ ելնելով եզակի արժեքներից, տե՛ս նկար

doc համակցված եզակի 9

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

ՆշումՎերոհիշյալ ծածկագրում կարող եք փոխել կարմիր ստորակետը xArr (xDic.Item (xArr (I, 1)), 2) = xArr (xDic.Item (xArr (I, 1)), 2) & ","& xArr (I, 2) այս սցենարում ցանկացած այլ սահմանազատող, որը ցանկանում եք առանձնացնել համակցված տվյալները:


նետ կապույտ աջ պղպջակ Excel- ի համար Kutools- ի հետ ցուցակագրեք եզակի արժեքներ և համապատասխան արժեքները միացրեք

Եթե ​​դուք ունեք Excel- ի համար նախատեսված գործիքներԻր Ընդլայնված կոմբինատ տողեր առանձնահատկությունը, դուք կարող եք արագ և հեշտությամբ լուծել այս խնդիրը `առանց որևէ կոդի:

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներխնդրում եմ արեք հետևյալ կերպ .( Անվճար ներբեռնեք Kutools Excel- ի համար հիմա: )

1, Նախևառաջ, դուք պետք է պատճենեք ձեր բնօրինակ տվյալները, եթե ցանկանում եք պահպանել բնօրինակ տվյալները: Եվ ապա ընտրեք տվյալների տիրույթը, որը ցանկանում եք միավորել ՝ ելնելով եզակի արժեքներից:

2. Այնուհետեւ կտտացրեք Կուտոլս > Միաձուլում և պառակտում > Ընդլայնված կոմբինատ տողեր, տես նկարի նկարը.

3, Մեջ Ընդլայնված կոմբինատ տողեր երկխոսության տուփ, կտտացրեք սյունակի անունը, որը ցանկանում եք թվարկել միայն եզակի արժեքները և կտտացնել Առաջնային բանալին, տես նկարի նկարը.

doc համակցված եզակի 11

4, Դրանից հետո կտտացրեք մեկ այլ սյունակի անուն, որը ցանկանում եք միավորել, և կտտացրեք Միավորելև ընտրեք մեկ սահմանազատիչ ՝ ձեր համակցված տվյալներն առանձնացնելու համար, տես նկարի նկարը.

doc համակցված եզակի 12

5. Եվ այնուհետեւ կտտացրեք Ok կոճակը, արժեքները միավորվել են `հիմնվելով մեկ այլ սյունակի եզակի արժեքների վրա, ինչպես ցույց է տրված հետևյալ նկարը.

doc համակցված եզակի 13

Անվճար ներբեռնեք Kutools Excel- ի համար հիմա:


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

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (3)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն! Հիանալի և պարզ գործառույթն ինձ համար կատարյալ է աշխատում: https://www.extendoffice.com/documents/excel/3418-excel-concatenate-unique-values.html#a1
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես հաջողությամբ օգտագործում էի VBA ֆունկցիան, բայց դրա հետ ինչ-որ բան սխալ է տեղի ունեցել. ես ունեմ միայն #VALUE: սխալը վերադարձվել է այժմ այն ​​վայրերում, որտեղ այն աշխատում էր նախկինում: Ես սանրել եմ իմ տվյալները սխալների համար և փորձել եմ հեռացնել և վերստեղծել VBA մոդուլը և անվանափոխել ֆունկցիան, կարծես թե ոչինչ չի աշխատում: Ցանկացած օգնություն կգնահատվի, շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Գերազանց հոդված
Ես հարց ունեմ.
Ինչպե՞ս ջնջել բացերը սկզբից և վերջից՝ ConcatUniq ֆունկցիայի կրկնօրինակներից (բացատների պատճառով առաջացած) խուսափելու համար:
Thank you very much!
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից