Vba: come selezionare tutte le celle contenenti dati

È possibile utilizzare i seguenti metodi in VBA per selezionare tutte le celle contenenti dati in un foglio:

Metodo 1: seleziona una griglia di celle con dati

 SubSelectCellsWithData ()

Range(" A1 ").CurrentRegion.Select

End Sub

Questa particolare macro selezionerà una griglia di celle con dati a partire dalla cella A1 del foglio attualmente attivo.

Metodo 2: seleziona singole celle con dati

 SubSelectCellsWithData ()

Worksheets(" Sheet1 ").Activate
ActiveSheet.Cells.SpecialCells(xlCellTypeConstants).Activate

End Sub

Questa particolare macro selezionerà tutte le singole celle contenenti dati da Sheet1 .

I seguenti esempi mostrano come utilizzare in pratica ciascun metodo con il seguente foglio chiamato Foglio1 in Excel:

Esempio 1: selezionare una griglia di celle con dati

Supponiamo di voler selezionare la griglia di celle contenente i dati in Sheet1 .

Per fare ciò possiamo creare la seguente macro:

 SubSelectCellsWithData ()

Range(" A1 ").CurrentRegion.Select

End Sub

Quando eseguiamo questa macro, possiamo vedere che è stata selezionata l’intera griglia di celle contenente i dati nel Foglio1 :

Tieni presente che questo metodo utilizza la proprietà CurrentRegion per selezionare l’intervallo di celle racchiuso da celle vuote.

Puoi trovare la documentazione completa per la proprietà CurrentRegion qui .

Esempio 2: seleziona singole celle con dati

Supponiamo di voler selezionare solo tutte le singole celle contenenti dati in Sheet1 .

Per fare ciò possiamo creare la seguente macro:

 SubSelectCellsWithData ()

Worksheets(" Sheet1 ").Activate
ActiveSheet.Cells.SpecialCells(xlCellTypeConstants).Activate

End Sub

Quando eseguiamo questa macro, possiamo vedere che ciascuna delle singole celle nel Foglio1 contenente dati è selezionata:

Risorse addizionali

I seguenti tutorial spiegano come eseguire altre attività comuni in VBA:

VBA: come impostare il valore di una cella in un altro foglio
VBA: come selezionare un intervallo in una cella attiva
VBA: come eliminare le righe in base al valore della cella