Note: The other languages of the website are Google-translated. Back to English

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 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.
kte lap 201905

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!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (8)
Az 5-t az 5-ből kiértékelte · 1 értékelés
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia,
ez fantasztikusan működik. Hogyan állíthatom be a kódot úgy, hogy csak a sorokat távolítsa el, nem numerikus karakterekkel kezdődően?

Köszönöm és legjobb
csatlakozó
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Jack,
Sajnos ebben még nem tudok segíteni. Köszönjük észrevételét.
A weboldal moderátora ezt a megjegyzést minimalizálta
Kérem, tudja, hogyan módosíthatja ezt úgy, hogy az utolsó sort eltávolítsa az első sor helyett? TIA
A weboldal moderátora ezt a megjegyzést minimalizálta
Jeg forstår desværre ikke et kvæk af ovenstående. Findes der ikke en nem og ligetil måde at fjerne tomme linier i Exell? Helst uden koder og andet mystisk!

Üdvözlettel
Lene
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló,
Ha nem szeretné megtartani az eredeti szövegeket a cellák különböző soraiban, akkor a következő módszereket alkalmazhatja.
1. Használja a Keresés és csere funkciót:
Nyomja meg a Ctrl + H billentyűket. A megnyíló Keresés és csere párbeszédpanelen kattintson a Keresse meg mező aktiválásához. Tartsa lenyomva az Alt billentyűt, miközben beírja a 010-et a számbillentyűzeten. Hagyja üresen a Csere erre mezőt, majd kattintson a Mindent cserél gombra. De minden szöveg ugyanarra a sorra koncentrálódik.
2. Használja a következő képletet egy segítő oszlopban:
=SUBSTITUTE(A1, CONCATENATE(CHAR(13),CHAR(10),CHAR(13),CHAR(10)),CONCATENATE(CHAR(13),CHAR(10)))
ahol A1 a feldolgozni kívánt cella.
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez az első VBA-m, csak az első lépésedig jutottam el, és eddig megoldotta a problémámat. Kinyomtattam az utasításait későbbi hivatkozás céljából. Eddig wrapt vagyok. Mesés oktatás is, köszönjük a minőségi készségeket és azok részletezését.
Az 5-t az 5-ből kiértékelte
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez működik, eltávolította az összes soromat, de az egyetlen probléma az, hogy olyan sok időbe telik egyetlen cella futtatása, és nagy adatok vannak nálam, és azt hiszem, túl sok időbe fog telni.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Tanveer Khan!
A kód normál sebességgel fut az oldalamon. Meg tudná mondani, melyik Excel verziót használja?
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi