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 Sub

3. 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 Sub

3. 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:

• Wie macht man nur die erste Zeile oder das erste Wort in einer Zelle in Excel fett?