Hoe verwijder je alle lege regels of alleen de eerste regel in een cel in Excel?

Je ontvangt mogelijk een werkboek met cellen die meerdere regels tekst bevatten, vermengd met lege regels. Hoe verwijder je deze lege regels in de cellen? En hoe zit het met het verwijderen van alleen de eerste regel? Dit artikel begeleidt je stap voor stap door het proces.

Alle lege regels in cellen verwijderen met VBA-code
Alleen de eerste regel in cellen verwijderen met VBA-code

Alle lege regels in cellen verwijderen met VBA-code

Zoals te zien is in de onderstaande schermafbeelding, om alle lege regels in de cellen te verwijderen, kun je de volgende VBA-code uitvoeren om dit te doen.

1. Druk op de toetsen Alt + F11 op je toetsenbord, waarna er een Microsoft Visual Basic for Applications-venster wordt geopend.

2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het Module-venster.

VBA-code: Alle lege regels in cellen verwijderen

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. Druk op de F5-toets om de code uit te voeren. Selecteer vervolgens de cellen met lege regels die je wilt verwijderen in het dialoogvenster van Kutools voor Excel. Klik ten slotte op de knop OK.

Je zult zien dat alle lege regels zijn verwijderd uit de aangegeven cellen, zoals te zien is in de onderstaande schermafbeelding. De teksten blijven nog steeds op verschillende regels staan.

Alleen de eerste regel in cellen verwijderen met VBA-code

Zoals te zien is in de onderstaande schermafbeelding, om de eerste regel in cel A2 en A3 te verwijderen, kan de volgende VBA-code helpen.

1. Druk op de toetsen Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het Module-venster.

VBA-code: Alleen de eerste regel in cellen verwijderen

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. Druk op de F5-toets om de code uit te voeren. Selecteer in het pop-up dialoogvenster van Kutools voor Excel de cellen waaruit je alleen de eerste regel wilt verwijderen en klik vervolgens op de knop OK.

Je zult zien dat de eerste regels zijn verwijderd uit de aangegeven cellen, zoals te zien is in de onderstaande schermafbeelding.

Gerelateerd artikel:

• Hoe maak je alleen de eerste regel of het eerste woord in een cel vet in Excel?