Ինչպե՞ս վերադարձնել որոնման բազմաթիվ արժեքներ մեկ ստորակետով առանձնացված բջիջում:

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

doc վերադարձնել բազմաթիվ արժեքներ ստորակետով առանձնացված 1

Վերադարձեք որոնման մի քանի արժեքներ մեկ ստորակետով բաժանված բջիջում `օգտագործողի կողմից սահմանված գործառույթով

Վերադարձեք որոնման բազմաթիվ արժեքներ մեկ ստորակետով առանձնացված բջիջում Kutools- ի համար Excel- ի համար

Վերադարձեք որոնման մի քանի արժեքներ մեկ ստորակետով բաժանված բջիջում `օգտագործողի կողմից սահմանված գործառույթով

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

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

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

VBA կոդ. Փնտրման բազմաթիվ արժեքներ վերադարձնել մեկ ստորակետով առանձնացված բջիջ

Function SingleCellExtract(LookupValue As String, LookupRange As Range, ColumnNumber As Integer, Char As String)
'Updateby Extendoffice
    Dim I As Long
    Dim xRet As String
    For I = 1 To LookupRange.Columns(1).Cells.Count
        If LookupRange.Cells(I, 1) = LookupValue Then
            If xRet = "" Then
                xRet = LookupRange.Cells(I, ColumnNumber) & Char
            Else
                xRet = xRet & "" & LookupRange.Cells(I, ColumnNumber) & Char
            End If
        End If
    Next
    SingleCellExtract = Left(xRet, Len(xRet) - 1)
End Function

3, Ապա պահեք այս կոդը և փակեք Մոդուլի պատուհանը, վերադարձեք ձեր աշխատաթերթը և մուտքագրեք այս բանաձևը. = SingleCellExtract (D2, A2: B15,2, ",") դատարկ բջիջի մեջ, որը ցանկանում եք վերադարձնել արդյունքը: Եվ հետո սեղմեք Մտնել արդյունք ստանալու համար ստեղնը, տես նկարի նկարը.

doc վերադարձնել բազմաթիվ արժեքներ ստորակետով առանձնացված 2

ՆշումՎերոհիշյալ բանաձևում.

D2: ցույց է տալիս այն բջիջների արժեքները, որոնք ցանկանում եք փնտրել;

A2: B15: տվյալների տիրույթն է, որը ցանկանում եք վերցնել տվյալները.

2.2 թիվը սյունակի համարն է, որը պետք է վերադարձվի համապատասխան արժեքը.

,: ստորակետն այն բաժանարարն է, որը ցանկանում եք տարանջատել բազմակի արժեքները:

Կարող եք դրանք փոխել ըստ ձեր կարիքի:

Վերադարձեք որոնման բազմաթիվ արժեքներ մեկ ստորակետով առանձնացված բջիջում Kutools- ի համար Excel- ի համար

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

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

Անցեք Ներբեռնում
30 օրվա անվճար փորձարկում Ձեռք բերել
PayPal / MyCommerce

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներխնդրում եմ արեք հետևյալը.

1, Ընտրեք տվյալների տիրույթը, որը ցանկանում եք համատեղել սյունակի վրա հիմնված բոլոր համապատասխան արժեքները:

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

3, Մեջ Միավորել շարքերը ՝ հիմնվելով սյունակի վրա երկխոսության տուփ, կտտացրեք սյունակի անունը, որի վրա ցանկանում եք միավորել, և այնուհետև կտտացրեք Առաջնային բանալին կոճակը, տես նկարի նկարը.

doc վերադարձնել բազմաթիվ արժեքներ ստորակետով առանձնացված 4

4, Դրանից հետո կտտացրեք սյունակի այլ անունին, որը ցանկանում եք համատեղել դրանց համապատասխան արժեքները և կտտացրեք Միավորել ընտրել մեկ տարանջատիչ `համակցված արժեքներն առանձնացնելու համար, տես նկարի նկարը.

doc վերադարձնել բազմաթիվ արժեքներ ստորակետով առանձնացված 5

5. Այնուհետեւ կտտացրեք OK կոճակը, նույն արժեք ունեցող բոլոր համապատասխան բջիջները միավորվել են մեկ բջիջի մեջ, որոնք բաժանված են ստորակետով, տեսեք սքրինշոթերը.

doc վերադարձնել բազմաթիվ արժեքներ ստորակետով առանձնացված 6

doc վերադարձնել բազմաթիվ արժեքներ ստորակետով առանձնացված 7

Սեղմեք ՝ այս Advanced Combine Rows օգտակար ծառայության մասին ավելի մանրամասն տեղեկություններ ստանալու համար

Ներբեռնեք և անվճար փորձեք Kutools- ը Excel- ի համար:

Դեմո. Վերադարձեք որոնման մի քանի արժեքներ մեկ ստորակետով առանձնացված բջիջում Kutools- ի համար Excel- ի համար

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

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

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

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

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

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

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

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

մեկնաբանություններ (16)

Գնահատված 5- ը 5- ից դուրս է · 2 վարկանիշ

ԳԱՆԳԱԴՀԱՐ

մոտ 5 տարի առաջ

#19810

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Մինչ ես պատրաստվում եմ տեղադրել և պահպանել մոդուլը, հայտնվում է թռուցիկ հաղորդագրություն, որ ֆունկցիոնալության համատեղելիության ստուգիչի զգալի կորուստ է

պատասխանել

Հյուր

մոտ 5 տարի առաջ

#20594

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Շնորհակալություն այս գրառման համար: Գիտե՞ք, թե ինչպես կվարվեի այս ստեղծվող երկու առանձին ամբողջ թվերի մանիպուլյացիայի մասին: Օրինակ, ասենք, որ «=SingleCellExtract» ֆունկցիան այժմ արտադրում է (1, 2): Կա՞ միջոց կողքին ունենալ բջիջ, որն ունի (1+.5 , 2+.5):

պատասխանել

Կ Ռեյ

մոտ 5 տարի առաջ

#21678

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Սա աշխատում է, բայց դանդաղեցնում է իմ գերազանցությունը հիմնականում: Կա՞ն խորհուրդներ, որոնք կօգնեն արագացնել:

պատասխանել

Ծխ

մոտ 5 տարի առաջ

#21834

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Սա պարզապես չի աշխատում: Ես չկարողացա ստիպել այն աշխատել իմ սեփական հավելվածում, ուստի ես պատճենեցի/տեղադրեցի vba-ն և բանաձևը, և ամեն անգամ այն սխալ էր վերադարձնում:

պատասխանել

M Macklam

մոտ 5 տարի առաջ

#23661

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

շնորհակալություն, նախ ես կարողացա ստիպել սա աշխատել առանց կատարողականի դանդաղեցման: Ես օգտագործում եմ արժեքներ, ավելի շուտ այդ տեքստը, ուստի իմ հարցն այն է, որ ուզում եմ վերադարձնել բոլոր նրանց, ովքեր ունեն 19 միավորից պակաս ցուցակում: Կարո՞ղ է արդյոք միայնակ բջիջը Extract-ն աշխատել դրա համար, թե՞ այն պետք է լինի որոշակի արժեք:

պատասխանել

մոտ 4 տարի առաջ

#24897

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

VB հրամանը խախտում է, երբ միջակայքը 154 տողից ավելի է (այսինքն՝ B154):...

պատասխանել

աբհի

մոտ 2 տարի առաջ

#32700

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Սխալը հայտնվում է զանգվածի չափը մեծացնելու դեպքում

պատասխանել

Biplab Das

մոտ 2 տարի առաջ

#32802

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Երբ 2 չափանիշները համընկնում են, ապա վերադարձրեք մի քանի որոնման արժեքներ մեկ ստորակետով բաժանված բջիջում
A2=B2 Ապա արդյունք տիրույթից «SingleCellExtract»-ի կողմից - Խնդրում եմ.......

պատասխանել

Kathleen

մոտ 9 ամիս առաջ

#37877

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարի առավոտ,

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

պատասխանել

հաշվետվություն

Գնահատված 5- ը 5- ից դուրս է

Մանիկանտան

մոտ 6 ամիս առաջ

#39460

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Ողջու՜յն,

Ես ուզում եմ ճշգրիտ վավերացման կոդը մի քանի արժեքների համար, որոնք բաժանված են ստորակետերով և յուրաքանչյուր արժեքի համար բացատ:

Example:
Լյուսի, Թոմ, Նիկոլ, Ակաշ, Apple

Խնդրում ենք վերարտադրել, եթե ունեք առաջարկներ:

պատասխանել

Գնահատված 4.5- ը 5- ից դուրս է

skyyang Մանիկանտան

մոտ 5 ամիս առաջ

#39549

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև, Մանիկանտա
Բազմաթիվ արժեքները ստորակետով և բացատով առանձնացնելու համար պարզապես անհրաժեշտ է բացատ ավելացնել ստորակետի հետևում, փոխել բանաձևը հետևյալ կերպ. =SingleCellExtract(D2,A2:B15,2", ").
Խնդրում եմ փորձեք, հուսով եմ, որ դա կարող է օգնել ձեզ:

պատասխանել

հաշվետվություն

Մանիկանտան skyyang

մոտ 5 ամիս առաջ

#39559

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև Սքայանգ,

Շնորհակալություն ձեր կրկնության համար:

Ես արդեն փորձեցի նույն կերպ, բայց բջջի արժեքում վերջին մեկ լրացուցիչ ստորակետ (,) ներքևում բերված օրինակն է:

Լյուսի, Թոմ, Նիկոլ, Ակաշ, Էփլ,

Սա չի աշխատի Json ֆայլի համար, ուստի ես ուզում եմ, որ արժեքներն առանձնացվեն ստորակետով և բացատով, ինչպես ստորև:

Լյուսի, Թոմ, Նիկոլ, Ակաշ, Apple

Thank you!

պատասխանել

skyyang Մանիկանտան

մոտ 5 ամիս առաջ

#39567

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև, Մանիկանտա
Այս դեպքում կարող եք կիրառել ստորև նշված Օգտագործողի կողմից սահմանված գործառույթը.

Function MultipleValues(work_range As Range, criteria As Variant, merge_range As Range, Optional Separator As String = ",") As Variant
Dim outcome As String
On Error Resume Next
If work_range.Count <> merge_range.Count Then
MultipleValues = CVErr(xlErrRef)
Exit Function
End If
For i = 1 To work_range.Count
If work_range.Cells(i).Value = criteria Then
outcome = outcome & Separator & merge_range.Cells(i).Value
End If
Next i
If outcome <> "" Then
outcome = VBA.Mid(outcome, VBA.Len(Separator) + 1)
End If
MultipleValues = outcome
Exit Function
End Function

Կոդը տեղադրելուց հետո օգտագործեք այս բանաձևը. =MultipleValues($A$2:$A$15,D2,$B$2:$B$15,", ")

Խնդրում եմ փորձեք, հուսով եմ, որ սա կօգնի ձեզ:
Եթե դեռ որևէ այլ խնդիր ունեք, խնդրում ենք մեկնաբանել այստեղ:

https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-return-multiple-matching-1.png

պատասխանել

հաշվետվություն

Մանիկանտան skyyang

մոտ 5 ամիս առաջ

#39580

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև Սքայանգ,

Սա այժմ աշխատում է: Շնորհակալություն արագ արձագանքելու համար:

Ինձ համար շատ օգտակար է ևս մեկ անգամ: Շնորհակալություն ձեր օգնության համար:

Regards,
Մանիկանտան։

պատասխանել

Գնահատված 5- ը 5- ից դուրս է

Յերի

մոտ 2 ամիս առաջ

#41721

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

No soy programador pero necesito ayuda para que la función de abajo en lugar devolverme esto

S-01-08-0017->Micro Post 1R, Սև, Չժանգոտվող պողպատից -End,->4;S-01-08-0057->Micro Post 2R, Black, Stainless Steel -End,->2

me devuelva los valores en líneas diferentes.
S-01-08-0017->Micro Post 1R, Սեւ, Չժանգոտվող պողպատից -End,->4
S-01-08-0057->Micro Post 2R, Սեւ, Չժանգոտվող պողպատից -End,->2

La función es:
SingleCellExtract ֆունկցիա (LookupValue որպես տող, LookupRange որպես տիրույթ, ColumnNumber որպես ամբողջ թիվ, Char որպես տող)
― Թարմացնելով Extendoffice
Dim I As Long
Dim xRet As String
For I = 1 To LookupRange.Columns(1).Cells.Count
Եթե LookupRange.Cells(I, 1) = LookupValue Այնուհետեւ
Եթե xRet = "" Ապա
xRet = LookupRange.Cells (I, ColumnNumber) & Char
Ուրիշ
xRet = xRet & "" & LookupRange.Cells(I, ColumnNumber) & Char
Վերջ: Եթե
Վերջ: Եթե
հաջորդ
SingleCellExtract = ձախ (xRet, Len (xRet) - 1)
End գործառույթը

պատասխանել

skyyang Յերի

մոտ 2 ամիս առաջ

#41787

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև, Յերի,
Դուք նկատի ունեիք բջիջը բաժանել մի քանի տողերի՝ հիմնվելով ստորակետի նիշի վրա:
Եթե այո, ապա հետևյալ VBA կոդը կարող է օգնել ձեզ.

Sub SplitAll()
    Dim xRg As Range
    Dim xRg1 As Range
    Dim xCell As Range
    Dim I As Long
    Dim xAddress As String
    Dim xUpdate As Boolean
    Dim xRet As Variant
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
        If xRg.Columns.Count > 1 Then
            MsgBox "You can't select multiple columns", , "Kutools for Excel"
            Exit Sub
            End If
            Set xRg1 = Application.InputBox("Split to (single cell):", "Kutools for Excel", , , , , , 8)
            Set xRg1 = xRg1.Range("A1")
            If xRg1 Is Nothing Then Exit Sub
                xUpdate = Application.ScreenUpdating
                Application.ScreenUpdating = False
                For Each xCell In xRg
                    xRet = Split(xCell.Value, ";")
                    xRg1.Worksheet.Range(xRg1.Offset(I, 0), xRg1.Offset(I + UBound(xRet, 1), 0)) = Application.WorksheetFunction.Transpose(xRet)
                    I = I + UBound(xRet, 1) + 1
                Next
                Application.ScreenUpdating = xUpdate
            End Sub

Խնդրում ենք փորձել, հուսով եմ, որ դա կարող է օգնել ձեզ:

պատասխանել

հաշվետվություն

Առայժմ ոչ մի մեկնաբանություն չկա