Přejít k hlavnímu obsahu

Jak zřetězit hodnoty buněk, dokud nenajde prázdnou buňku ve sloupci?

doc zřetězit do prázdné 1

Například mám seznam hodnot, které obsahují některé prázdné buňky, a teď chci zřetězit každou sadu dat mezi prázdnými místy do buňky a vypsat kombinované hodnoty v jiném sloupci, jak ukazuje následující snímek obrazovky. Jak mohu zřetězit buňky, dokud nenajdu prázdnou buňku ve sloupci?

Zřetězit hodnoty buněk, dokud nenajde prázdnou buňku ve sloupci s kódem VBA

Zřetězte hodnoty buněk, dokud nenajde prázdnou buňku ve sloupci pomocí Kutools pro Excel


šipka modrá pravá bublina Zřetězit hodnoty buněk, dokud nenajde prázdnou buňku ve sloupci s kódem VBA

Neexistuje žádný přímý způsob, jak zřetězit sadu buněk mezi mezerami, ale můžete s tím použít následující kód VBA. Postupujte prosím následovně:

1. Podržte ALT + F11 klávesy pro otevření Okno Microsoft Visual Basic pro aplikace.

2, klikněte Vložit > Modula vložte následující kód do Okno modulu.

Kód VBA: zřetězte hodnoty buněk, dokud nenajde prázdnou buňku

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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a zobrazí se okno s výzvou, které vám připomene výběr rozsahu dat, který chcete zřetězit, viz screenshot:

doc zřetězit do prázdné 10

4. Pak klikněte na tlačítko OKa vyskočí další okno s výzvou, vyberte buňku pro výstup zřetězeného výsledku, viz screenshot:

doc zřetězit do prázdné 11

5. A pak klikněte na tlačítko OK tlačítko a data seznamu sloupců jsou zřetězena mezi mezerami, viz screenshot:

doc zřetězit do prázdné 1


šipka modrá pravá bublina Zřetězte hodnoty buněk, dokud nenajde prázdnou buňku ve sloupci pomocí Kutools pro Excel

Pokud máte Kutools pro Excel, kombinující jeho Rozsah transformace a Kombinovat funkcí, můžete také tuto práci dokončit co nejdříve. The Rozsah transformace nástroj vám pomůže převést jeden sloupec na rozsah a Kombinovat funkce vám pomůže zřetězit transformovaný rozsah na sloupec.

Kutools pro Excel : s více než 300 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 30 dnů. 

Po instalaci Kutools pro Excel, postupujte následovně:

1. Vyberte buňky, které chcete zřetězit, a klikněte Kutools > Rozsah > Rozsah transformace, viz screenshot:

2. V Rozsah transformace v dialogovém okně zaškrtněte Jeden sloupec k rozsahu možnost podle Typ transformaceA poté vyberte Prázdná buňka vymezuje záznamy pod Řádky na záznam, viz screenshot:

doc zřetězit do prázdné 3

3. Pak klikněte na tlačítko Ok, a vyskočí okno s výzvou, které vám připomene, že jste vybrali buňku k výstupu výsledku, viz screenshot:

doc zřetězit do prázdné 4

4, klikněte OKa data jednoho sloupce byla převedena do více řádků a sloupců prázdnou buňkou, viz screenshot:

doc zřetězit do prázdné 5

5. Převáděná data jsou ve více sloupcích, takže je musíte zkombinovat do jednoho sloupce, vyberte prosím rozsah dat a klikněte Kutools > Sloučit a rozdělit > Kombinujte řádky, sloupce nebo buňky bez ztráty dat, viz screenshot:

6. V Kombinujte sloupce nebo řádky dialogové okno, proveďte následující možnosti:

(1.) Vyberte Kombinujte sloupce možnost z nabídky Kombinovat vybrané buňky podle následujících možností;

(2.) Poté zadejte oddělovač, který chcete oddělit zřetězené hodnoty;

(3.) Vyberte, jak chcete zacházet s kombinovanými buňkami. Můžete si ponechat nebo smazat původní data a můžete také sloučit spojené buňky. Viz screenshot:

doc zřetězit do prázdné 7

7. Po dokončení nastavení klikněte na Ok or Podat žádost tlačítko, buňky byly zřetězeny do jednoho sloupce se specifickým oddělovačem, viz screenshot:

doc zřetězit do prázdné 8

Stáhněte si zdarma zkušební verzi Kutools pro Excel!

Nejlepší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

karta kte 201905


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
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