Hvordan sammenkædes celleværdier, indtil hvis finder en tom celle i en kolonne?

For eksempel har jeg en liste over værdier, der inkluderer nogle tomme celler, og nu vil jeg sammenkæde hvert sæt data mellem emnerne i en celle og liste de kombinerede værdier i en anden kolonne som vist nedenstående skærmbillede. Hvordan kunne jeg sammenkæde celler, indtil jeg fandt en tom celle i en kolonne?

Sammenkæd celleværdier, indtil hvis finder en tom celle i en kolonne med VBA-kode

Sammenkæd celleværdier indtil hvis finder en tom celle i en kolonne med Kutools til Excel

Sammenkæd celleværdier, indtil hvis finder en tom celle i en kolonne med VBA-kode

Der er ingen direkte måde for dig at sammenkæde et sæt celler mellem emnerne, men du kan anvende følgende VBA-kode for at håndtere det. Gør som følger:

1. Hold nede ALT + F11 nøgler til at åbne Vinduet Microsoft Visual Basic til applikationer.

2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.

VBA-kode: sammenkædes celleværdier, indtil hvis finder en tom celle

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. Tryk derefter på F5 nøgle til at køre denne kode, og der vises et promptfelt for at minde dig om at vælge det dataområde, du vil sammenkæde, se skærmbillede:

4. Klik derefter på OK, og en anden promptboks vises. Vælg en celle for at output det sammenkædede resultat, se skærmbillede:

5. Og klik derefter på OK knap, og kolonnelistedataene er sammenkædet mellem emnerne, se skærmbillede:

Sammenkæd celleværdier indtil hvis finder en tom celle i en kolonne med Kutools til Excel

Hvis du har Kutools til Excel, der kombinerer dens Transformér rækkevidde og Kombiner funktioner, kan du også afslutte dette job så hurtigt som muligt. Det Transformér rækkevidde hjælpeprogram kan hjælpe dig med at konvertere den enkelte kolonne til et interval og Kombiner funktion kan hjælpe dig med at sammenkæde det transformerede interval til en kolonne.

Efter installation Kutools til Excelskal du gøre som følger:

1. Vælg de celler, du vil sammenkæde, og klik på Kutools > Range > Transformér rækkevidde, se skærmbillede:

2. I Transformér rækkevidde dialogboks, tjek En kolonne til rækkevidde mulighed under Transformeringstype, Og vælg derefter Tom celle afgrænser poster under Rækker pr. Rekord, se skærmbillede:

3. Klik derefter på Ok, og en promptboks vil dukke op for at minde dig om at vælge en celle til at output resultatet, se skærmbillede:

4. Klik OK, og enkeltkolonnedataene er konverteret til flere rækker og kolonner af den tomme celle, se skærmbillede:

5. De konverterede data findes i flere kolonner, så du skal kombinere dem i en kolonne, vælg dataområdet og klik Kutools > Flet og del > Kombiner rækker, kolonner eller celler uden at miste data, se skærmbillede:

6. I Kombiner kolonner eller rækker i dialogboksen, skal du gøre følgende indstillinger:

(1.) Vælg Kombiner kolonner mulighed fra At kombinere valgte celler i henhold til følgende muligheder;

(2.) Angiv derefter en separator, som du vil adskille de sammenkædede værdier;

(3.) Vælg hvordan du vil håndtere de kombinerede celler. Du kan beholde eller slette de originale data, og du kan også flette de kombinerede celler. Se skærmbillede:

7. Når du er færdig med indstillingerne, skal du klikke på Ok or Indløs knap, cellerne er blevet sammenkædet i en kolonne med en bestemt separator, se skærmbillede:

Download og gratis prøveversion Kutools til Excel nu!

---

De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

• Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
• Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
• Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
• Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
• Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
• Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
• Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
• Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
• Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.

Læs mere ... Gratis download... Køb... 

---

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

• Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
• Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
• Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!

Læs mere ... Gratis download... Køb...