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

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

Միացրեք բջիջների արժեքները, մինչև եթե 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 այս կոդն աշխատեցնելու բանալին, և հուշվում է արկղը ՝ հիշեցնելու համար, որ ընտրեք տվյալների տիրույթը, որը ցանկանում եք միավորել, տես նկարի նկարը.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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