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

Elképesztő! Hatékony lapok használata az Excelben, például a Chrome, a Firefox és a Safari!

Takarítsa meg idejének 50% -át, és csökkentse az egérkattintások ezreit minden nap!

---

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:

• Hogyan lehet félkövérrel kiemelni az Excel cellájának első sorát vagy első szavát?

---

A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

• újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
• Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
• Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
• Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
• Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
• Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
• Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
• Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
• Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.

Tovább ... Ingyenes letöltés... Vásárlás... 

---

Az Office fül a füles felületet hozza 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!

Tovább ... Ingyenes letöltés... Vásárlás...