Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս համատեղել բազմաթիվ բջիջների պարունակությունը ՝ առանց Excel- ում տվյալների կորստի:

Մենք կարող ենք հաճախ միավորել բջիջները և դրանց բովանդակությունը Microsoft Excel- ում: Այնուամենայնիվ, դուք պարզու՞մ եք բջիջների պարունակությունը համատեղելու ամենադյուրին ճանապարհը: Այստեղ մենք կխոսենք այն մասին, թե ինչպես Excel- ում հեշտությամբ և արագ համատեղել բջիջների պարունակությունը:

Միավորել բազմաթիվ բջիջներ մեկ բջիջի մեջ VBA կոդի հետ
Միավորել բազմաթիվ բջիջներ մեկ բջիջի մեջ Excel- ի համար Kutools- ի հետ ՝ առանց տվյալների կորստի


Միավորել բազմաթիվ բջիջներ մեկ բջիջի մեջ VBA կոդի հետ

Հետևյալ VBA կոդը կարող է օգնել ձեզ միավորել բազմաթիվ բջիջներ մեկ բջիջի մեջ, և Դուք կարող եք կիրառել կոդը հետևյալ քայլերով.

1: Սեղմեք Երեվակիչ > Visual Basic, նոր Microsoft Visual Basic հավելվածների համար պատուհանը կցուցադրվի, կտտացրեք Տեղադրել > Մոդուլներև մուտքագրեք հետևյալ կոդը Մոդուլում.

Sub MergeOneCell()
'Updateby20140128
Dim Rng As Range
Dim WorkRng As Range
Dim Sigh As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Sigh = Application.InputBox("Symbol merge", xTitleId, "", Type:=2)
xOut = ""
Application.DisplayAlerts = False
For Each Rng In WorkRng
    xOut = xOut & Rng.Value & Sigh
Next
With WorkRng
    .Merge
    .Value = VBA.Left(xOut, VBA.Len(xOut) - 1)
End With
Application.DisplayAlerts = True
End Sub

2. Այնուհետեւ կտտացրեք փաստաթուղթ-բազմապատկել-հաշվարկ -3 ծածկագիրը կատարելու համար: Ձեզ համար բացվում է երկխոսություն ՝ VBA- ի հետ աշխատելու տիրույթ ընտրելու համար: Տեսեք սքրինշոթերը.

3: Սեղմեք Ok, ձեզ համար ցուցադրվում է մեկ այլ երկխոսություն `բաժանարարը նշելու համար: Տեսեք,

doc միավորել բջջային պարունակությունը 2

4: Սեղմեք Ok, ապա ընտրված տիրույթում բջիջների պարունակությունը համակցվում են բջիջի մեջ: Տեսեք,

doc միավորել բջջային պարունակությունը 3


Միավորել բազմաթիվ բջիջներ մեկ բջիջի մեջ Excel- ի համար Kutools- ի հետ ՝ առանց տվյալների կորստի

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

1, Ընտրեք այն բջիջները, որոնք ցանկանում եք միավորել տվյալները: Եվ կիրառեք այս օգտակար ծրագիրը ՝ կտտացնելով Կուտոլս > Միաձուլում և պառակտում > Միավորել տողերը, սյունակները կամ բջիջները ՝ առանց տվյալների կորստի.

2, Մեջ Միավորել սյունակները կամ տողերը երկխոսության տուփ, նշեք ձեզ անհրաժեշտ ընտրանքները: Տեսեք,

  • (1.) Ընտրեք Միավորել մեկ բջիջի մեջ տակ Ընտրված բջիջները համատեղելու համար `համաձայն հետևյալ ընտրանքների;
  • (2.) Համակցված տվյալների համար նշեք տարանջատիչ: Յուրաքանչյուր բովանդակություն կարող եք առանձնացնել տարածությամբ, ոչինչով, կետանշանով կամ հատուկ տեքստով: Եվ դուք կարող եք նաև ցուցադրել համակցված բովանդակությունը նոր տողում:

doc միավորել բջջային պարունակությունը 5

3. Այնուհետեւ կտտացրեք OK or Դիմել, բազմաթիվ բջիջների բոլոր տվյալները միացվել են մեկ բջիջի: Տեսեք,

Նշում. Այս օգտակար ծրագիրը կարող է նաև օգնել ընտրված սյունակների բջիջները միավորելուն: Դուք կարող եք համատեղել անունն ու ազգանունը մեկ ամբողջական անունով բջիջում, ինչպես ցույց է տրված նկարում:

Դրանից հետո դուք կարող եք տեսնել, որ անուններն ու ազգանունները միավորված են և տեղակայված են լրիվ անվանումներում:

  Եթե ​​ցանկանում եք ունենալ այս օգտակար ծառայության անվճար փորձարկում (30-օրյա), խնդրում ենք կտտացնել այն ներբեռնելու համար, և այնուհետև անցեք գործողությունը կիրառելու վերը նշված քայլերին համապատասխան:


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


Դեմո. Միավորել / միաձուլել բազմաթիվ բջիջներ մեկում ՝ առանց տվյալների կորստի

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

🤖 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%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
my earlier query is about this vba:Sub MergeOneCell() 'Updateby20140128 Dim Rng As Range Dim WorkRng As Range Dim Sigh As String On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) Sigh = Application.InputBox("Symbol merge", xTitleId, ",", Type:=2) xOut = "" Application.DisplayAlerts = False For Each Rng In WorkRng xOut = xOut & Rng.Value & Sigh Next With WorkRng .Merge .Value = VBA.Left(xOut, VBA.Len(xOut) - 1) End With Application.DisplayAlerts = True End Sub Between, what does the type here, "8" & "2" refers to
This comment was minimized by the moderator on the site
how repeat the process if i have 4 different reference and need to combine them one after the other
This comment was minimized by the moderator on the site
Awesome! Greatly helps! Thank you so much!
This comment was minimized by the moderator on the site
how to merge 2 cell ex:-[a1:41.00] [B1:kWh] [C1:041.00 kWh]
This comment was minimized by the moderator on the site
Thanks very much - was a big help!
This comment was minimized by the moderator on the site
Thamks a lot for the code. Was very helpful.
This comment was minimized by the moderator on the site
Very helpful thank you took me a while to find it but was just what I needed. Note in the VBA code if you want to seperate data with a semicolon, comma or some other charater in the "delim = " " " field put you charater betwen the quotes example: delim = ";". Thanks again.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations