Note: The other languages of the website are Google-translated. Back to English
Vpiši se  \/ 
x
or
x
Registracija  \/ 
x

or

Kako hitro odstraniti prelome vrstic v Excelu?

Včasih ko kopirate nekatere podatke s spletnega mesta ali ločite svoje vrednosti z Alt + Enter tipke, boste dobili nekaj prelomov vrstic ali vrnitev kočije, če želite hitro odstraniti več prelomov vrstic v Excelu, kot je prikazano na naslednjih posnetkih zaslona, ​​lahko to storite na naslednji način:

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

Odstranite več prelomov vrstic s funkcijo Najdi in zamenjaj

Odstranite več prelomov vrstic s kodo VBA

Z Kutools za Excel odstranite več prelomov vrstic

Kartica Office Omogočite urejanje in brskanje z zavihki v storitvi Office ter olajšajte svoje delo ...
Kutools za Excel rešuje večino vaših težav in poveča produktivnost za 80%
  • Ponovno uporabi vse: Med priljubljene dodajte najbolj uporabljene ali zapletene formule, grafikone in kar koli drugega ter jih v prihodnosti hitro ponovno uporabite.
  • Več kot 20 besedilnih funkcij: Izvleček številke iz besedilnega niza; Izvleči ali odstrani del besedil; Pretvorite številke in valute v angleške besede.
  • Združi orodja: Več delovnih zvezkov in listov v eno; Združi več celic / vrstic / stolpcev brez izgube podatkov; Združi podvojene vrstice in vsoto.
  • Razdeljena orodja: Razdeli podatke na več listov na podlagi vrednosti; En delovni zvezek v več datotek Excel, PDF ali CSV; En stolpec na več stolpcev.
  • Prilepi preskoči Skrite / filtrirane vrstice; Štetje in vsota glede na Barva ozadja; V večjem obsegu pošiljajte osebna e-poštna sporočila več prejemnikom.
  • Super filter: Ustvarite napredne filtrirne sheme in uporabite za vse liste; Razvrščanje po tednih, dnevih, pogostosti in še več; filter s krepkim tiskom, formule, komentar ...
  • Več kot 300 zmogljivih funkcij; Deluje s sistemoma Office 2007-2019 in 365; Podpira vse jezike; Preprosta namestitev v vašem podjetju ali organizaciji.


puščica modri desni mehurček Odstranite več prelomov vrstic s funkcijo Najdi in zamenjaj

Več prelomov vrstic lahko hitro odstranite s funkcijo Najdi in zamenjaj v Excelu, obdelajte jo na naslednji način:

1. Izberite obseg, za katerega želite odstraniti več prelomov vrstic.

2. Kliknite Domov > Poišči in zamenjaj > Zamenjaj ali kliknite Ctrl + F bližnjice in a Poišči in zamenjaj Odprlo se bo pogovorno okno.

3. Potem v Našli kaj , pridržite ALT in nato kliknite številke 010 s številske tipkovnice. Pusti Zamenjaj z polje prazno ali vnesite preslednico. Oglejte si posnetek zaslona:

doc-remove-line-break3

4. In nato kliknite Zamenjaj vse gumb, so odstranjeni vsi prelomi vrstic. Oglejte si posnetek zaslona:

doc-remove-line-break2


puščica modri desni mehurček Odstranite več prelomov vrstic s kodo VBA

Naslednja koda VBA vam lahko pomaga tudi pri brisanju vseh prelomov vrstic na delovnem listu. Naredite to:

1. Kliknite Razvojni > Visual Basic ali pritisnite Alt + F11 tipke za odpiranje Microsoft Visual Basic za okno aplikacij, nato kliknite Vstavi > Moduliin vnesite naslednjo kodo:

Koda VBA: odstranite več prelomov vrstic na delovnem 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. Nato pritisnite F5 tipko za zagon te kode in pojavilo se bo pozivno polje z navodili, da izberete obseg, za katerega želite odstraniti prelome vrstic, glejte posnetek zaslona:

doc-remove-line-break4

3. Nato kliknite OK in vsi prelomi vrstic v izboru so bili izbrisani.


puščica modri desni mehurček Z Kutools za Excel odstranite več prelomov vrstic

Morda boste v tem primeru pozabili, kako uporabiti funkcijo Najdi in zamenjaj ali če niste seznanjeni s kodo za odstranitev več prelomov vrstic Kutools za Excel vam lahko pomaga rešiti to težavo.

Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Get it now

Po namestitvi Kutools za Excel naredite naslednje:

1. Izberite obseg, za katerega želite odstraniti vrnitev nosilca.

2. klik Kutools > Orodja za besedilo > Odstrani znake, glej posnetek zaslona:

doc-remove-line-break5

3. v Odstrani znake pogovorno okno, preverite Ne tiskanje možnost, rezultat pa si lahko ogledate v predogled podokno, glejte posnetek zaslona:

doc-remove-line-break6

4. In nato kliknite OK or Uporabi. Vsi prelomi vrstic bodo odstranjeni iz izbranih celic.

Kliknite, če želite izvedeti več o tej funkciji odstranjevanja znakov.


Sorodni članki:


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2019 in 365. Podpira vse jezike. Preprosta namestitev v vašem podjetju ali organizaciji. Vse funkcije 30-dnevnega brezplačnega preskusa. 60-dnevno jamstvo za vračilo denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50% in vsak dan zmanjša na stotine klikov z miško!
dno pisarniške mize
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ajay Kumar Mohini · 6 years ago
    Thank You so much yaar. I found it very useful for my day to day office works.
  • To post as a guest, your comment is unpublished.
    Balamurugan · 6 years ago
    Thank you very much. it is really superb
  • To post as a guest, your comment is unpublished.
    meter21 · 7 years ago
    Thank you werry helpfull for my and my MYSQL CSV import :-)
  • To post as a guest, your comment is unpublished.
    Mary Pugh · 7 years ago
    THANK YOU!!! I have been battling blank lines in cell for too long.

    You solved the problem...thank you so much
  • To post as a guest, your comment is unpublished.
    kcjt2009 · 7 years ago
    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.