Excel ձեռնարկ. Միավորել սյունակներ, տողեր, բջիջներ
Սյունակների, տողերի կամ բջիջների համակցումը սովորաբար օգտագործվում է մեր ամենօրյա Excel-ի աշխատանքում, օրինակ՝ անունն ու ազգանունը համատեղելը, որը երկու սյունակում մեկ սյունակում ստանում է ամբողջական անունը, համակցում է նույն ID-ի վրա հիմնված տողերը և համապատասխան արժեքներն ամփոփում, համադրում: բջիջների մի շարք մեկ բջիջի մեջ և այլն: Այս ձեռնարկը թվարկում է Excel-ում սյունակներ/տողեր/բջիջներ համակցելու բոլոր սցենարները և առաջարկում է ձեզ համար տարբեր լուծումներ:
Այս ձեռնարկում ես ստեղծում եմ մի քանի օրինակներ՝ բացատրելու մեթոդները, դուք կարող եք փոխել հղումները ձեզ անհրաժեշտ համար, երբ օգտագործում եք ստորև VBA կոդ կամ բանաձևեր, կամ կարող եք ուղղակիորեն ներբեռնել նմուշները՝ փորձելու մեթոդները:
Սեղմեք ՝ նիշքի նիշքը ներբեռնելու համար
1 Միավորել սյունակները/տողերը մեկ բջիջի մեջ
Սյունակները կամ տողերը մեկ բջիջի մեջ միավորելը և արդյունքը բաժանելը ստորակետով, բացատով կամ այլ սահմանազատիչներով, ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթը, առավել լայնորեն օգտագործվում է Excel-ում:
Միավորել սյունակները մեկ բջիջի մեջ |
Միավորել տողերը մեկ բջիջի մեջ |
1.11 Օգտագործելով ամպերսանդի նշանը (&)
Excel-ում նշանանշանը & սովորաբար օգտագործվում է տեքստերը միացնելու համար:
Օրինակ. Միավորել անունը (սյունակ A) և ազգանունը (սյունակ B) լրիվ անվանմանը
Ընտրեք մի բջիջ, որտեղ ցանկանում եք տեղադրել համակցված արդյունքը, այնուհետև մուտքագրեք այսպիսի բանաձև.
=A2&" "&B2
Բանաձևում & օգտագործվում է տեքստերը միացնելու համար, A2-ը և B2-ը երկու տեքստերն են, որոնք պետք է համակցվեն, " "-ը սահմանազատիչն է (տարածությունը), որը բաժանում է երկու տեքստերը արդյունքի վանդակում, եթե ցանկանում եք օգտագործել ստորակետ: որպես սահմանազատող, պարզապես մուտքագրեք ստորակետ, որը կցված է կրկնակի չակերտներով «,»:
մամուլ Մտնել ստեղնը՝ համակցված արդյունքը ստանալու համար, այնուհետև քաշեք ավտոմատ լրացման բռնակը ներքև՝ համակցված արդյունքներ ստանալու համար:
Օրինակ. Միավորել համարը (տող 15) և անունը (տող 16) մեկ բջիջ
Եթե ցանկանում եք տողերը միավորել մեկ բջիջի մեջ, փոխեք բջիջների հղումներն ու տարանջատիչը բանաձևում ըստ անհրաժեշտության և քաշեք ավտոմատ լրացման բռնակը դեպի աջ՝ համակցված արդյունքներ ստանալու համար:
1.12 Օգտագործելով CONCATENATE ֆունկցիան (Excel 2016 կամ ավելի վաղ տարբերակներ)
Եթե օգտագործում եք Excel 2016 կամ ավելի վաղ տարբերակները, CONCATENATE ֆունկցիան կարող է օգնել ձեզ:
Շարահյուսություն CONCATENATE-ի մասին |
CONCATENATE (text1,[text2],…) |
CONCATENATE ֆունկցիայի մասին լրացուցիչ մանրամասների համար այցելեք՝ ՀԱՆԳՍՏԻ.
Օրինակ. Միավորել անունները (սյունակ F) և հասցեն (սյունակ G) մեկ սյունակում
Ընտրեք մի բջիջ, որտեղ ցանկանում եք տեղադրել համակցված արդյունքը, այնուհետև մուտքագրեք այսպիսի բանաձև.
= CONCATENATE (F2,",", "G2)
Բանաձևում F2-ը և G2-ը երկու տեքստերն են, որոնք պետք է համակցվեն, «»-ը սահմանազատիչն է (ստորակետ), որը բաժանում է արդյունքի բջիջի երկու տեքստերը, եթե ցանկանում եք օգտագործել տարածությունը որպես սահմանազատող, պարզապես մուտքագրեք բացատ: կցվում է կրկնակի չակերտներով:
մամուլ Մտնել ստեղնը՝ համակցված արդյունքը ստանալու համար, այնուհետև քաշեք ավտոմատ լրացման բռնակը ներքև՝ համակցված արդյունքներ ստանալու համար:
Տողերը համակցելու համար պարզապես փոխեք բջիջների հղումներն ու սահմանազատիչը ըստ անհրաժեշտության և քաշեք ավտոմատ լրացման բռնակը դեպի աջ:
1.13 Օգտագործելով CONCAT ֆունկցիան կամ TEXTJOIN ֆունկցիան (Excel 2019 կամ Excel 365)
Եթե օգտագործում եք Excel 2019 կամ Excel 365, CONCAT ֆունկցիան և TEXTJOIN ֆունկցիան կարող են ավելի լավ ընտրություն լինել:
Շարահյուսություն CONCAT-ի մասին |
CONCAT (text1,[text2],…) |
CONCAT ֆունկցիայի մասին լրացուցիչ մանրամասների համար այցելեք՝ ԿՈՆԿԱՏ.
CONCAT ֆունկցիայի օգտագործումը նույնն է, ինչ CONCATENATE ֆունկցիան, անունն ու ազգանունը երկու սյունակներում առանձին մեկ սյունակում միավորելու համար, բանաձևն օգտագործվում է այսպես.
=CONCAT(A21," ",B21)
Բանաձևում A21-ը և B21-ը երկու տեքստերն են, որոնք պետք է համակցվեն, " "-ը սահմանազատիչն է (տարածությունը), որը բաժանում է երկու տեքստերը արդյունքի վանդակում, եթե ցանկանում եք օգտագործել այլ սահմանազատիչներ, պարզապես մուտքագրեք սահմանազատիչը, որը կցված է կրկնակի: մեջբերումներ «»:
Համակցված արդյունքը ստանալու համար սեղմեք Enter ստեղնը, այնուհետև քաշեք ավտոմատ լրացման բռնակը ներքև՝ համակցված արդյունքներ ստանալու համար:
Տարբերվելով սյունակները համակցելուց, տողերը համատեղելիս՝ առաջին բանաձևը մուտքագրելուց հետո, դուք պետք է քաշեք ավտոմատ լրացման բռնակը դեպի աջ, մինչև ստացվեն բոլոր համակցված արդյունքները:
Շարահյուսություն TEXTJOINT-ի մասին |
TEXTJOIN (delimiter, ignore_empty, text1, [text2], ...) |
TEXTJOIN ֆունկցիայի մասին լրացուցիչ մանրամասների համար այցելեք՝ ՄԻԱԵԼ.
Սյունակները կամ տողերը միավորելու համար՝ օգտագործելով TEXTJOIN՝
=TEXTJOIN(",",TRUE,E21:G21))
Բանաձևում E21:G21-ը շարունակական միջակայք է, որը պետք է համակցվի: " " սահմանազատիչն է (տարածությունը), որը բաժանում է երկու տեքստերը արդյունքի վանդակում, եթե ցանկանում եք օգտագործել այլ սահմանազատիչներ, պարզապես մուտքագրեք սահմանազատիչը, որը կցված է կրկնակի մեջբերումներով "": Տրամաբանական տեքստը «TRUE» ցույց է տալիս, որ պետք է անտեսել դատարկ բջիջները համատեղելիս, եթե ցանկանում եք համատեղել դատարկ թերթիկներով, փոխարինեք TRUE-ը FALSE-ով:
Համակցված արդյունքը ստանալու համար սեղմեք Enter ստեղնը, այնուհետև քաշեք ավտոմատ լրացման բռնակը ներքև՝ համակցված արդյունքներ ստանալու համար:
Անտեսեք բացերը |
Ներառեք բացթողումներ |
1.14 Գրառման գրքույկի օգտագործումը (միայն սյունակները համակցելու համար)
1. Օգտագործելով Notepad-ը, կարող եք նաև հասնել սյունակների համակցման (ոչ մի ազդեցություն տողերի համակցման վրա):
Ընտրեք այն տիրույթը, որը ցանկանում եք միավորել սյունակները մեկի մեջ և սեղմել Ctrl + C ստեղներ՝ միջակայքը պատճենելու համար:
2: Բացեք ա Գրքույկեւ սեղմեք Ctrl + V պատճենված միջակայքը տեղադրելու համար:
3. Ընտրեք ներդիր երկու տեքստերի միջև Նոթատետրում և սեղմեք Ctrl + H հնարավորություն ընձեռել Փոխարինել հատկանիշի մեջ տեղադրվել է ներդիրի խորհրդանիշ Գտեք ինչ տեքստային տուփ:
4. Մեջ Փոխարինել textbox, մուտքագրեք սահմանազատիչը, որը ցանկանում եք առանձնացնել համակցված տեքստերը, այնուհետև սեղմեք Փոխարինեք բոլորը, Ապա փակիր Փոխարինել երկխոսություն:
5. Այժմ ընտրեք տեքստերը Notepad-ում և սեղմեք Ctrl + C դրանք պատճենելու համար և գնացեք Excel, ընտրեք բջիջ և սեղմեք Ctrl + V համակցված արդյունքները տեղադրելու համար:
Ընդլայնում՝ միավորել սյունակները/տողերը մեկ բջիջում՝ տողի ընդմիջումով որպես սահմանազատող
Եթե ցանկանում եք միավորել սյունակները կամ տողերը մեկ բջիջի մեջ՝ գծի ընդմիջումով, ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթը.
Նախ, դուք պետք է հասկանաք, որ Excel-ում, CHAR () ֆունկցիան կարող է օգտագործվել այնպիսի նիշեր նշելու համար, որոնք դժվար է մուտքագրել բանաձևում, օրինակ CHAR (10) վերադարձնում է տողի ընդմիջում:
Այնուհետև օգտագործեք CHAR(10)-ը վերևում թվարկված բանաձևերի մեջ՝ սյունակները կամ տողերը տողերի ընդմիջումով որպես սահմանազատող միավորելու համար:
Ամպերսանդի խորհրդանիշ.
=A49&CHAR(10)&B49
CONCATENATE ֆունկցիա.
=CONCATENATE(A49,CHAR(10),B49)
CONCAT ֆունկցիա
=CONCAT(A49,CHAR(10),B49)
TEXTJOIN գործառույթ
=TEXTJOIN(CHAR(10),TRUE,A49:B49)
Վերևում բանաձևը մուտքագրելուց հետո ընտրեք արդյունքները և սեղմեք Գլխավոր > Փաթեթավորեք տեքստը.
Այժմ սյունակները միավորվում են մեկի մեջ և բաժանվում են գծի ընդմիջումով:
Եթե դուք պարզապես ցանկանում եք միավորել տողերը մեկ սյունակի մեջ մեկ բջիջի մեջ, Excel-ում Justify ֆունկցիան կարող է օգնել ձեզ: Ընտրեք սյունակը մի քանի տողերով և սեղմեք Գլխավոր > Լրացնել > արդարացնել, այնուհետև տողերը կմիավորվեն ընդգրկույթի վերին բջիջում՝ որպես տարանջատող տարածություն:
Այս մասում ձեռնարկը ներկայացնում է սյունակները կամ տողերը մեկ բջիջում միավորելու և դատարկ բջիջները բաց թողնելու մեթոդները, ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթը.
1.21 Օգտագործելով TEXTJOIN ֆունկցիան (Excel 2019 կամ Excel 365)
Եթե դուք օգտագործում եք Excel 2019 կամ Excel 365, բարեբախտաբար, նոր TEXTJOIN ֆունկցիան կարող է հեշտությամբ լուծել այս խնդիրը:
Շարահյուսություն CONCATENATE-ի մասին |
TEXTJOIN (delimiter, ignore_empty, text1, [text2], ...) |
TEXTJOIN ֆունկցիայի մասին լրացուցիչ մանրամասների համար այցելեք՝ ՄԻԱԵԼ.
Օրինակ. Միավորել անունը (սյունակ A) և համարը (սյունակ B) և տիրույթը (սյունակ C) մեկ բջիջում՝ էլեկտրոնային փոստի հասցե ստեղծելու համար, որոշ համարներ կարող են դատարկ լինել:
Ընտրեք մի բջիջ, որն օգտագործվում էր համակցված արդյունքը տեղադրելու համար, մուտքագրեք բանաձևը հետևյալ կերպ.
=TEXTJOIN("", TRUE,A2:C2)
Բանաձևում A2:C2 այն տիրույթն է, որը պարունակում է տեքստեր, որոնք պետք է համակցվեն, «»-ը սահմանազատողն է (ոչ մեկը), որը բաժանում է երկու տեքստերը արդյունքի վանդակում, եթե ցանկանում եք օգտագործել սահմանազատիչ՝ տեքստերը առանձնացնելու համար, պարզապես. մուտքագրեք սահմանազատիչը, որը կցված է կրկնակի մեջբերումներով «», ինչպես օրինակ «,»: Տրամաբանական տեքստը «TRUE» ցույց է տալիս, որ պետք է անտեսել դատարկ բջիջները համատեղելիս, եթե ցանկանում եք համատեղել դատարկ թերթիկներով, փոխարինեք TRUE-ը FALSE-ով:
մամուլ Մտնել բանալին՝ առաջին արդյունքը ստանալու համար, և քաշեք ավտոմատ լրացման բռնակը ներքև կամ աջ, քանի որ անհրաժեշտ է բոլոր արդյունքները ստեղծելու համար:
1.22 Օգտագործելով ամպերսանդի նշանը (&)
Եթե դուք Excel 2016 կամ ավելի վաղ Excel տարբերակներում եք, օգտագործեք նշանի նշանը և տեքստերը մեկ առ մեկ միացնելու և ձեռքով բաց թողնել դատարկությունները:
Ընտրեք մի բջիջ, որտեղ ցանկանում եք տեղադրել համակցված արդյունքը, այնուհետև մուտքագրեք այսպիսի բանաձև.
=A10&C10
Բանաձևում, & օգտագործվում է տեքստերը միացնելու համար, A10 և C10 երկու տեքստերն են, որոնք պետք է համակցվեն: Եթե ցանկանում եք օգտագործել ստորակետը որպես սահմանազատող, պարզապես մուտքագրեք ստորակետ, որը կցված է կրկնակի մեջբերումներով, ինչպես օրինակ «» և օգտագործեք: & երկու տեքստերի միջև կապ հաստատելու համար:
մամուլ Մտնել բանալին՝ համակցված արդյունք ստանալու համար: Այնուհետև փոխեք բանաձևի հղումները՝ հաջորդ համակցված արդյունքը ստանալու համար:
1.23 Սահմանված ֆունկցիայի օգտագործում
Excel 2016-ի և Excel-ի ավելի վաղ տարբերակների օգտվողների համար, եթե կան մի քանի սյունակներ կամ տողեր, որոնք անհրաժեշտ են համատեղել՝ բաց թողնելով բացերը, կարող եք օգտագործել VBA-ն՝ ստեղծելու Սահմանված ֆունկցիա՝ այս աշխատանքը արագ լուծելու համար:
1. Մամուլ ալտ + F11 ստեղները ՝ Microsoft Visual Basic հավելվածների համար պատուհան.
2: սեղմեք Տեղադրել > Մոդուլներ նոր մոդուլ տեղադրելու համար:
3. Պատճենեք և տեղադրեք ստորև բերված կոդը նոր մոդուլում և պահպանեք այն:
VBA. Միավորել բջիջները՝ բաց թողնել դատարկ բջիջները
Function Concatenatecells(ConcatArea As Range) As String
'updateby Extendoffice
For Each n In ConcatArea: nn = IIf(n = "", nn & "", nn & n & "_"): Next
Concatenatecells = Left(nn, Len(nn) - 1)
End Function
4. Վերադարձեք աշխատաթերթ և ընտրեք մի բջիջ, որը տեղադրում է համակցված արդյունքը, մուտքագրեք բանաձևը
=Concatenatecells(A15:C15)
Բանաձևում A15:C15 տիրույթն է, որը պարունակում է տեքստեր, որոնք պետք է համակցվեն: VBA կոդում «_»-ը ցույց է տալիս այն սահմանազատիչը, որն օգտագործվում էր տեքստերը համակցված արդյունքում առանձնացնելու համար, դուք կարող եք փոխել սահմանազատիչը ըստ անհրաժեշտության:
Եթե տեղադրեք Excel- ի համար նախատեսված գործիքներ Excel-ում, որ Միավորել տողերը, սյունակները կամ բջիջները ՝ առանց տվյալների կորստի առանձնահատկությունը բավականին օգնում է աշխատանքների համատեղման տեսակների մեջ:
1. Ընտրեք այն բջիջները, որոնք ցանկանում եք միավորել և այն բջիջները, որոնք ցանկանում եք տեղադրել համակցված արդյունքները:
2: սեղմեք Կուտոլս > Միաձուլում և պառակտում > Միավորել տողերը, սյունակները կամ բջիջները ՝ առանց տվյալների կորստի.
3. Բացվող երկխոսության մեջ նշեք հետևյալ ընտրանքները.
1) Նշեք սյունակները կամ տողերը միավորելը կամ բոլոր բջիջները մեկի մեջ միավորելու համար:
Միավորել սյունակները, օրինակ. | Միավորել տողերը, օրինակ. | Միավորել մեկ բջջի մեջ, օրինակ. |
2) Համակցված արդյունքում նշեք տեքստերի բաժանարարը:
3) Նշեք համակցված արդյունքի գտնվելու վայրը (անջատված է Combine into single cell տարբերակը)
Միավորել սյունակները տարբերակը ընտրելիս կարող եք նշել, որ արդյունքը տեղադրվի ընտրված միջակայքի ձախ բջիջում կամ ընտրված միջակայքի աջ բջիջում:
Ձախ բջիջ, օրինակ. | Աջ բջիջ, օրինակ. |
Ընտրելիս Միավորել շարքերը տարբերակ, կարող եք նշել, որպեսզի արդյունքը տեղադրվի ընտրված տիրույթի վերին բջիջում կամ ընտրված միջակայքի ներքևի բջիջում:
Վերին բջիջ, օրինակ. | Ներքևի բջիջ, օրինակ. |
4) Նշեք գործողությունը համակցված արդյունքների վերաբերյալ:
4: սեղմեք Ok or Դիմել համադրությունն ավարտելու համար:
Պահպանեք համակցված բջիջների պարունակությունը |
Deleteնջել համակցված բջիջների պարունակությունը |
Միավորել համակցված բջիջները |
Այս հատկության մասին լրացուցիչ մանրամասների համար այցելեք Միավորել սյունակներ, տողեր, բջիջներ՝ առանց տվյալների կորստի.
Excel-ի համար Kutools-ի մասին լրացուցիչ մանրամասների համար այցելեք Excel- ի համար նախատեսված գործիքներ.
Excel-ի համար Kutools-ի 30-օրյա անվճար փորձարկման համար խնդրում ենք բեռնել այն հիմա:
Երբեմն դուք կարող եք միավորել երկու սյունակ, եթե սյունակներից մեկը պարունակում է դատարկ բջիջներ: Ենթադրենք, որ կան երկու սյունակներ, A սյունակը պարունակում է օգտվողների անուններ և որոշ դատարկ բջիջներ, իսկ B սյունակը պարունակում է Անուններ, այժմ պարզապես լրացրեք A սյունակի դատարկ բջիջները համապատասխան բովանդակությամբ սյունակ B-ում, երբ միավորում եք երկու սյունակները, ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթը.
1.41 IF ֆունկցիայի օգտագործում
IF ֆունկցիան օգտագործվում է որոշակի պայմանի փորձարկման համար: Այստեղ դուք կարող եք օգտագործել IF ֆունկցիան՝ ստուգելու համար, թե արդյոք բջիջը դատարկ է, այնուհետև լրացրեք բացերը մեկ այլ սյունակի բովանդակությամբ:
Շարահյուսություն IF ֆունկցիայի մասին |
IF (logical_test, [value_if_true], [value_if_false]) |
IF ֆունկցիայի մասին լրացուցիչ մանրամասների համար այցելեք՝ IF
Ընտրեք սյունակի վերին բջիջը, որը ցանկանում եք տեղադրել համակցված արդյունքները, և պատճենեք կամ մուտքագրեք ստորև բերված բանաձևը.
=IF(A2="",B2,A2)
Այնուհետեւ սեղմեք Մտնել բանալին՝ առաջին արդյունքը ստանալու համար, և ներքև քաշեք ավտոմատ լրացման բռնիչը՝ բոլոր արդյունքները ստանալու համար:
Այժմ միայն A սյունակի դատարկ բջիջները լրացվել են B սյունակի բովանդակությամբ:
Ահա VBA կոդը, որը նույնպես կարող է կարգավորել այս աշխատանքը:
1. Մամուլ ալտ + F11 ստեղները ՝ Microsoft Visual Basic հավելվածների համար պատուհանը, ապա կտտացրեք Տեղադրել > Մոդուլներ ստեղծել նոր դատարկ մոդուլ:
2. Պատճենեք և տեղադրեք ստորև բերված կոդը նոր մոդուլում:
VBA. Միավորել երկու սյունակ, եթե դատարկ է
Sub MergebyBlank()
'UpdatebyExtendoffice20220506
Dim xRg1, xRg2, xRgUser As Range
Dim xRg As Range
Dim xWsh As Worksheet
Dim xCount, xFNum As Integer
Set xRg1 = Range("A:A")
Set xRg2 = Range("B:B")
Set xWsh = xRg1.Worksheet
Set xRgUser = xWsh.UsedRange
Set xRg1 = Intersect(xRgUser, xRg1)
Set xWsh = xRg2.Worksheet
Set xRgUser = xWsh.UsedRange
Set xRg2 = Intersect(xRgUser, xRg2)
xCount = xRg1.Count
If (xCount > xRg2.Count) Then
xCount = xRg2.Count
End If
For xFNum = 1 To xCount
If (xRg1.Item(xFNum).Value = "") Then
If (xRg2.Item(xFNum).Value <> "") Then
xRg1.Item(xFNum).Value = xRg2.Item(xFNum).Value
End If
ElseIf (xRg2.Item(xFNum).Value = "") Then
If (xRg1.Item(xFNum).Value <> "") Then
xRg2.Item(xFNum).Value = xRg1.Item(xFNum).Value
End If
End If
Next
End Sub
Կոդում A:A և B:B երկու սյունակներն են, որոնք կմիավորվեն, պարզապես փոխեք դրանք ըստ անհրաժեշտության:
3. Դրանից հետո սեղմեք F5 բանալին կամ կտտացնելը Վազում կոճակը, ապա A սյունակը կլցվի B սյունակի արժեքով, եթե արժեքը A սյունակում դատարկ է:
2 Միավորել տողերը նույն ID-ով
Ենթադրենք, որ կա մի քանի սյունակներով աղյուսակ, մեկ սյունակ պարունակում է ID արժեքներ, որոնք ունեն կրկնօրինակ տարրեր: Այժմ ձեռնարկը տրամադրում է նույն ID-ի հիման վրա աղյուսակի տողերը միավորելու և որոշ հաշվարկներ կատարելու մեթոդներ:
Այստեղ այս մասում այն տրամադրում է նույն ID-ով և ստորակետերով բաժանված տողերը միավորելու մեթոդները, ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթը.
Այստեղ տրամադրվում է VBA կոդ, որը կարող է կարգավորել այս աշխատանքը
1. Մամուլ ալտ + F11 ստեղները ՝ Microsoft Visual Basic հավելվածների համար պատուհանը, ապա կտտացրեք Տեղադրել > Մոդուլներ ստեղծել նոր դատարկ մոդուլ:
2. Պատճենեք և տեղադրեք ստորև բերված կոդը նոր մոդուլում:
VBA. Միավորել տողերը նույն ID-ով
Sub Combine_Rows()
'UpdatebyExtendoffice20220506
Dim xRg As Range
Dim xRows As Long
Dim I As Long, J As Long, K As Long
On Error Resume Next
Set xRg = Application.InputBox("Select Range:", "Kutools For Excel", Selection.Address, , , , , 8)
Set xRg = Range(Intersect(xRg, ActiveSheet.UsedRange).Address)
If xRg Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
For I = xRows To 2 Step -1
For J = 1 To I - 1
If xRg(I, 1).Value = xRg(J, 1).Value And J <> I Then
For K = 2 To xRg.Columns.Count
If xRg(J, K).Value <> "" Then
If xRg(I, K).Value = "" Then
xRg(I, K) = xRg(J, K).Text
Else
xRg(I, K) = xRg(I, K).Text & "," & xRg(J, K).Text 'here uses comma as separator, you can change it to others as you need
End If
End If
Next
xRg(J, 1).EntireRow.Delete
I = I - 1
J = J - 1
End If
Next
Next
ActiveSheet.UsedRange.Columns.AutoFit
End Sub
3. Դրանից հետո սեղմեք F5 բանալին կամ կտտացնելը Վազում կոճակը, ապա Excel-ի համար Kutools-ի երկխոսությունը դուրս է գալիս, որպեսզի ընտրեք աղյուսակ, որը պետք է համակցվի նույն ID-ով տողերով:
4: սեղմեք OK. Այժմ ընտրված աղյուսակը համակցված է նույն ID-ի վրա հիմնված տողերի վրա:
2.12 Օգնական սյունակներ ավելացնելու համար IF ֆունկցիայի օգտագործումը
Եթե կա ընդամենը երկու սյունակ, և դուք ցանկանում եք միավորել տողերը նույն ID-ով, և մեկ այլ սյունակի արժեքներ՝ բաժանված ստորակետով, ինչպես ցույց է տալիս ստորև նշված սքրինշոթը, IF ֆունկցիան կարող է ձեզ լավություն անել:
1. Տեսակավորել ID-ն A-ից Z: Ընտրեք ID-ի սյունակը, սեղմեք Ամսաթիվ > Տեսակավորել Ա-ն Z-ին.
2. Հետո Տեսակավորել նախազգուշացումը երկխոսություն, ստուգում Ընդարձակել ընտրության տարբերակը, սեղմեք Տեսակ.
Հիմա նույն ID-ները միասին են դասավորվել։
3. Հարակից սյունակում, օգտագործելով IF ֆունկցիան այսպես.
=IF(A17=A18,C17&", "&B18,B18)
Բանաձևում A17-ը և A18-ը ID սյունակի երկու հարակից բջիջներն են (A17-ը ID սյունակի վերնագիրն է), B18-ը՝ A18 բջիջի համապատասխան բջիջը: "," ցույց է տալիս արժեքները ստորակետով առանձնացնելու համար: անհրաժեշտության դեպքում կարող եք փոխել հղումները և բաժանարարը:
4. Մամուլ Մտնել բանալին՝ առաջին արդյունքը ստանալու համար, այնուհետև քաշեք ավտոմատ լրացման բռնակը ներքև՝ բոլոր արդյունքները ստանալու համար:
5. Գնացեք հարակից սյունակ, մուտքագրեք բանաձևը հետևյալ կերպ.
=IF(A18<>A19,«Միացված»,«»)
Բանաձևում A18-ը և A19-ը ID սյունակի երկու հարակից բջիջներն են, եթե հարակից բջիջները հավասար չեն, այն կվերադառնա «Միաձուլված», հակառակ դեպքում՝ դատարկ:
6. Մամուլ Մտնել բանալին՝ առաջին արդյունքը ստանալու համար, այնուհետև քաշեք ավտոմատ լրացման բռնակը ներքև՝ բոլոր արդյունքները ստանալու համար:
7. Ընտրեք վերջին բանաձևի սյունակը, ներառյալ վերնագիրը և սեղմեք Ամսաթիվ > ֆիլտր.
8. Սեղմեք ֆիլտր կոճակը և նշումը Միաձուլվեց բացվող մենյուի վանդակը, սեղմեք OK.
Այժմ միայն միաձուլված տողերն են զտվել, պատճենեք զտված տվյալները և տեղադրեք դրանք մեկ այլ տեղում:
Լրացուցիչ մանրամասներ IF ֆունկցիայի մասին: խնդրում ենք այցելել՝ IF.
Եթե տեղադրեք Excel- ի համար նախատեսված գործիքներ Excel-ում, որ Ընդլայնված կոմբինատ տողեր կարող է հեշտությամբ կատարել այս աշխատանքը:
1. Ընտրեք աղյուսակը և սեղմեք Կուտոլս > Միաձուլում և պառակտում > Ընդլայնված կոմբինատ տողեր.
2. Մեջ Ընդլայնված կոմբինատ տողեր երկխոսություն, խնդրում եմ արեք հետևյալ կերպ.
1) Ընտրեք ID սյունակը և սահմանեք այն որպես Առաջնային բանալին;
2) Ընտրեք այն սյունակը, որը ցանկանում եք միավորել արժեքները բաժանարարի հետ, սեղմեք Միավորել և ընտրել մեկ բաժանարար:
3) սեղմեք Ok.
Այժմ տողերը միավորվել են նույն ID-ով:
Ընդլայնված միավորել տողերի հատկությունը կխախտի բնօրինակ տվյալները, խնդրում ենք պահպանել դրանք որպես պատճեն՝ օգտագործելուց առաջ:
Այս հատկության մասին լրացուցիչ մանրամասների համար այցելեք Ընդլայնված կոմբինատ տողեր.
Excel-ի համար Kutools-ի մասին լրացուցիչ մանրամասների համար այցելեք Excel- ի համար նախատեսված գործիքներ.
Excel-ի համար Kutools-ի 30-օրյա անվճար փորձարկման համար խնդրում ենք բեռնել այն հիմա:
Եթե ցանկանում եք միավորել տողերը նույն ID-ով և այնուհետև գումարել արժեքները կամ կատարել այլ հաշվարկներ, ինչպես ցույց է տալիս ստորև ներկայացված սքրինշոթը, ստորև ներկայացված մեթոդները կարող են օգնել ձեզ:
2.21 Օգտագործելով «Համախմբել» գործառույթը
Եթե կա ընդամենը երկու սյունակ, մի սյունակ պարունակում է տեքստեր (ID), իսկ մյուսը պարունակում է արժեքներ, որոնք պետք է հաշվարկվեն, օրինակ՝ գումարը, Excel-ի ներկառուցված հատկանիշը: Համախմբել կարող է ձեզ բարեհաճություն դրսեւորել:
1. Ընտրեք մի բջիջ, որտեղ ցանկանում եք տեղադրել համակցված արդյունքը, ապա սեղմեք Ամսաթիվ > Համախմբել.
2. Մեջ Համախմբել երկխոսություն, արեք հետևյալ կերպ.
1) Ընտրեք այն Ֆունկցիաներ ինչպես պետք է;
2) Սեղմեք սլաքը՝ աղյուսակը ընտրելու համար.
3) Կտտացրեք Ավելացնել ընտրված միջակայքը ավելացնելու համար Բոլոր հղումները ցուցակ;
4) Նշեք վանդակները Վերին շարքը և Ձախ սյունակ;
5) Կտտացրեք OK.
Այժմ աղյուսակը ամփոփվել է նույն ID-ի հիման վրա։
Ահա VBA-ն, որը կարող է նաև միավորել տողերը նույն ID-ով և այնուհետև գումարել արժեքները:
1. Մամուլ ալտ + F11 ստեղները ՝ Microsoft Visual Basic հավելվածների համար պատուհանը, ապա կտտացրեք Տեղադրել > Մոդուլներ ստեղծել նոր դատարկ մոդուլ:
2. Նոր մոդուլում պատճենեք և տեղադրեք ստորև նշված VBA կոդը դրա մեջ:
VBA: Միավորել կրկնօրինակ տողերը և գումարը
Sub CombineRows()
'Updateby Extendoffice
Dim WorkRng As Range
Dim Dic As Variant
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Dic = CreateObject("Scripting.Dictionary")
arr = WorkRng.Value
For i = 1 To UBound(arr, 1)
Dic(arr(i, 1)) = Dic(arr(i, 1)) + arr(i, 2)
Next
Application.ScreenUpdating = False
WorkRng.ClearContents
WorkRng.Range("A1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys)
WorkRng.Range("B1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
Application.ScreenUpdating = True
End Sub
3. Դրանից հետո սեղմեք F5 բանալին կամ կտտացնելը Վազում կոճակը, այնուհետև բացվում է երկխոսություն՝ ընտրելու ձեր օգտագործած աղյուսակը, այնուհետև սեղմեք OK.
Այժմ ընտրված միջակայքը համակցվել է նույն արժեքներով և ամփոփվել:
VBA-ն կխախտի բնօրինակ տվյալները, խնդրում ենք պահպանել տվյալները որպես պատճեն՝ նախքան VBA-ն օգտագործելը:
2.23 Օգտագործելով հարմար գործիք – Ընդլայնված Միավորել տողերը
Եթե աղյուսակում երկուսից ավելի սյունակներ կան, որոնք ցանկանում եք միավորել և կատարել հաշվարկներ, օրինակ, կան երեք սյունակներ, առաջինը պարունակում է կրկնօրինակ ապրանքների անուններ, որոնք պետք է համակցվեն միասին, երկրորդը պարունակում է խանութների անուններ, որոնք անհրաժեշտ են. կարող է համակցվել և բաժանվել ստորակետով, վերջին սյունակը պարունակում է թվեր, որոնք պետք է գումարվեն՝ հիմնվելով առաջին սյունակի կրկնօրինակ տողերի վրա, ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթը, Kutools-ը Excel-ի Ընդլայնված համակցման տողերի համար կարող է օգնել ձեզ:
1. Ընտրեք աղյուսակը և սեղմեք Կուտոլս > Միաձուլում և պառակտում > Ընդլայնված կոմբինատ տողեր.
2. Մեջ Ընդլայնված կոմբինատ տողեր երկխոսություն, խնդրում եմ արեք հետևյալ կերպ.
1) Ընտրեք ID սյունակը և սահմանեք այն որպես Առաջնային բանալին;
2) Ընտրեք այն սյունակը, որը ցանկանում եք միավորել արժեքները բաժանարարի հետ, սեղմեք Միավորել և ընտրել մեկ բաժանարար:
3) Ընտրեք այն սյունակը, որը ցանկանում եք կատարել հաշվարկը, սեղմեք Հաշվել և ընտրեք մեկ հաշվարկ:
4) սեղմեք Ok.
Այժմ տողերը համակցվել են նույն տողերի հետ և հաշվարկվել։
Ընդլայնված միավորել տողերի հատկությունը կխախտի բնօրինակ տվյալները, խնդրում ենք պահպանել դրանք որպես պատճեն՝ օգտագործելուց առաջ:
Այս հատկության մասին լրացուցիչ մանրամասների համար այցելեք Ընդլայնված կոմբինատ տողեր.
Excel-ի համար Kutools-ի մասին լրացուցիչ մանրամասների համար այցելեք Excel- ի համար նախատեսված գործիքներ.
Excel-ի համար Kutools-ի 30-օրյա անվճար փորձարկման համար խնդրում ենք բեռնել այն հիմա:
Եթե կա մի քանի սյունակներով աղյուսակ, մի սյունակ պարունակում է կրկնօրինակ արժեքներ, այժմ խնդիրն այս սյունակի հարակից տողերը միավորելն է նույն արժեքներով, ինչ ցույց է տրված ստորև նշված սքրինշոթում: Ինչպե՞ս կարող ես լուծել այն:
Excel-ում չկա ներկառուցված հատկություն, որը կարող է ուղղակիորեն լուծել այս աշխատանքը, բայց այստեղ տրամադրվում է VBA, որը կարող է կարգավորել այն:
1. Մամուլ ալտ + F11 ստեղները ՝ Microsoft Visual Basic հավելվածների համար պատուհանը, ապա կտտացրեք Տեղադրել > Մոդուլներ ստեղծել նոր դատարկ մոդուլ:
2. Նոր մոդուլում պատճենեք և տեղադրեք ստորև նշված VBA կոդը դրա մեջ:
VBA: Միավորել հարակից տողերը նույն արժեքով
Sub MergeSameCell()
'Updateby Extendoffice
Dim Rng As Range, xCell As Range
Dim xRows As Integer
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
xRows = WorkRng.Rows.Count
For Each Rng In WorkRng.Columns
For i = 1 To xRows - 1
For j = i + 1 To xRows
If Rng.Cells(i, 1).Value <> Rng.Cells(j, 1).Value Then
Exit For
End If
Next
WorkRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)).Merge
i = j - 1
Next
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
3. Դրանից հետո սեղմեք F5 բանալին կամ կտտացնելը Վազում կոճակը՝ այս VBA-ն ակտիվացնելու համար, այնուհետև երկխոսություն է բացվում՝ ընտրելու ձեր օգտագործած աղյուսակը, այնուհետև սեղմեք OK.
Այժմ առաջին սյունակի նույն արժեքներով հարակից տողերը համակցված են ընտրված տիրույթում:
VBA-ն կխախտի բնօրինակ տվյալները, խնդրում ենք պահպանել տվյալները որպես պատճեն՝ նախքան VBA-ն օգտագործելը: Եվ այս VBA-ն կմիավորի նույն արժեքները ընտրված աղյուսակի առաջին սյունակում:
2.32 Օգտագործելով հարմար գործիք – Միավորել նույն բջիջները
Եթե դուք ունեք Excel- ի համար նախատեսված գործիքներ տեղադրված է Excel-ում, որ Միաձուլել նույն բջիջները Excel-ի համար Kutools-ի առանձնահատկությունը կարող է լուծել այս աշխատանքը մեկ քայլով:
Ընտրեք այն սյունակը, որը ցանկանում եք միավորել նույն արժեքները, այնուհետև կտտացրեք Կուտոլս > Միաձուլում և պառակտում > Միաձուլել նույն բջիջները.
Այժմ նույն արժեքներով հարակից բջիջները միավորվել են։
I Եթե ցանկանում եք միաձուլել միավորված բջիջները և հետ լրացնել արժեքները, կարող եք կիրառել Անջատել բջիջները և լրացնել արժեքները առանձնահատկություն.
Այս հատկության մասին լրացուցիչ մանրամասների համար այցելեք Միաձուլել նույն բջիջները.
Այս հատկության մասին լրացուցիչ մանրամասների համար այցելեք Անջատել բջիջը.
Excel-ի համար Kutools-ի մասին լրացուցիչ մանրամասների համար այցելեք Excel- ի համար նախատեսված գործիքներ.
Excel-ի համար Kutools-ի 30-օրյա անվճար փորձարկման համար խնդրում ենք բեռնել Թեմա.
3 Միավորել բջիջները
Բազմաթիվ տողերով և սյունակներով ընդգրկույթը մեկ բջջի մեջ համակցելու համար այստեղ ներկայացված են չորս մեթոդ:
Օրինակ՝ Միավորել A1:C3 միջակայքը
3.11 Օգտագործելով ամպերսանդի նշանը (&)
Excel-ում նշանանշանը & սովորաբար օգտագործվում է տեքստերը միացնելու համար:
Ընտրեք մի բջիջ, որը ցանկանում եք տեղադրել համակցված արդյունքը, ապա մուտքագրեք բանաձև, ինչպիսին է.
=A1&", "&B1&", "&C1&", "&A2&", " &B2&", "&C2&", "&A3&", "&B3&", "&C3"
Բանաձևում &-ն օգտագործվում է տեքստերը միացնելու համար, ", "-ը սահմանազատիչն է (ստորակետ + բացատ), որը բաժանում է երկու տեքստերը արդյունքի վանդակում, եթե ցանկանում եք օգտագործել այլ սահմանազատիչներ, պարզապես մուտքագրեք բաժանարար, որը կցված է կրկնակի մեջբերումներով:
մամուլ Մտնել բանալին՝ համակցված արդյունք ստանալու համար:
3.12 Օգտագործելով CONCATENATE ֆունկցիան (Excel 2016 կամ ավելի վաղ տարբերակներ)
Եթե օգտագործում եք Excel 2016 կամ ավելի վաղ տարբերակները, CONCATENATE ֆունկցիան կարող է օգնել ձեզ:
Շարահյուսություն CONCATENATE-ի մասին |
CONCATENATE (text1,[text2],…) |
CONCATENATE ֆունկցիայի մասին լրացուցիչ մանրամասների համար այցելեք՝ ՀԱՆԳՍՏԻ
Ընտրեք մի բջիջ, որը ցանկանում եք տեղադրել համակցված արդյունքը, այնուհետև մուտքագրեք բանաձև, ինչպիսին է.
=CONCATENATE(A1,", ",B1,", ",C1,", ",A2,", ",B2,", ",C2,", ",A3,", ",B3,", " , C3)
Բանաձևում A1, B1…, C3 տեքստերն են, որոնք ցանկանում եք համատեղել: ", "-ը սահմանազատիչն է (ստորակետ + բացատ), որը բաժանում է երկու տեքստերը արդյունքի վանդակում, եթե ցանկանում եք օգտագործել այլ սահմանազատիչներ, պարզապես մուտքագրեք բաժանարար, որը կցված է կրկնակի մեջբերումներով:
Այնուհետեւ սեղմեք Մտնել բանալին՝ համակցված արդյունք ստանալու համար:
3. 13 Օգտագործելով CONCAT ֆունկցիան կամ TEXTJOIN ֆունկցիան (Excel 2019 կամ Excel 365)
Եթե օգտագործում եք Excel 2019 կամ Excel 365, CONCAT ֆունկցիան և TEXTJOIN ֆունկցիան կարող են ավելի լավ ընտրություն լինել:
Շարահյուսություն CONCAT-ի մասին |
CONCAT (text1,[text2],…) |
CONCAT ֆունկցիայի մասին լրացուցիչ մանրամասների համար այցելեք՝ ԿՈՆԿԱՏ.
CONCAT ֆունկցիայի օգտագործումը նույնն է, ինչ CONCATENATE ֆունկցիան, անունն ու ազգանունը համատեղելու համար, որոնք երկու սյունակներում առանձին-առանձին մեկ սյունակում են, բանաձևն օգտագործվում է այսպես.
=CONCAT(A1,", ",B1,", ",C1,", ",A2,", ",B2", ",C2,", ",A3,", ",B3,", " , C3)
Բանաձևում A1, B1…, C3 տեքստերն են, որոնք ցանկանում եք համատեղել: ", "-ը սահմանազատիչն է (ստորակետ + բացատ), որը բաժանում է երկու տեքստերը արդյունքի վանդակում, եթե ցանկանում եք օգտագործել այլ սահմանազատիչներ, պարզապես մուտքագրեք բաժանարար, որը կցված է կրկնակի մեջբերումներով:
Այնուհետեւ սեղմեք Մտնել բանալին՝ համակցված արդյունք ստանալու համար:
Շարահյուսություն TEXTJOIN-ի մասին |
TEXTJOIN (delimiter, ignore_empty, text1, [text2], ...) |
TEXTJOIN ֆունկցիայի մասին լրացուցիչ մանրամասների համար այցելեք՝ ՄԻԱԵԼ.
Սյունակները կամ տողերը միավորելու համար՝ օգտագործելով TEXTJOIN՝
=TEXTJOIN(", ",TRUE,A1:C3)
Բանաձևում A1:C3-ը շարունակական միջակայք է, որը պետք է համակցվի: ", "-ը սահմանազատիչն է (ստորակետ + բացատ), որը բաժանում է երկու տեքստերը արդյունքի վանդակում, եթե ցանկանում եք օգտագործել այլ սահմանազատիչներ, պարզապես մուտքագրեք սահմանազատիչը, որը կցված է կրկնակի մեջբերումներով "": Տրամաբանական տեքստը «TRUE» ցույց է տալիս, որ պետք է անտեսել դատարկ բջիջները համատեղելիս, եթե ցանկանում եք համատեղել դատարկ տեքստերը, փոխարինեք TRUE-ը FALSE-ով:
Այնուհետեւ սեղմեք Մտնել բանալին՝ համակցված արդյունք ստանալու համար:
Եթե ցանկանում եք օգտագործել տողերի ընդմիջումը որպես սահմանազատող՝ օգտագործելով CHAR(10) բանաձևում, ինչպիսին է =TEXTJOIN(CHAR(10),TRUE,A1:C3), ապա ձևաչափեք արդյունքի բջիջը որպես Wrap Text:
3.14 Միավորել սյունակները/տողերը/բջիջները մեկ բջիջում՝ առանց տվյալների կորստի
Եթե ունեք Kutools Excel-ի համար տեղադրված Excel-ում, ապա Միավորել տողերը, սյունակները կամ բջիջները ՝ առանց տվյալների կորստի հատկությունը կարող է արագ կարգավորել այս աշխատանքը:
1. Ընտրեք բջիջների շրջանակը, որը ցանկանում եք միավորել մեկ բջիջի մեջ, ապա սեղմեք Կուտոլս > Միաձուլում և պառակտում > Միավորել տողերը, սյունակները կամ բջիջները ՝ առանց տվյալների կորստի.
2. Բացվող պատուհանում ստուգեք Միավորել մեկ բջիջի մեջ և նշեք տարանջատիչ, ինչպես ձեզ հարկավոր է, ապա սեղմեք Ok.
Այժմ բջիջները միացված են մեկ բջջի մեջ՝ հատուկ սահմանազատիչով: Եթե բջիջի բովանդակությունը չափազանց շատ է միացված բջիջում ցուցադրելու համար, կարող եք սեղմել Փաթեթավորեք տեքստը տակ Գլխավոր ներդիր՝ դրանք ցույց տալու համար:
Այս հատկության մասին լրացուցիչ մանրամասների համար այցելեք Միավորել սյունակներ, տողեր, բջիջներ՝ առանց տվյալների կորստի.
Excel-ի համար Kutools-ի մասին լրացուցիչ մանրամասների համար այցելեք Excel- ի համար նախատեսված գործիքներ.
Excel-ի համար Kutools-ի 30-օրյա անվճար փորձարկման համար խնդրում ենք բեռնել այն հիմա:
Տեղափոխեք բջիջները մեկ սյունակի մեջ |
Տեղափոխեք բջիջները մեկ տողի մեջ |
3.21 Անվանեք միջակայքը և օգտագործեք INDEX ֆունկցիան (միայն մեկ սյունակի համար)
Եթե ցանկանում եք բջիջների տիրույթը տեղափոխել մեկ սյունակ, կարող եք անվանել միջակայքը և այնուհետև օգտագործել INDEX ֆունկցիան:
1. Ընտրեք բջիջների շրջանակը, աջ սեղմեք՝ համատեքստի ընտրացանկը միացնելու համար և սեղմեք Սահմանեք անունը.
2. Բռնում Նոր անուն երկխոսություն, մուտքագրեք անուն Անուն տեքստային տուփ, կտտացրեք OK.
3. Շրջանակն անվանելուց հետո, այնուհետև ընտրեք բջիջ, որը տեղադրում է փոխադրված տվյալները, օգտագործեք INDEX ֆունկցիան հետևյալ կերպ.
=INDEX(MyData,1+INT((ROW(A1)-1)/COLUMNS(MyData)),MOD(ROW(A1)-1+COLUMNS(MyData),COLUMNS(MyData))+1)
INDEX ֆունկցիայի մասին լրացուցիչ մանրամասների համար այցելեք այստեղ.
4. Մամուլ Մտնել ստեղնը և այնուհետև քաշեք ավտոմատ լրացման բռնակը ներքև՝ այս բանաձևը լրացնելու համար մինչև #REF: հայտնվում է սխալի արժեքը:
5. Հեռացրեք սխալի արժեքը, այնուհետև բջիջների շրջանակը միավորվել է մեկ սյունակում:
3.22 VBA (միայն մեկ սյունակի համար)
Բջիջները մեկ սյունակում միավորելու համար այստեղ կա VBA, որը նույնպես կարող է աշխատել:
1. Մամուլ ալտ + F11 ստեղները ՝ Microsoft Visual Basic հավելվածների համար պատուհանը, ապա կտտացրեք Տեղադրել > Մոդուլներ ստեղծել նոր դատարկ մոդուլ:
2. Պատճենեք և տեղադրեք ստորև ներկայացված VBA կոդը դատարկ մոդուլում:
VBA: Փոխարկեք միջակայքը սյունակի
Sub ConvertRangeToColumn()
'UpdatebyExtendoffice
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
Rng.Copy
Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
3. Դրանից հետո սեղմեք F5 բանալին կամ կտտացնելը Վազում կոճակը, բացվում է երկխոսություն՝ բջիջների մի շարք ընտրելու համար, սեղմեք OK.
4. Մեկ այլ երկխոսություն դուրս է գալիս արդյունքը տեղադրելու համար բջիջ ընտրելու համար, սեղմեք OK.
3.23 Օգտագործելով հարմար գործիք – Փոխակերպման տիրույթ
Եթե ցանկանում եք միավորել բջիջները մեկ տողի մեջ, Excel-ում ներկառուցված ոչ մի հատկություն չկա այն աջակցելու համար: Այնուամենայնիվ, եթե ունեք Excel- ի համար նախատեսված գործիքներ տեղադրված, դրա Փոխակերպել շարքը ֆունկցիան աջակցում է ընդգրկույթը մեկ սյունակի կամ տողի փոխակերպմանը, ինչպես նաև աջակցում է տողերի կամ սյունակների փոխակերպումը տիրույթի:
1. ընտրեք բջիջների շրջանակը և սեղմեք Կուտոլս > Շարք > Փոխակերպել շարքը.
2. Մեջ Փոխակերպել շարքը երկխոսություն, ստուգում Շարքը մինչև մեկ սյունակ or Շարքը մեկ շարքի վրա տարբերակ, ինչպես անհրաժեշտ է: Սեղմել OK.
3. Դուրս է գալիս երկխոսություն՝ արդյունքը տեղադրելու համար բջիջ ընտրելու համար, սեղմեք OK.
Այժմ բջիջների շրջանակը վերածվել է տողի կամ սյունակի:
Այս հատկության մասին լրացուցիչ մանրամասների համար այցելեք Փոխակերպել շարքը.
Excel-ի համար Kutools-ի մասին լրացուցիչ մանրամասների համար այցելեք Excel- ի համար նախատեսված գործիքներ.
Excel-ի համար Kutools-ի 30-օրյա անվճար փորձարկման համար խնդրում ենք բեռնել այն հիմա:
Եթե մի քանի սյունակներով աղյուսակում կան կրկնօրինակներ, ինչպե՞ս կարող եք սյունակները մեկ սյունակի մեջ դնել առանց կրկնօրինակների, ինչպես ցույց է տալիս ստորև ներկայացված սքրինշոթը:
Այս մասում այն տրամադրում է այս աշխատանքը կարգավորելու երեք տարբեր եղանակներ:
3.31 Պատճենեք և տեղադրեք և հեռացրեք կրկնօրինակները
Excel-ում այս աշխատանքը լուծելու ընդհանուր մեթոդն է սյունակները մեկ առ մեկ պատճենել և տեղադրել, այնուհետև հեռացնել կրկնօրինակ արժեքները:
1. Ընտրեք առաջին սյունակը և սեղմեք Ctrl + C կոճակները պատճենելու համար, այնուհետև ընտրեք նպատակային բջիջ և սեղմեք Ctrl + V ստեղները:
2. Այնուհետև կրկնեք 1-ին քայլը՝ այլ սյունակներ պատճենելու և դրանք առաջին սյունակի տակ տեղադրելու համար:
3. Այնուհետեւ ընտրեք կուտակված սյունակը, սեղմեք Ամսաթիվ > Հեռացնել կրկնօրինակները, ապա Հեռացնել կրկնօրինակը երկխոսություն, ստուգեք սյունակի անունը, սեղմեք OK.
4. Այժմ երկխոսություն է բացվում՝ հիշեցնելու, որ կրկնօրինակների արժեքները հեռացված են: Սեղմել OK այն փակելու համար, և կուտակված սյունակը պահպանում է միայն եզակի արժեքները:
Եթե կան հարյուրավոր սյունակներ, մեկ առ մեկ պատճենելն ու տեղադրելը ժամանակատար է։ Այնուամենայնիվ, եթե ունեք Excel- ի համար նախատեսված գործիքներ տեղադրված է Excel-ում, որ Փոխակերպել շարքը հատկանիշը կարող է արագ փոխարկել տիրույթը սյունակի, այնուհետև կիրառել Հեռացնել կրկնօրինակները Excel-ի առանձնահատկությունը:
Ընտրեք սյունակների շրջանակը և սեղմեք Կուտոլս > Շարք > Փոխակերպել շարքը.
Ապա ստուգեք Շարքը մինչև մեկ սյունակ տարբերակը և սեղմեք OK բջիջ ընտրելու համար, որը տեղադրելու է կուտակված սյունակը:
Եվ այնուհետև կիրառեք Remove Duplicates կրկնօրինակ արժեքները հեռացնելու համար:
Այս հատկության մասին լրացուցիչ մանրամասների համար այցելեք Փոխակերպել շարքը.
Excel-ի համար Kutools-ի մասին լրացուցիչ մանրամասների համար այցելեք Excel- ի համար նախատեսված գործիքներ.
Excel-ի համար Kutools-ի 30-օրյա անվճար փորձարկման համար խնդրում ենք բեռնել այն հիմա:
Ավելին, ահա VBA կոդ, որը կարող է լուծել այս աշխատանքը։
1. Մամուլ ալտ + F11 ստեղները ՝ Microsoft Visual Basic հավելվածների համար պատուհանը, ապա կտտացրեք Տեղադրել > Մոդուլներ ստեղծել նոր դատարկ մոդուլ:
2. Պատճենեք և տեղադրեք ստորև բերված կոդը նոր մոդուլում:
VBA. Դրեք սյունակները մեկի մեջ առանց կրկնօրինակների
Sub FindUniques()
'UpdatebyExtendoffice
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set dic = CreateObject("Scripting.Dictionary")
For j = 1 To InputRng.Columns.Count
For i = 1 To InputRng.Rows.Count
xValue = InputRng.Cells(i, j).Value
If xValue <> "" And Not dic.Exists(xValue) Then
OutRng.Value = xValue
dic(xValue) = ""
Set OutRng = OutRng.Offset(1, 0)
End If
Next
Next
End Sub
3. Դրանից հետո սեղմեք F5 բանալին կամ կտտացնելը Վազում կոճակը, այնուհետև դուրս է գալիս երկխոսություն՝ ընտրելու այն սյունակները, որոնք անհրաժեշտ է շարել, սեղմեք OK:
4. Այնուհետև երկրորդ բացվող երկխոսության մեջ ընտրեք նպատակային բջիջ, որպեսզի տեղադրեք կուտակված սյունակը և սեղմեք OK.
Այժմ սյունակները կուտակվել են միայն եզակի արժեքներով մեկ սյունակի մեջ:
Եթե կան երկու սյունակներ, մեկը ձևաչափվում է որպես հատուկ ձևաչափում, օրինակ՝ հատուկ DateTimemm/dd/yyyy, այս երկու սյունակները մեկում սովորական մեթոդներով միավորելու համար, հարմարեցված ձևաչափումը կհեռացվի, ինչպես ցույց է տալիս ստորև ներկայացված սքրինշոթը.
Այժմ այս մասում այն կտրամադրի բջիջները համատեղելու և ձևաչափումը պահպանելու որոշ եղանակներ:
3.41 Ներդրեք TEXT ֆունկցիան բանաձևում
TEXT ֆունկցիան օգտագործվում է համարը որոշակի ձևաչափով տեքստի փոխակերպելու համար: Այստեղ մենք կարող ենք օգտագործել այն՝ սկզբում բջիջը (պարունակում է թվ) վերածելու ձևաչափի, այնուհետև այն միավորելու այլ բջիջների հետ՝ օգտագործելով «&», CONCATENATE ֆունկցիան, CONCAT ֆունկցիան կամ TEXTJOIN ֆունկցիան:
Ընդհանուր բջիջները մեկի մեջ միավորելու մասին մանրամասների համար խնդրում ենք վերադառնալ 1.1.
Շարահյուսություն TEXT ֆունկցիայի մասին |
TEXT (value, format_text) |
TEXT ֆունկցիայի մասին լրացուցիչ մանրամասների համար այցելեք TEXT գործառույթը:
Այստեղ որպես օրինակ վերցնում է CONCAT ֆունկցիայի մեջ TEXT ֆունկցիան:
Խնդրում ենք պատճենել և տեղադրել ստորև բերված բանաձևը մի բջիջում, որտեղ ցանկանում եք տեղադրել համակցված արդյունքը.
=CONCAT(TEXT(A2,"mm/dd/yyyy hh:mm")," ",B2)
Բանաձևում A2-ն այն բջիջն է, որը ցանկանում եք պահպանել ձևաչափումը, «մմ/դդ/տտտտ hh:mm»-ը ձեր օգտագործած ձևաչափումն է, B2-ը մյուս բջիջն է, որն օգտագործվում է համատեղելու համար: " "-ը ցույց է տալիս արժեքները բացատով բաժանելը: անհրաժեշտության դեպքում կարող եք փոխել հղումները, ձևաչափումը և բաժանարարը:
մամուլ Մտնել ստեղն ու քաշեք ավտոմատ լրացման բռնակը ներքև՝ այս բանաձևով բջիջները լցնելու համար:
3.42 Օգտագործելով Microsoft Word-ը
1. Ընտրեք աղյուսակը, որը ցանկանում եք միավորել բջիջները մեկի մեջ և սեղմել Ctrl + C պատճենել դրանք:
2. Բացեք դատարկ Word փաստաթուղթ, մամուլ Ctrl + V դրանք տեղադրելու համար, այնուհետև սեղմեք փաստաթղթի աղյուսակի վրա, այժմ աղյուսակի վերևի աջ մասում հայտնվում է խաչի պատկերակ:
3. Սեղմեք նախագիծ էջանշանը, ապա սեղմեք Փոխարկել տեքստի է Ամսաթիվ խումբ, պոպինգում Աղյուսակը տեքստի վերափոխել երկխոսություն, նշեք սյունակների բաժանարարը: Սեղմել OK.
Այժմ Word-ում աղյուսակի բովանդակությունը վերածվել է տեքստերի:
4. Ընտրեք փոխարկված տեքստերը և սեղմեք Ctrl + C դրանք պատճենելու համար և վերադառնանք Excel և ընտրեք դատարկ բջիջ, սեղմեք Ctrl + V համակցված արդյունքը կպցնելու համար:
3.43 Օգտագործելով հարմար գործիք – Միավորել առանց տվյալների կորստի
Ամենաարդյունավետ միջոցը պետք է լինի ԿExcel- ի համար նախատեսված գործիքներ'S Միավորել տողերը, սյունակները կամ բջիջները ՝ առանց տվյալների կորստի հատկանիշը, որը պարզապես պետք է նշել Օգտագործեք ձևաչափված արժեքներ Նշման վանդակը գործառույթը կիրառելիս, համակցված արդյունքը կպահպանի տվյալների ձևաչափումը:
1. Ընտրեք աղյուսակը, ներառյալ բջիջները, որոնք տեղադրում են արդյունքը, սեղմեք Կուտոլս > Միաձուլում և պառակտում > Միավորել տողերը, սյունակները կամ բջիջները ՝ առանց տվյալների կորստի.
2. Բացվող երկխոսության մեջ նշեք կոմբինատի գործողությունը, ինչպես ձեզ անհրաժեշտ է, և հանեք նշանը Օգտագործեք ձևաչափված արժեքներ վանդակ (կանխադրված, այս տարբերակը նշված է): Սեղմել Ok.
Այժմ տվյալները համակցվել են և պահպանել ձևաչափումը:
Այս հատկության մասին լրացուցիչ մանրամասների համար այցելեք Միավորել սյունակներ, տողեր, բջիջներ՝ առանց տվյալների կորստի.
Excel-ի համար Kutools-ի մասին լրացուցիչ մանրամասների համար այցելեք Excel- ի համար նախատեսված գործիքներ.
Excel-ի համար Kutools-ի {module745}-օրյա անվճար փորձաշրջանի համար խնդրում ենք բեռնել այն հիմա:
Ենթադրենք, որ կա աղյուսակ, որը պարունակում է տարիներ, ամիսներ և օրեր առանձնացված սյունակներում, ապա խնդիրն այն է, որ միավորվեն սյունակները և ստեղծվի ամսաթիվ, ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթը.
3.51 DATE ֆունկցիայի օգտագործում
DATE ֆունկցիան օգտագործվում է տարեթիվ, ամիս և օրով ամսաթիվ ստեղծելու համար:
Շարահյուսություն DATE ֆունկցիայի մասին |
DATE( year, month, day ) |
DATE ֆունկցիայի մասին լրացուցիչ մանրամասների համար այցելեք DATE ֆունկցիա:
Պատճենեք և տեղադրեք ստորև բերված բանաձևը մի բջիջում, որը կտեղադրի ամսաթիվը.
=DATE(A2,B2,C2)
Բանաձևում A2, B2 և C2 բջիջներն են, որոնք պարունակում են տարվա, ամսվա և օրվա արժեքները:
մամուլ Մտնել բանալին՝ առաջին ժամադրությունը ստանալու համար, այնուհետև քաշեք ավտոմատ լրացման բռնակը ներքև՝ բոլոր ամսաթվերը ստանալու համար:
Ավելի շատ Excel ձեռնարկներ.
Միավորել բազմաթիվ աշխատանքային գրքույկներ/աշխատանքային թերթիկներ մեկում
Այս ձեռնարկը, որը թվարկում է գրեթե բոլոր համակցված սցենարները, որոնց կարող եք հանդիպել և տալիս է ձեզ համար հարաբերական մասնագիտական լուծումներ:
Բաժանել տեքստը, համարը և ամսաթվի բջիջները (առանձնացնել մի քանի սյունակների)
Այս ձեռնարկը բաժանված է երեք մասի՝ բաժանված տեքստային բջիջներ, բաժանված թվային բջիջներ և բաժանված ամսաթվի բջիջներ: Յուրաքանչյուր մաս տալիս է տարբեր օրինակներ, որոնք կօգնեն ձեզ իմանալ, թե ինչպես վարվել բաժանման աշխատանքը, երբ բախվում եք նույն խնդրին:
Միավորել բազմաթիվ բջիջների բովանդակությունը՝ առանց Excel-ում տվյալների կորստի
Այս ձեռնարկը կրճատում է արդյունահանումը բջջի որոշակի դիրքի վրա և հավաքում է տարբեր մեթոդներ՝ օգնելու Excel-ում բջիջից տեքստ կամ թվեր հանել ըստ հատուկ դիրքի:
Համեմատեք երկու սյունակ Excel-ի համընկնումների և տարբերությունների համար
Այստեղ այս հոդվածը ներառում է երկու սյունակների համեմատման հնարավոր սցենարները, որոնք դուք կարող եք հանդիպել, և հուսով ենք, որ այն կարող է օգնել ձեզ:
Գրասենյակի արտադրողականության լավագույն գործիքները
Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով
- Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
- Միաձուլել բջիջները / տողերը / սյունակները և տվյալների պահում; Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերն ու գումարը / միջինը... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
- Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
- Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
- Սիրված և արագ ներդիր բանաձևեր, Ընդգրկույթներ, գծապատկերներ և նկարներ; Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
- Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
- Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
- Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
- Առանցք սեղանի խմբավորում ըստ շաբաթվա համարը, շաբաթվա օրը և ավելին ... Showույց տալ ապակողպված, կողպված բջիջները տարբեր գույներով; Նշեք այն բջիջները, որոնք ունեն բանաձև / անուն...
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: