Přejít k hlavnímu obsahu

Jak rychle odstranit konce řádků v aplikaci Excel?

Někdy, když kopírujete některá data z webu nebo oddělujete své hodnoty pomocí Alt + Enter klíče, získáte několik zalomení řádků nebo návratů vozíku, pokud chcete rychle odstranit více zalomení řádků v aplikaci Excel podle následujících zobrazených snímků obrazovky, můžete to udělat následujícím způsobem:

doc-remove-line-break1 -2 doc-remove-line-break2

Odstraňte více konců řádků pomocí funkce Najít a nahradit

Odstraňte více konců řádků pomocí kódu VBA

Odstraňte více konců řádků pomocí programu Kutools pro Excel


šipka modrá pravá bublina Odstraňte více konců řádků pomocí funkce Najít a nahradit

Pomocí funkce Najít a nahradit v aplikaci Excel můžete rychle odstranit více konců řádků, zpracovejte to prosím následujícím způsobem:

1. Vyberte rozsah, ze kterého chcete odstranit více konců řádků.

2, klikněte Domů > Najít a nahradit > Nahradit nebo klikněte Ctrl + F zkratky a a Najít a nahradit Zobrazí se dialogové okno.

3. Pak v Najít to, co pole, podržte prosím ALT klíč a potom klepněte na čísla 010 z numerické klávesnice. Opustit Nahradit prázdné pole nebo zadejte mezeru. Viz screenshot:

doc-remove-line-break3

4. A pak klikněte na tlačítko Nahradit vše tlačítko, všechny konce řádků byly odstraněny. Viz screenshot:

doc-remove-line-break2


šipka modrá pravá bublina Odstraňte více konců řádků pomocí kódu VBA

Následující kód VBA vám také pomůže odstranit všechny konce řádků v listu. Udělejte prosím toto:

1, klikněte Vývojka > Visual Basic nebo stiskněte tlačítko Alt + F11 klávesy pro otevření Okno Microsoft Visual Basic pro aplikace, poté klepněte na tlačítko Vložit > Modula zadejte následující kód:

Kód VBA: odstraňte více konců řádků v listu

Sub RemoveCarriage()
'Update 20131216
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.Value = Replace(Rng.Value, Chr(10), "")
Next
End Sub

2. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a zobrazí se výzva k výběru rozsahu, který chcete odstranit zalomení řádků, viz screenshot:

doc-remove-line-break4

3. Pak klikněte na tlačítko OK a všechny konce řádků výběru byly odstraněny.


šipka modrá pravá bublina Odstraňte více konců řádků pomocí programu Kutools pro Excel

Možná někdy v této situaci zapomenete, jak používat funkci Najít a nahradit nebo neznáte kód k odstranění více konců řádků, Kutools pro Excel vám pomůže vyřešit tento problém.

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

Po instalaci Kutools pro Excel proveďte následující kroky:

1. Vyberte rozsah, ze kterého chcete odebrat konce řádku.

2. klikněte Kutools > Textové nástroje > Odebrat znaky, viz screenshot:

doc-remove-line-break5

3. V Odebrat znaky v dialogovém okně zaškrtněte Netiskněte možnost, a můžete vidět výsledek z Náhled také v podokně, viz screenshot:

doc-remove-line-break6

4. A pak klikněte na tlačítko OK or Podat žádost. Všechny konce řádků budou z vybraných buněk odstraněny.

Klepnutím získáte další informace o této funkci Odebrat znaky.


Související články:

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

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
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...

Popis


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 (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Obrigado pela dica! Funcionou muito bem aqui!
This comment was minimized by the moderator on the site
Thank You so much yaar. I found it very useful for my day to day office works.
This comment was minimized by the moderator on the site
Thank you very much. it is really superb
This comment was minimized by the moderator on the site
Thank you werry helpfull for my and my MYSQL CSV import :-)
This comment was minimized by the moderator on the site
THANK YOU!!! I have been battling blank lines in cell for too long. You solved the problem...thank you so much
This comment was minimized by the moderator on the site
I am very inexperienced when it comes to macros/VBA code. How would I tweak the code you provided above and which I have pasted below to search for 2 consecutive carriage returns and replace with just one carriage return? Sub RemoveCarriage() 'Update 20131216 Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) For Each Rng In WorkRng Rng.Value = Replace(Rng.Value, Chr(10), "") Next End Sub Also, how would I locate and delete single carriage returns that have no text after them in a cell. Thank you for any assistance.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations