Gå til hovedindhold

Hvordan fjerner jeg hurtigt linjeskift i Excel?

Nogle gange, når du kopierer nogle data fra hjemmesiden, eller du adskiller dine værdier med Alt + Enter nøgler, du får nogle linjeskift eller vognretur, hvis du hurtigt vil fjerne flere linjeskift i Excel som følgende skærmbilleder vist, kan du få det gjort som følger:

doc-remove-line-breaks1 -2 doc-remove-line-breaks2

Fjern flere linjeskift med funktionen Find og erstat

Fjern flere linjeskift med VBA-kode

Fjern flere linjeskift med Kutools til Excel


pil blå højre boble Fjern flere linjeskift med funktionen Find og erstat

Du kan fjerne flere linjeskift hurtigt med Find og erstat-funktionen i Excel, skal du behandle det som følger:

1. Vælg det område, du vil fjerne flere linjeskift.

2. Klik Home > Find & erstat > udskifte eller klik Ctrl + F genveje og en Søg og erstat dialogboksen vises.

3. Så i Find hvad boks, hold nede ALT og klik derefter på tal 010 fra det numeriske tastatur. Forlad Erstat med felt tomt eller indtast en mellemrumstast. Se skærmbillede:

doc-remove-line-breaks3

4. Og klik derefter på Erstat alle knappen, er alle linjeskift fjernet. Se skærmbillede:

doc-remove-line-breaks2


pil blå højre boble Fjern flere linjeskift med VBA-kode

Følgende VBA-kode kan også hjælpe dig med at slette alle linjeskift i et regneark. Gør som dette:

1. Klik Udvikler > Visual Basic eller tryk på Alt + F11 nøgler til at åbne Microsoft Visual Basic til applikationsvindue, og klik derefter på indsatte > Moduler, og indtast følgende kode:

VBA-kode: fjern flere linjeskift i et regneark

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. Tryk derefter på F5 nøgle til at køre denne kode, og der vises et promptfelt, der fortæller dig at vælge et område, som du vil fjerne linjeskiftene, se skærmbillede:

doc-remove-line-breaks4

3. Klik derefter på OK og alle linjeskift i markeringen er blevet slettet.


pil blå højre boble Fjern flere linjeskift med Kutools til Excel

Måske glemmer du nogle gange, hvordan du bruger funktionen Find og erstat eller ikke kender koden til at fjerne flere linjeskift i denne situation, Kutools til Excel kan hjælpe dig med at løse dette problem.

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

Efter installation af Kutools til Excel skal du gøre følgende:

1. Vælg det område, som du vil fjerne vognreturene.

2. Klik Kutools > Tekstværktøjer > Fjern tegn, se skærmbillede:

doc-remove-line-breaks5

3. I Fjern tegn dialogboks, tjek Ikke-udskrivning indstilling, og du kan se resultatet fra Eksempel rude også, se skærmbillede:

doc-remove-line-breaks6

4. Og klik derefter på OK or Indløs. Alle linjeskift fjernes fra de valgte celler.

Klik for at vide mere om denne funktion Fjern tegn.


Relaterede artikler:

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse


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!
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