Hoe verwijder ik alle lege regels of alleen de eerste regel in de cel in Excel?
Mogelijk ontvangt u een werkmap met meerdere regels die worden gemengd met lege cellen in cellen. Hoe verwijder ik deze lege regels in cellen? En hoe zit het met het verwijderen van alleen de eerste regel? Dit artikel helpt je er stap voor stap mee om te gaan.
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 te zien is in de onderstaande schermafbeelding, kunt u de volgende VBA-code uitvoeren om alle lege regels in de cellen te verwijderen.
1. druk de anders + F11 toetsen op uw toetsenbord, dan opent het een Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt 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 Sub
3. druk de F5 toets om de code uit te voeren. Selecteer vervolgens de cellen met lege regels die u wilt verwijderen in de Kutools for Excel dialoog venster. En klik ten slotte op het OK knop.
Vervolgens kunt u zien dat alle lege regels uit de opgegeven cellen zijn verwijderd, zoals hieronder wordt weergegeven. De teksten staan nog in verschillende regels.
Verwijder alleen de eerste regel in cellen met VBA-code
Zoals te zien is in de onderstaande schermafbeelding, kan de volgende VBA-code helpen om de eerste regel in cel A2 en A3 te verwijderen.
1. druk de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt 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 Sub
3. druk de F5 sleutel om de code uit te voeren. Bij het opduiken Kutools for Excel dialoogvenster, selecteer de cellen die u nodig hebt om alleen de eerste regel te verwijderen en klik vervolgens op de OK knop.
Vervolgens kunt u zien dat alle eerste regels uit de opgegeven cellen zijn verwijderd, zoals onderstaand screenshot.
Gerelateerd artikel:
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!