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:
Bedste kontorproduktivitetsværktøjer
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...
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!