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

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é


nyíl kék jobb buborék 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

doc ciklus 1-ig

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.
doc ciklus 2-ig

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.

doc ciklus 3-ig doc ciklus 4-ig

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ért 30 napos ingyenes próbaverzió!
össze lapokat
 
Kutools for Excel: több mint 300 praktikus Excel-bővítménnyel, ingyenesen kipróbálható, korlátozás nélkül 30 nap.

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 (7)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Egy oszlopot hurkol, nem egy sort
A weboldal moderátora ezt a megjegyzést minimalizálta
Ahhoz, hogy egy oszlopon át tudjon lépni, a sorszám szerint kell haladnia.
A weboldal moderátora ezt a megjegyzést minimalizálta
Elmagyaráznád, mi a feltétele a hurkolt leállításának? Mi késztet arra, hogy kiszakadj a ciklusból a Test1()-ben?
A weboldal moderátora ezt a megjegyzést minimalizálta
Leáll, amikor találkozik az oszlop első üresével
A weboldal moderátora ezt a megjegyzést minimalizálta
Tegyük fel, hogy rengeteg sorom van... van valami trükk, amivel gyorsabban futhat?
A weboldal moderátora ezt a megjegyzést minimalizálta
A hurok nálam működik, kivéve, hogy minden egyes sort végigfut, függetlenül attól, hogy üres-e vagy sem.
A weboldal moderátora ezt a megjegyzést minimalizálta
Az első VBA rossz eredményt ad olyan esetekben, amikor egy vagy nulla adatsor van.

Valószínűleg valami hasonlóra van szüksége

Ha Tartomány("A1").Érték = "" Akkor
Sorok száma = 0
ElseIf Tartomány("A1").Eltolás(1, 0).Érték = "" Akkor
Sorok száma = 1
Más
NumRows = Tartomány("A1", Tartomány("A1").End(xlDown)).Rows.Count
Ha véget
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