Hogyan lehet az Excel oszlopban végiglapozni a sorokat üresen?

Itt van egy hosszú oszlop adatokkal, amely tartalmaz néhány üres cellát, és át akarja haladni a sorokat, amíg meg nem találkozik az üres cellával. Az Excel programban nincs beépített szolgáltatás, amely képes kezelni ezt a munkát, de néhány makrót be tudok mutatni, hogy szívességet tegyek.

Húzza végig a sorokat, amíg a VBA nem válik üresé

Húzza végig a sorokat, amíg a VBA nem válik üresé

1. nyomja meg Alt + F11 gombok a Microsoft Visual Basic for Applications ablak.

2. kettyenés betétlap > Modulok, és illessze be a kód alatt az üres parancsfájlba.

VBA: Hurok, amíg üres

Sub Test1()
'UpdatebyExtendoffice20161222
      Dim x As Integer
      Application.ScreenUpdating = False
      ' Set numrows = number of rows of data.
      NumRows = Range("A1", Range("A1").End(xlDown)).Rows.Count
      ' Select cell a1.
      Range("A1").Select
      ' Establish "For" loop to loop "numrows" number of times.
      For x = 1 To NumRows
         ' Insert your code here.
         ' Selects cell down 1 row from active cell.
         ActiveCell.Offset(1, 0).Select
      Next
      Application.ScreenUpdating = True
End Sub

A kódban az A1 az első cella, ahonnan hurokolni szeretne, szükség szerint módosíthatja.

3. nyomja meg F5 gombot az oszlop hurkolásának megkezdéséhez, akkor a kurzor az első találkozott üres cellánál megáll.

Megjegyzések: Ha folytatni akarja az adatok végiggörgetését, amíg a folyamatos üres cellák nem találkoznak, használhatja ezt a makrokódot.

Sub LoopThroughUntilBlanks()
'UpdatebyExtendoffice20161222
      ' Select cell A2, *first line of data*.
      Dim xrg As Range
      On Error Resume Next
      Set xrg = Application.InputBox _
        (Prompt:="first cell select..", Title:="Kutools for Excel", Type:=8)
      xrg.Cells(1, 1).Select
      ' Set Do loop to stop when two consecutive empty cells are reached.
      Application.ScreenUpdating = False
      Do Until IsEmpty(ActiveCell) And IsEmpty(ActiveCell.Offset(1, 0))
         ' Insert your code here.
         '
         ' Step down 2 rows from present location.
         ActiveCell.Offset(2, 0).Select
      Loop
      Application.ScreenUpdating = False
End Sub

Ezután ki kell választania az első cellát, ahonnan hurokolni szeretne Kutools az Excel számára párbeszédpanelen kattintson a gombra OK, akkor a kurzor megáll az első folyamatos üres cellákban.

Kombináljon több lapot / munkafüzetet egyetlen lapba vagy munkafüzetbe

A többszörös munkalapok vagy munkafüzetek egyetlen lapba vagy munkafüzetbe való egyesítése nehéz lehet az Excel programban, de a Kombájn funkció a Kutools for Excel programban, több tucat lap / munkafüzet egyesítését egyetlen lapba vagy munkafüzetbe vonhatja össze, és csak több kattintással egyesítheti a lapokat eggyé.  Kattintson a teljes funkcionalitású 30 napos ingyenes próbaverzióhoz!

Kutools for Excel: több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható.

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-2019 és 365. Támogatja az összes nyelvet. Könnyen telepíthető a vállalkozásba vagy szervezetbe. 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...