Hoe verwijdert u alle lege regels of alleen de eerste regel in een cel in Excel?
Mogelijk ontvangt u een werkmap met cellen die meerdere regels tekst bevatten, afgewisseld met lege regels. Hoe verwijdert u die lege regels uit de cellen? En hoe verwijdert u alleen de eerste regel? Dit artikel begeleidt u stap voor stap door het hele proces.
Verwijder alle lege regels in cellen met VBA-code
Verwijder alleen de eerste regel in cellen met VBA-code
Verwijder alle lege regels in cellen met VBA-code
Zoals in de onderstaande afbeelding te zien is, verwijdert u alle lege regels uit de cellen door de volgende VBA-code uit te voeren.
1. Druk op de Alt+F11-toetsen op uw toetsenbord; vervolgens opent zich een Microsoft Visual Basic for Applications-venster.
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: Verwijder alle lege regels in cellen
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. Druk op de F5-toets om de code uit te voeren. Selecteer vervolgens in het dialoogvenster Kutools voor Excel de cellen met lege rijen die u wilt verwijderen, en klik ten slotte op de knop OK.
U ziet dat alle lege regels uit de opgegeven cellen zijn verwijderd, zoals in de onderstaande afbeelding wordt weergegeven — de teksten staan nog steeds op verschillende regels.
Verwijder alleen de eerste regel in cellen met VBA-code
Zoals in de onderstaande afbeelding te zien is, helpt de volgende VBA-code u de eerste regel in cel A2 en A3 te verwijderen.
1. Druk op de Alt+F11-toetsen om het Microsoft Visual Basic for Applications-venster te openen.
2. In het Microsoft Visual Basic for Applications-venster klikt u op Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het Module-venster.
VBA-code: Verwijder alleen de eerste regel in cellen
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. Druk op de F5-toets om de code uit te voeren. Selecteer in het verschijnende dialoogvenster Kutools voor Excel de cellen waarvan u alleen de eerste regel wilt verwijderen en klik vervolgens op de knop OK.
U ziet dat de eerste regels uit de opgegeven cellen zijn verwijderd, zoals in de onderstaande afbeelding te zien is.
Gerelateerd artikel:
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins