Come scorrere le righe fino a una cella vuota in una colonna di Excel?

Ecco una lunga colonna con dati che include alcune celle vuote, e si desidera scorrere le righe fino a incontrare una cella vuota. In Excel, non esiste una funzionalità integrata per gestire questa operazione, ma posso introdurre alcune macro per aiutarti.

Scorrere le righe fino a una cella vuota con VBA

Scorrere le righe fino a una cella vuota con VBA

1. Premi i tasti Alt + F11 per abilitare la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo, e incolla il codice sottostante nello script vuoto.

VBA: Scorrere fino a una cella vuota

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

Nel codice, A1 è la prima cella da cui vuoi iniziare a scorrere; puoi modificarla secondo necessità.

3. Premi F5 per avviare lo scorrimento della colonna, quindi il cursore si fermerà alla prima cella vuota trovata.

Nota: Se desideri scorrere i dati fino a incontrare celle vuote consecutive, puoi utilizzare questo codice macro.

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

Successivamente, devi selezionare la prima cella da cui vuoi iniziare a scorrere nella finestra di dialogo Kutools per Excel, clicca OK, quindi il cursore si fermerà nelle prime celle vuote consecutive.

Sblocca la Magia di Excel con Kutools AI

• Esecuzione Intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici — tutto guidato da semplici comandi.
• Formule Personalizzate: Genera formule su misura per ottimizzare i tuoi flussi di lavoro.
• Codifica VBA: Scrivi e implementa codice VBA senza sforzo.
• Interpretazione delle Formule: Comprendi facilmente formule complesse.
• Traduzione del Testo: Superare le barriere linguistiche all'interno dei tuoi fogli di calcolo.

Potenzia le tue capacità di Excel con strumenti alimentati dall'IA. Scarica Ora ed esperisci un'efficienza mai vista prima!