Come trovare l'ultima riga o colonna con dati in Excel?

In un foglio di lavoro di grandi dimensioni, se vuoi determinare rapidamente e facilmente l'ultima riga o colonna che contiene valori, puoi semplicemente trascinare la barra di scorrimento per trovarla. Ma sarà doloroso se ci sono migliaia di righe di dati nel tuo foglio di lavoro. In questo articolo, parlerò di alcuni utili codici VBA per aiutarti a risolvere questo compito.

Trova l'ultima riga o colonna con dati utilizzando il codice VBA
Trova e seleziona l'ultima riga o colonna con dati con Kutools per Excel

Trova l'ultima riga o colonna con dati utilizzando il codice VBA

Molti di noi potrebbero considerare di individuare l'ultima cella premendo i tasti Ctrl +End per trovare l'ultima riga e colonna, ma il tasto di scelta rapida non individuerà la cella del valore accurato se ci sono alcune celle che hanno formattazione sotto l'intervallo dati. Quindi qui, utilizza il seguente codice VBA:

1. Attiva il tuo foglio di lavoro in cui desideri determinare l'ultima riga o colonna con dati.

2. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.

3. Poi fai clic su Inserisci > Modulo, e incolla il seguente codice nella Finestra del Modulo.

Codice VBA: Trova l'ultima riga con dati

Sub sblastRowOfASheet()
'Update 20140603
Dim xLastRow As Long
xLastRow = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Row
MsgBox "Last Used Row: " & xLastRow
Do While Application.CountA(ActiveSheet.Rows(xLastRow)) = 0 And xLastRow <> 1
    xLastRow = xLastRow - 1
Loop
MsgBox "Last Row with Data: " & xLastRow
End Sub

4. E poi premi il tasto F5 per eseguire questo codice, e apparirà una finestra di dialogo per dirti il numero di riga dell'intervallo utilizzato. Vedi screenshot:

5. Continua a fare clic sul pulsante OK, questa volta il numero dell'ultima riga con valori è stato visualizzato come mostrato nello screenshot seguente:

Nota: Per trovare l'ultima colonna con dati, applica questo codice:

Codice VBA: Trova l'ultima colonna con dati

Sub sblastcolumnOfASheet()
'Update 20140603
Dim xLastcolumn As Long
xLastcolumn = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Column
MsgBox "Last Used column: " & xLastcolumn
Do While Application.CountA(ActiveSheet.Columns(xLastcolumn)) = 0 And xLastcolumn <> 1
    xLastcolumn = xLastcolumn - 1
Loop
MsgBox "Last column with Data: " & xLastcolumn
End Sub

Trova e seleziona l'ultima riga o colonna con dati con Kutools per Excel

Se vuoi trovare e selezionare direttamente l'ultima riga o colonna con dati in Excel, le utilità Seleziona ultima riga e Seleziona ultima colonna di Kutools per Excel possono aiutarti. Procedi come segue.

1. Se vuoi trovare e selezionare l'ultima riga con dati, fai clic su Kutools > Seleziona > Seleziona ultima cella > Ultima riga. Vedi screenshot:

Nota: Per trovare e selezionare l'ultima colonna con dati, fai clic su Kutools > Seleziona > Seleziona ultima cella > Ultima colonna.

Quindi l'ultima riga o colonna con dati nel foglio di lavoro corrente viene trovata e selezionata immediatamente.

Demo: Trova e seleziona l'ultima riga o colonna con dati con Kutools per Excel