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

Hvordan slettes alle tomme linjer eller kun den første linje i cellen i Excel?

Du modtager muligvis en projektmappe med flere linjer blandet med blanke i celler. Hvordan slettes disse tomme linjer i celler? Og hvad med kun at slette den første linje? Denne artikel hjælper dig med at håndtere det trin for trin.

Slet alle tomme linjer i celler med VBA-kode
Slet kun den første linje i celler med VBA-kode


Slet alle tomme linjer i celler med VBA-kode

Som vist på skærmbilledet nedenfor, for at slette alle tomme linjer i cellerne, kan du køre følgende VBA-kode for at få det gjort.

1. Tryk på andre + F11 tasterne på dit tastatur, så åbner den en Microsoft Visual Basic til applikationer vindue.

2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Kopier og indsæt derefter nedenstående VBA-kode i Moduler vindue.

VBA-kode: Slet alle tomme linjer i celler

Sub DoubleReturn()
Dim xRng As Range, xCell As Range
Dim I As Integer
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
  For I = 1 To Len(xCell) - Len(WorksheetFunction.Substitute(xCell, Chr(10), ""))
   xCell = Replace(xCell, Chr(10) + Chr(10), Chr(10))
  Next
Next
End Sub

3. Tryk på F5 nøglen til at køre koden. Vælg derefter de celler med tomme linjer, du vil slette i Kutools til Excel dialog boks. Og endelig klik på OK .

Så kan du se, at alle tomme linjer er slettet fra specificerede celler som vist nedenfor. Teksterne er stadig placeret i forskellige linjer.


Slet kun den første linje i celler med VBA-kode

Som vist på skærmbilledet nedenfor, for at slette den første linje i celle A2 og A3, kan følgende VBA-kode hjælpe.

1. Tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Kopier og indsæt derefter nedenstående VBA-kode i Moduler vindue.

VBA-kode: Slet kun den første linje i celler

Option Explicit
Sub RemoveFirstLine(ByRef Target As Range)
    Dim xCell As Range
    For Each xCell In Target.Cells
        xCell.Value = Right(xCell.Value, Len(xCell.Value) - InStr(1, xCell.Value, vbLf))
    Next
End Sub

Sub StartRemove()
Dim xRng As Range
   On Error Resume Next
   Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
   If xRng Is Nothing Then Exit Sub
   On Error Resume Next
   RemoveFirstLine xRng
End Sub

3. Tryk på F5 nøgle for at køre koden. I pop op Kutools til Excel dialogboks, vælg venligst de celler, du skal bruge for kun at slette den første linje, og klik derefter på OK .

Derefter kan du se, at alle første linjer slettes fra specificerede celler som vist nedenstående skærmbillede.


Relateret artikel:


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

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!
officetab bund
Sorter kommentarer efter
Kommentarer (8)
Bedømt 5 ud af 5 · 1 vurderinger
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,
det her virker fantastisk. Hvordan kan jeg justere koden til kun at fjerne linjerne og ikke begynde med numeriske tegn?

Tak og bedste,
Jack
Denne kommentar blev minimeret af moderatoren på webstedet
Hej jack
Jeg kan desværre ikke hjælpe dig med det endnu. Tak for din kommentar.
Denne kommentar blev minimeret af moderatoren på webstedet
Ved du, hvordan du tilpasser dette for at fjerne den sidste linje i stedet for den første linje? TIA
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg forstår desværre ikke et kvæk af ovenstående. Findes der ikke en nem og ligetil måde at fjerne tomme linier i Exell? Helst uden koder og andet mystisk!

Med venlig hilsen
lene
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,
Hvis du ikke ønsker at beholde de originale tekster i forskellige linjer i celler, kan du anvende følgende metoder for at få det gjort.
1. Brug funktionen Find og erstat:
Tryk på tasterne Ctrl + H. I den åbne dialogboks Find og erstat skal du klikke for at aktivere boksen Find hvad. Hold Alt-tasten nede, mens du skriver 010 på det numeriske tastatur. Hold boksen Erstat med tom, klik på knappen Erstat alle. Men alle teksterne er koncentreret på samme linje.
2. Brug følgende formel i en hjælpekolonne:
=SUBSTITUTE(A1, CONCATENATE(CHAR(13),CHAR(10),CHAR(13),CHAR(10)),CONCATENATE(CHAR(13),CHAR(10)))
hvor A1 er den celle, du vil behandle.
Denne kommentar blev minimeret af moderatoren på webstedet
Dette er min første VBA, jeg har kun nået dit første trin, og det har løst mit problem indtil videre. Jeg har udskrevet dine instruktioner til fremtidig reference. Indtil videre er jeg indhyllet. Fabelagtig instruktion også, tak for dine kvalitetsevner og detaljering af dem.
Bedømt 5 ud af 5
Denne kommentar blev minimeret af moderatoren på webstedet
Dette virker det fjernede alle mine linjer, men det eneste problem er, at det tager så lang tid at køre for en enkelt celle, og jeg har store data med mig til at gøre det, og jeg tror, ​​det vil tage for meget tid til det
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Tanveer Khan,
Koden kører med normal hastighed på min side. Kan du fortælle mig, hvilken Excel-version du bruger?
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL