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

Ինչպե՞ս միավորել բջջի արժեքները, մինչև եթե սյունակում գտնի դատարկ բջիջ:

փաստաթուղթը միացնել մինչև դատարկ 1

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

Միացրեք բջիջների արժեքները, մինչև եթե VBA կոդով սյունակում գտնի դատարկ բջիջ

Միացրեք բջիջների արժեքները, մինչև եթե Excel- ի համար Kutools- ի սյունակում գտնի դատարկ բջիջ


նետ կապույտ աջ պղպջակ Միացրեք բջիջների արժեքները, մինչև եթե VBA կոդով սյունակում գտնի դատարկ բջիջ

Դատարկների միջև մի շարք բջիջների միացման ուղղակի ուղի չկա, բայց դրանով զբաղվելու համար կարող եք կիրառել հետևյալ VBA կոդը: Խնդրում ենք անել հետևյալը.

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

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

VBA կոդ. Միաձուլված բջջի արժեքները մինչև եթե գտնի դատարկ բջիջ

Sub Concatenatecells()
'updateby Extendoffice
    Dim xRg As Range
    Dim xSaveToRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xTStr As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please selecte the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count > 1 Then
        MsgBox "the selected range is more than one column", vbInformation, "Kutools for Ecel"
        Exit Sub
    End If
    Set xSaveToRg = Application.InputBox("Please selecte output cell:", "Kutools for Excel", , , , , , 8)
    If xSaveToRg Is Nothing Then Exit Sub
    Set xSaveToRg = xSaveToRg.Cells(1)
    Application.ScreenUpdating = False
    For Each xCell In xRg
        If xCell <> "" Then
            xTStr = xTStr & xCell & " "
        Else
            xSaveToRg.Value = xTStr
            Set xSaveToRg = xSaveToRg.Offset(1)
            xTStr = ""
        End If
    Next
    If xTStr <> "" Then xSaveToRg.Value = Left(xTStr, Len(xTStr) - 1)
    Application.ScreenUpdating = True
End Sub

3. Այնուհետեւ սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և հուշվում է արկղը ՝ հիշեցնելու համար, որ ընտրեք տվյալների տիրույթը, որը ցանկանում եք միավորել, տես նկարի նկարը.

փաստաթուղթը միացնել մինչև դատարկ 10

4. Այնուհետեւ կտտացրեք OK, և մեկ այլ արագ տուփ է դուրս եկել, խնդրում ենք ընտրել բջիջ ՝ համակցված արդյունքը դուրս բերելու համար, տես նկարի նկարը.

փաստաթուղթը միացնել մինչև դատարկ 11

5. Եվ հետո կտտացրեք OK կոճակը, և սյունակների ցուցակի տվյալները միավորված են դատարկների միջև, տես նկարի նկարը.

փաստաթուղթը միացնել մինչև դատարկ 1


նետ կապույտ աջ պղպջակ Միացրեք բջիջների արժեքները, մինչև եթե Excel- ի համար Kutools- ի սյունակում գտնի դատարկ բջիջ

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

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

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

1. Ընտրեք այն բջիջները, որոնք ցանկանում եք միավորել, և կտտացրեք Կուտոլս > Շարք > Փոխակերպել շարքը, տես նկարի նկարը.

2, Մեջ Փոխակերպել շարքը երկխոսության տուփ, ստուգեք Մեկ սյունակ ՝ ընդգրկույթի համար տարբերակով Փոխակերպման տեսակը, Եւ ապա ընտրել Դատարկ բջիջը սահմանազատում է գրառումները տակ Տողեր ըստ ռեկորդի, տես նկարի նկարը.

փաստաթուղթը միացնել մինչև դատարկ 3

3. Այնուհետեւ կտտացրեք Ok, և արագ տուփ դուրս կգա ՝ հիշեցնելու համար, որ ընտրեք բջիջ արդյունքը դուրս բերելու համար, տես նկարի նկարը.

փաստաթուղթը միացնել մինչև դատարկ 4

4: Սեղմեք OK, և մեկ սյունակի տվյալները դատարկ բջիջի կողմից վերափոխվել են բազմաթիվ շարքերի և սյունակների, տե՛ս նկարը.

փաստաթուղթը միացնել մինչև դատարկ 5

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

6, Մեջ Միավորել սյունակները կամ տողերը երկխոսության տուփ, կատարեք հետևյալ ընտրանքները.

(1.) Ընտրեք Միավորել սյունակները տարբերակը Ընտրված բջիջները համատեղելու համար `համաձայն հետևյալ ընտրանքների;

(2.) Ապա նշեք տարանջատիչ, որը ցանկանում եք առանձնացնել միաձուլված արժեքները.

(3.) Ընտրեք, թե ինչպես եք ցանկանում գործ ունենալ համակցված բջիջների հետ: Կարող եք պահել կամ ջնջել բնօրինակ տվյալները, ինչպես նաև կարող եք միավորել համակցված բջիջները: Տեսեք,

փաստաթուղթը միացնել մինչև դատարկ 7

7, Պարամետրերն ավարտելուց հետո կտտացրեք Ok or Դիմել կոճակը, բջիջները միավորվել են հատուկ բաժանարարով մեկ սյունակում, տես նկարի նկարը.

փաստաթուղթը միացնել մինչև դատարկ 8

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

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

🤖 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 (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, I am using the VBA code, but instead of putting the data into separate rows, it is putting it all in a single cell. Does anyone have an idea why it is doing this?
This comment was minimized by the moderator on the site
Hi! After changing the values (ex, watermelon instead of apple) why is the formula not working?
This comment was minimized by the moderator on the site
Hello, Cristina

Our article provides VBA code, doesn't provide a formula. If you change the cell content, you must re-run the code again to get the correct result.
Thank you!
This comment was minimized by the moderator on the site
great job bro, Very useful
This comment was minimized by the moderator on the site
Hello,
You are welcome. Glad it helps. Any questions, please feel free to contact us. Have a great day.
Sincerely,
Mandy
This comment was minimized by the moderator on the site
It shows there's a syntax error on line 3 "Dim xRg As Range" when I'm trying to run this module based on method 1, what should I do about it?
This comment was minimized by the moderator on the site
Hello, JJ, The code works well in my worksheet, which Excel version do you use?Or you can insert a screesnhot of your problem here.
This comment was minimized by the moderator on the site
How would you do it if you want to base it off another column? I have similar data, but column B is a number then notes(like your fruit) in column I, I want to combine all notes in column I until there is another cell in Column B that has only number. Sometimes there are letter under B or the cells are blank which is why it needs to combine until a number. Then finally can it output back to where it started the combine? IE all notes for first number are in column j, but if the next number is 5 rows below that is fine, it just goes in column j but same row number as the number is found?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations