Come scorrere le righe fino a renderle vuote nella colonna di Excel?
Ecco una lunga colonna con dati che includono alcune celle vuote e vuoi scorrere le righe fino a incontrare una cella vuota. In Excel, non esiste una funzionalità integrata in grado di gestire questo lavoro, ma posso introdurre alcune macro per farti un favore.
Passa attraverso le righe fino a vuoto con VBA
Passa attraverso le righe fino a vuoto con VBA
1. Stampa Alt + F11 tasti per abilitare il Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla il codice sottostante nello script vuoto.
VBA: ciclo fino a vuoto
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 eseguire il ciclo, puoi cambiarla secondo le tue necessità.
3. Stampa F5 per iniziare a scorrere la colonna, quindi il cursore si fermerà sulla prima cella vuota incontrata.
Note:: Se desideri scorrere i dati fino a incontrare celle vuote continue, 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 SubQuindi è necessario selezionare la prima cella da cui si desidera eseguire il ciclo in Kutools for Excel finestra di dialogo, fare clic OK, quindi il cursore si ferma nelle prime celle vuote continue.
 |
 |
Combina facilmente più fogli / cartella di lavoro in un unico foglio o cartella di lavoro
|
| Combinare più fogli o cartelle di lavoro in un unico foglio o cartella di lavoro può essere fastidioso in Excel, ma con l'estensione Combinare funzione in Kutools per Excel, puoi combinare unire dozzine di fogli / cartelle di lavoro in un foglio o cartella di lavoro, inoltre, puoi consolidare i fogli in uno solo con diversi clic. Fai clic per la prova gratuita di 30 giorni con tutte le funzionalità! |
 |
| Kutools per Excel: con oltre 300 pratici componenti aggiuntivi di Excel, provabili gratuitamente senza limitazioni in 30 giorni. |
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
