Questo tutorial ti mostrerà come utilizzare la proprietà Range.End in VBA.
La maggior parte delle cose che fai manualmente in una cartella di lavoro o in un foglio di lavoro di Excel può essere automatizzata nel codice VBA.
Se hai un intervallo di celle non vuote in Excel e premi Ctrl+Freccia giù, il cursore si sposterà sull'ultima cella non vuota nella colonna in cui ti trovi. Allo stesso modo, se premi Ctl+Freccia su, il cursore si sposterà sulla prima cella non vuota. Lo stesso vale per una riga che utilizza il Ctrl+Freccia destra o Ctrl+Freccia sinistra per andare all'inizio o alla fine di quella riga. Tutte queste combinazioni di tasti possono essere utilizzate all'interno del codice VBA utilizzando il Fine funzione.
Sintassi delle proprietà di fine intervallo
La proprietà Range.End ti consente di spostarti in una cella specifica all'interno della regione corrente con cui stai lavorando.
espressione.Fine (Direzione)
l'espressione è l'indirizzo di cella (Range) della cella da cui si desidera iniziare es: Range(“A1”)
END è la proprietà dell'oggetto Range controllato.
La direzione è la costante di Excel che puoi utilizzare. Ci sono 4 scelte disponibili - xlGiù, xlToLeft, xlToRight e xlUp.
Passare all'ultima cella
La procedura seguente ti sposterà nell'ultima cella nella regione corrente delle celle in cui ti trovi.
| 1234 | Sub GoToLast()'passa all'ultima cella occupata nell'attuale regione di celleIntervallo("A1").Fine(xlGiù).SelezionaFine sottotitolo |
Conteggio righe
La seguente procedura consente di utilizzare il xlGiù costante con la proprietà Range End per contare quante righe ci sono nella regione corrente.
| 12345678 | Sub GoToLastRowofRange()Dim rw As IntegerIntervallo("A1").Seleziona'ottieni l'ultima riga nella regione correnterw = Intervallo ("A1"). Fine (xlGiù). Riga'mostra quante righe sono usateMsgBox "L'ultima riga utilizzata in questo intervallo è " & rwFine sottotitolo |
Mentre quello sotto conterà le colonne nell'intervallo usando il xlAdestra costante.
| 12345678 | Sub GoToLastCellofRange()Dim col As IntegerIntervallo("A1").Seleziona'ottieni l'ultima colonna nella regione correntecol = Range("A1").End(xlToRight).Column'mostra quante colonne sono usateMsgBox "L'ultima colonna utilizzata in questo intervallo è " & colFine sottotitolo |
Creazione di una matrice di intervallo
La procedura seguente consente di iniziare dalla prima cella in un intervallo di celle e quindi utilizzare la proprietà End(xlDown) per trovare l'ultima cella nell'intervallo di celle. Possiamo quindi ReDim il nostro array con le righe totali nell'intervallo, permettendoci così di scorrere l'intervallo di celle.
| 123456789101112131415161718 | SubPopolaArray()'dichiarare l'arrayDim strSuppliers() As String'dichiarare l'intero per contare le righeDim n As Integer'conta le righen = Intervallo ("B1", Intervallo ("B1"). Fine (xlGiù)). Righe. Conteggio'inizializza e popola l'arrayReDim strClienti(n)'dichiarare l'intero per il cicloDim i As Integer'popola l'arrayPer i = 0 a nstrCustomers(i) = Range("B1").Offset(i, 0).ValueAvanti io'mostra finestra di messaggio con valori di arrayMsgBox Join(strCustomers, vbCrLf)Fine sottotitolo |
Quando eseguiamo questa procedura, restituirà la seguente finestra di messaggio.
