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.

Oldja fel az Excel Magic alkalmazást a Kutools AI segítségével

• Intelligens végrehajtás: Cellaműveletek végrehajtása, adatok elemzése és diagramok létrehozása – mindezt egyszerű parancsok hajtják végre.
• Egyedi képletek: Személyre szabott képleteket állíthat elő a munkafolyamatok egyszerűsítéséhez.
• VBA kódolás: Írjon és implementáljon VBA kódot könnyedén.
• Képlet értelmezése: Könnyedén megértheti az összetett képleteket.
• Szöveg fordítása: Törje le a nyelvi akadályokat a táblázatokban.

Növelje Excel képességeit AI-alapú eszközökkel. Töltse le most és tapasztalja meg a még soha nem látott hatékonyságot!