In VBA quando dobbiamo trovare l'ultima riga ci sono molti metodi diversi e il metodo più comunemente usato è il metodo End (XLDown) e ci sono altri metodi come trovare l'ultimo valore usando la funzione find in VBA, End (XLDown ). La riga è il modo più semplice per arrivare all'ultima riga.
Ultima riga di Excel VBA
Se la scrittura del codice è il primo progresso che hai fatto in VBA, rendere dinamico il codice è il passaggio successivo per te. Excel è pieno di riferimenti di cella. Nel momento in cui ci riferiamo alla cella, questa diventa fissa. Se i nostri dati aumentano, dobbiamo tornare al riferimento di cella e modificare i riferimenti per rendere il risultato aggiornato.
Per un esempio, guarda il codice seguente.
Codice:
Sub Last_Row_Example1 () Range ("D2"). Value = WorksheetFunction.Sum (Range ("B2: B7")) End Sub
Il codice sopra dice in D2, il valore della cella dovrebbe essere la somma di Range ("B2: B7").
Ora aggiungerò più valori all'elenco.
Ora, se eseguo il codice, non mi darà il risultato degli aggiornamenti, ma si attacca ancora al vecchio intervallo, cioè Range ("B2: B7").
È qui che il codice dinamico è molto importante.
Nel processo di dinamizzazione del codice, è molto importante trovare l'ultima riga utilizzata nella colonna. In questo articolo, discuteremo i modi per trovare l'ultima riga in Excel VBA.
Come trovare l'ultima riga utilizzata nella colonna?
Di seguito sono riportati gli esempi per trovare l'ultima riga utilizzata in Excel VBA.
Metodo n. 1
Prima di spiegarti il codice, voglio che ti ricordi come vai all'ultima riga del normale foglio di lavoro.
Useremo il tasto di scelta rapida Ctrl + freccia giù.
Ci porterà all'ultima riga utilizzata prima di qualsiasi cella vuota. Useremo lo stesso metodo anche in VBA per trovare l'ultima riga.
Passaggio 1: definire la variabile come LONG.
Codice:
Sub Last_Row_Example2 () Dim LR As Long 'Per capire LR = Last Row End Sub
Passaggio 2: per questa variabile, assegneremo l'ultimo numero di riga utilizzato.
Codice:
Sub Last_Row_Example2 () Dim LR As Long 'Per capire LR = Last Row LR = End Sub
Passaggio 3: scrivi il codice come CELLS (Rows.Count,
Codice:
Sub Last_Row_Example2 () Dim LR As Long 'Per capire LR = Last Row LR = Cells (Rows.Count, End Sub
Passaggio 4: ora menziona il numero di colonna come 1.
Codice:
Sub Last_Row_Example2 () Dim LR As Long 'Per capire LR = Last Row LR = Cells (Rows.Count, 1) End Sub
CELLS (Rows.Count, 1) significa contare quante righe ci sono nella prima colonna.
Quindi il codice VBA sopra ci porterà all'ultima riga del foglio Excel.
Passaggio 5: se ci troviamo nell'ultima cella del foglio per andare all'ultima riga utilizzata, premeremo il tasto di scelta rapida Ctrl + Freccia su .
In VBA, dobbiamo usare la chiave di fine e su, cioè End VBA xlUp
Codice:
Sub Last_Row_Example2 () Dim LR As Long 'Per capire LR = Last Row LR = Cells (Rows.Count, 1) .End (xlUp) End Sub
Passaggio 6: ora, ci porterà all'ultima riga utilizzata dal basso. Ora abbiamo bisogno del numero di riga di questo. Quindi usa la proprietà ROW per ottenere il numero di riga.
Codice:
Sub Last_Row_Example2 () Dim LR As Long 'Per capire LR = Last Row LR = Cells (Rows.Count, 1) .End (xlUp) .Row End Sub
Passaggio 7: ora, la variabile contiene l'ultimo numero di riga utilizzato. Mostra il valore di questa variabile nella finestra del messaggio nel codice VBA.
Codice:
Sub Last_Row_Example2 () Dim LR As Long 'Per capire LR = Last Row LR = Cells (Rows.Count, 1) .End (xlUp) .Row MsgBox LR End Sub
Esegui questo codice utilizzando il tasto F5 o manualmente. Verrà visualizzata l'ultima riga utilizzata.
Produzione:
L'ultima riga utilizzata in questo foglio di lavoro è 13.
Now I will delete one more line and run the code and see the dynamism of the code.
Ok, now the result automatically takes the last row.
This is what the dynamic VBA last row code is.
As I showed in the earlier example, change the row number from a numeric value to LR.
Code:
Sub Last_Row_Example2() Dim LR As Long 'For understanding LR = Last Row LR = Cells(Rows.Count, 1).End(xlUp).Row Range("D2").Value = WorksheetFunction.Sum(Range("B2:B" & LR)) End Sub
I have removed B13 and added the variable name LR.
Now it does not matter how many rows you add. It will automatically take the updated reference.
Method #2
We can also find the last row in VBA by using the Range object and special VBA cells property as well.
Code:
Sub Last_Row_Example3() Dim LR As Long LR = Range("A:A").SpecialCells(xlCellTypeLastCell).Row MsgBox LR End Sub
Il codice fornisce anche l'ultima riga utilizzata. Ad esempio, guarda l'immagine del foglio di lavoro qui sotto.
Se eseguo il codice manualmente o utilizzando il tasto F5, il risultato sarà 12 perché 12 è l'ultima riga utilizzata.
Produzione:
Ora cancellerò la 12a riga e vedrò il risultato.
Anche se ho cancellato una riga, mostra ancora il risultato come 12.
Per far funzionare questo codice, dobbiamo premere il pulsante Salva dopo ogni azione. Quindi questo codice restituirà risultati accurati.
Ho salvato la cartella di lavoro e ora vedo il risultato.
Metodo n. 3
Possiamo trovare l'ultima riga VBA nell'intervallo utilizzato. Il codice seguente restituisce anche l'ultima riga utilizzata.
Codice:
Sub Last_Row_Example4 () Dim LR As Long LR = ActiveSheet.UsedRange.Rows (ActiveSheet.UsedRange.Rows.Count) .Row MsgBox LR End Sub
Ciò restituirà anche l'ultima riga utilizzata.
Produzione:
