Hogyan lehet törölni az összes üres sort vagy csak az első cellát az Excel cellájában?
Kaphat egy munkafüzetet, amelyben több sor keveredik a cellák üres részeivel. Hogyan lehet törölni ezeket az üres sorokat a cellákban? És mi lenne, ha csak az első sort törölnéd? Ez a cikk segít lépésről lépésre kezelni.
Törölje az összes üres sort a VBA kóddal rendelkező cellákban
Csak a VBA kóddal rendelkező cellák első sorát törölje
Törölje az összes üres sort a VBA kóddal rendelkező cellákban
Amint az alábbi képernyőképen látható, a cellákban lévő összes üres sor törléséhez futtassa a következő VBA-kódot.
1. megnyomni a más + F11 gombokat a billentyűzeten, majd megnyílik a Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután másolja és illessze be az alábbi VBA kódot a Modulok ablak.
VBA kód: Törölje az összes üres sort a cellákból
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. megnyomni a F5 gombot a kód futtatásához. Ezután jelölje ki az üres sorokkal rendelkező cellákat, amelyeket törölni szeretne Kutools az Excel számára párbeszédablak. És végül kattintson a gombra OK gombot.
Ezután láthatja, hogy az összes üres sor törlődik a megadott cellákból, ahogy az alábbi képernyőképen látható. A szövegek továbbra is különböző sorokban helyezkednek el.
Csak a VBA kóddal rendelkező cellák első sorát törölje
Amint az alábbi képernyőképen látható, az A2 és A3 cellában lévő első sor törléséhez a következő VBA-kód segíthet.
1. megnyomni a más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután másolja és illessze be az alábbi VBA kódot a Modulok ablak.
VBA kód: Csak a cellák első sorát törölje
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. megnyomni a F5 gombot a kód futtatásához. A felbukkanóban Kutools az Excel számára párbeszédpanelen válassza ki a törölni kívánt cellákat, csak az első sort, majd kattintson a OK gombot.
Ezután láthatja, hogy az első sorok törlődnek a megadott cellákból, az alábbi képernyőképen.
Kapcsolódó cikk:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!