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

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

doc sammenkædes indtil tom 1

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


pil blå højre boble 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:

doc sammenkædes indtil tom 10

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

doc sammenkædes indtil tom 11

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

doc sammenkædes indtil tom 1


pil blå højre boble 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.

Kutools til Excel : med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. 

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:

doc sammenkædes indtil tom 3

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:

doc sammenkædes indtil tom 4

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

doc sammenkædes indtil tom 5

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:

doc sammenkædes indtil tom 7

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:

doc sammenkædes indtil tom 8

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.
kte-fane 201905

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!
officetab bund
Sorter kommentarer efter
Kommentarer (7)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Hvordan ville du gøre det, hvis du vil basere det på en anden kolonne? Jeg har lignende data, men kolonne B er et tal og derefter noter (som din frugt) i kolonne I, jeg vil kombinere alle noter i kolonne I, indtil der er en anden celle i kolonne B, der kun har nummer. Nogle gange er der bogstaver under B, eller cellerne er tomme, hvorfor det er nødvendigt at kombinere indtil et tal. Så kan den endelig sende tilbage til hvor den startede mejetærskeren? IE alle sedler for første nummer er i kolonne j, men hvis det næste tal er 5 rækker under, er det fint, det går bare i kolonne j men samme rækkenummer som nummeret er fundet?
Denne kommentar blev minimeret af moderatoren på webstedet
Det viser, at der er en syntaksfejl på linje 3 "Dim xRg As Range", når jeg prøver at køre dette modul baseret på metode 1, hvad skal jeg gøre ved det?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, JJ, Koden fungerer godt i mit regneark, hvilken Excel-version bruger du? Eller du kan indsætte en skærmbillede af dit problem her.
Denne kommentar blev minimeret af moderatoren på webstedet
godt arbejde bro, meget nyttigt
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,
Det var så lidt. Godt det hjælper. Eventuelle spørgsmål, er du velkommen til at kontakte os. Hav en god dag.
Med venlig hilsen,
Mandy
Denne kommentar blev minimeret af moderatoren på webstedet
Hej! Efter at have ændret værdierne (f.eks. vandmelon i stedet for æble), hvorfor virker formlen ikke?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Cristina

Vores artikel giver VBA-kode, giver ikke en formel. Hvis du ændrer celleindholdet, skal du køre koden igen for at få det korrekte resultat.
Tak!
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL