Note: The other languages of the website are Google-translated. Back to English

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

փաստաթուղթը միացնել մինչև դատարկ 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- ի համար:


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

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

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

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (7)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս դա կանեիք, եթե ցանկանում եք այն հիմնել մեկ այլ սյունակի վրա: Ես ունեմ նմանատիպ տվյալներ, բայց B սյունակը I սյունակում թվեր են, այնուհետև նշումները (ինչպես ձեր պտուղը), ես ուզում եմ միավորել I սյունակի բոլոր նշումները, մինչև B սյունակում լինի մեկ այլ բջիջ, որն ունի միայն համար: Երբեմն B-ի տակ տառ կա կամ բջիջները դատարկ են, ինչի պատճառով այն պետք է համակցվի մինչև թիվը: Հետո վերջապես կարո՞ղ է այն վերադառնալ այնտեղ, որտեղ սկսել է կոմբայնը: Այսինքն, առաջին համարի բոլոր նշումները գտնվում են j սյունակում, բայց եթե հաջորդ թիվը 5 տող է ներքևում, դա լավ է, այն պարզապես գնում է j սյունակում, բայց նույն տողի համարը, որ գտնվել է համարը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այն ցույց է տալիս, որ 3-րդ տողում շարահյուսական սխալ կա «Dim xRg As Range», երբ ես փորձում եմ այս մոդուլը գործարկել 1-ին մեթոդի հիման վրա, ի՞նչ պետք է անեմ դրա դեմ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, JJ, կոդը լավ է աշխատում իմ աշխատաթերթում, Excel-ի ո՞ր տարբերակն եք օգտագործում: Կամ կարող եք տեղադրել ձեր խնդրի պատկերը այստեղ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
հիանալի աշխատանք եղբայր, շատ օգտակար
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,
Խնդրեմ. Ուրախ եմ, որ օգնում է: Ցանկացած հարց, խնդրում ենք ազատ զգալ կապվել մեզ հետ: Հիանալի օր անցկացրեք:
Sincerely,
Mandy
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն! Արժեքները փոխելուց հետո (օրինակ՝ ձմերուկ խնձորի փոխարեն) ինչու՞ բանաձևը չի գործում։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Քրիստինա

Մեր հոդվածը տրամադրում է VBA կոդ, բանաձև չի տալիս: Եթե ​​փոխեք բջջային բովանդակությունը, ապա պետք է նորից գործարկեք կոդը՝ ճիշտ արդյունք ստանալու համար:
Thank you!
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից