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

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 aplikovat 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ší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
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!
officetab dno
Komentáře (7)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Jak byste to udělali, pokud to chcete založit na jiném sloupci? Mám podobná data, ale sloupec B je číslo a potom poznámky (jako vaše ovoce) ve sloupci I, chci sloučit všechny poznámky ve sloupci I, dokud nebude ve sloupci B další buňka, která má pouze číslo. Někdy je pod B písmeno nebo jsou buňky prázdné, a proto je třeba kombinovat až do čísla. Pak může konečně vystupovat zpět tam, kde začal kombajn? IE všechny poznámky pro první číslo jsou ve sloupci j, ale pokud je další číslo o 5 řádků níže, je to v pořádku, jde jen do sloupce j, ale je nalezeno stejné číslo řádku jako číslo?
Tento komentář byl moderátorem webu minimalizován
Ukazuje to, že na řádku 3 "Dim xRg As Range" je chyba syntaxe, když se pokouším spustit tento modul založený na metodě 1, co s tím mám dělat?
Tento komentář byl moderátorem webu minimalizován
Dobrý den, JJ, kód funguje dobře v mém pracovním listu, jakou verzi Excelu používáte? Nebo můžete sem vložit snímek obrazovky vašeho problému.
Tento komentář byl moderátorem webu minimalizován
skvělá práce brácho, velmi užitečné
Tento komentář byl moderátorem webu minimalizován
Ahoj,
Nemáš zač. Jsem rád, že to pomáhá. V případě jakýchkoli dotazů nás neváhejte kontaktovat. Přeji krásný den.
S pozdravem,
Mandy
Tento komentář byl moderátorem webu minimalizován
Ahoj! Proč po změně hodnot (např. meloun místo jablka) vzorec nefunguje?
Tento komentář byl moderátorem webu minimalizován
Dobrý den, Cristino

Náš článek poskytuje kód VBA, neposkytuje vzorec. Pokud změníte obsah buňky, musíte znovu spustit kód, abyste získali správný výsledek.
Děkuji!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL