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 for Excel 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ója Kutools for Excel, akkor több tucat lapot/munkafüzetet egyesíthet egyetlen lapba vagy munkafüzetbe, továbbá a lapokat egyetlen kattintással egyesítheti. Kattintson a teljes funkcionalitásért 30 napos ingyenes próbaverzió! |
![]() |
Kutools for Excel: több mint 300 praktikus Excel-bővítménnyel, korlátozás nélkül kipróbálható 30 nap. |
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet ezzel Kutools for Excel, és tapasztalja meg a még soha nem látott hatékonyságot. Kutools for Excel Több mint 300 speciális funkciót kínál a termelékenység fokozása és az időmegtakarítás érdekében. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Office Tab Lapos 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!







