Wie löscht man alle leeren Zeilen oder nur die erste Zeile in einer Zelle in Excel?
Sie könnten eine Arbeitsmappe erhalten, in der Zellen mehrere Textzeilen enthalten, die mit leeren Zeilen vermischt sind. Wie löscht man diese leeren Zeilen in den Zellen? Und wie sieht es aus, wenn man nur die erste Zeile löschen möchte? Dieser Artikel führt Sie Schritt für Schritt durch den Prozess.
Löschen aller leerer Zeilen in Zellen mit VBA-Code
Nur die erste Zeile in Zellen mit VBA-Code löschen
Löschen aller leerer Zeilen in Zellen mit VBA-Code
Wie im folgenden Screenshot gezeigt, können Sie den folgenden VBA-Code ausführen, um alle leeren Zeilen in den Zellen zu löschen.
1. Drücken Sie die Tasten Alt + F11 auf Ihrer Tastatur, dann öffnet sich ein Microsoft Visual Basic for Applications-Fenster.
2. Klicken Sie im Microsoft Visual Basic for Applications-Fenster auf Einfügen > Modul. Kopieren und fügen Sie dann den folgenden VBA-Code in das Modulfenster ein.
VBA-Code: Löschen aller leerer Zeilen in Zellen
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. Drücken Sie die Taste F5, um den Code auszuführen. Wählen Sie dann die Zellen mit den leeren Zeilen aus, die Sie im Dialogfeld Kutools für Excel löschen möchten. Klicken Sie abschließend auf die Schaltfläche OK.
Sie werden sehen, dass alle leeren Zeilen aus den angegebenen Zellen entfernt wurden, wie im folgenden Screenshot gezeigt. Die Texte befinden sich weiterhin in verschiedenen Zeilen.
Nur die erste Zeile in Zellen mit VBA-Code löschen
Wie im folgenden Screenshot gezeigt, kann der folgende VBA-Code helfen, die erste Zeile in Zelle A2 und A3 zu löschen.
1. Drücken Sie die Tasten Alt + F11, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
2. Klicken Sie im Microsoft Visual Basic for Applications-Fenster auf Einfügen > Modul. Kopieren und fügen Sie dann den folgenden VBA-Code in das Modulfenster ein.
VBA-Code: Nur die erste Zeile in Zellen löschen
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. Drücken Sie die Taste F5, um den Code auszuführen. Wählen Sie im erscheinenden Dialogfeld Kutools für Excel die Zellen aus, in denen Sie nur die erste Zeile löschen möchten, und klicken Sie dann auf die Schaltfläche OK.
Sie werden sehen, dass die ersten Zeilen aus den angegebenen Zellen entfernt wurden, wie im folgenden Screenshot gezeigt.
Verwandter Artikel:
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins