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