Ինչպե՞ս 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, ",") դատարկ բջիջի մեջ, որտեղ ուզում եք դուրս բերել համակցված արդյունքը և սեղմել Մտնել եզակի համակցված արդյունք ստանալու բանալին, տես նկարի նկարը.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Այստեղ դուք կարող եք կիրառել հետևյալ 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 այս կոդն աշխատեցնելու բանալին, և հուշվում է արագ տուփ ՝ հիշեցնելու համար, որ ընտրեք տվյալների տիրույթը, որը ցանկանում եք միավորել ՝ ելնելով եզակի արժեքներից, տե՛ս նկար

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, Մեջ Ընդլայնված կոմբինատ տողեր երկխոսության տուփ, կտտացրեք սյունակի անունը, որը ցանկանում եք թվարկել միայն եզակի արժեքները և կտտացնել Առաջնային բանալին, տես նկարի նկարը.

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

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

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