Jak odstranit všechny prázdné řádky nebo pouze první řádek v buňce v aplikaci Excel?

Můžete obdržet sešit s více řádky, které se mísí s mezerami v buňkách. Jak odstranit tyto prázdné řádky v buňkách? A co tak smazat pouze první řádek? Tento článek vám pomůže postupovat krok za krokem.

Odstraňte všechny prázdné řádky v buňkách pomocí kódu VBA
Odstraňte pouze první řádek v buňkách s kódem VBA

Odstraňte všechny prázdné řádky v buňkách pomocí kódu VBA

Jak je znázorněno na obrázku níže, chcete-li odstranit všechny prázdné řádky v buňkách, můžete to provést spuštěním následujícího kódu VBA.

1. zmáčkni Další + F11 klávesy na klávesnici, poté se otevře a Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte a vložte níže uvedený kód VBA do Modul okno.

Kód VBA: Odstraňte všechny prázdné řádky v buňkách

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. zmáčkni F5 klíč ke spuštění kódu. Poté vyberte buňky s prázdnými řádky, které odstraníte Kutools pro Excel dialogové okno. A nakonec klikněte na OK .

Poté můžete vidět, že všechny prázdné řádky jsou odstraněny ze zadaných buněk, jak je uvedeno níže. Texty jsou stále umístěny v různých řádcích.

Odstraňte pouze první řádek v buňkách s kódem VBA

Jak je znázorněno na obrázku níže, k odstranění prvního řádku v buňce A2 a A3 může pomoci následující kód VBA.

1. zmáčkni Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte a vložte níže uvedený kód VBA do Modul okno.

Kód VBA: Smažte pouze první řádek v buňkách

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. zmáčkni F5 klíč ke spuštění kódu. Ve vyskakovacím okně Kutools pro Excel V dialogovém okně vyberte buňky, které potřebujete k odstranění pouze prvního řádku, a poté klepněte na OK .

Pak můžete vidět, že všechny první řádky jsou odstraněny ze zadaných buněk, jak je uvedeno níže.

Související článek:

• Jak zvýraznit pouze první řádek nebo první slovo v buňce v aplikaci Excel?