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 Sub3. 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 Sub3. 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:
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
