Vba: come contare il numero di colonne utilizzate

È possibile utilizzare la seguente sintassi di base per contare il numero di colonne utilizzate in un foglio Excel utilizzando VBA:

 SubCountColumns ()
    Range(" A10 ") = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
End Sub

Questo particolare esempio conta il numero di colonne utilizzate nel foglio chiamato Foglio1 e visualizza il risultato nella cella A10 .

Se invece vuoi visualizzare il numero di colonne in una finestra di messaggio, puoi utilizzare la seguente sintassi:

 SubCountColumns ()
    Dim LastCol As Long
    LastCol = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
    MsgBox " Column Count: " & LastCol
End Sub

Gli esempi seguenti mostrano come utilizzare nella pratica ciascuno di questi metodi con il seguente set di dati in Excel che contiene informazioni su vari giocatori di basket:

Esempio 1: contare le colonne utilizzate in VBA e visualizzare i risultati nella cella

Supponiamo di voler contare il numero di colonne utilizzate e visualizzare i risultati in una cella specifica.

Per fare ciò possiamo creare la seguente macro:

 SubCountColumns ()
    Range(" A10 ") = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
End Sub

Quando eseguiamo questa macro, riceviamo il seguente output:

Nota che la cella A10 contiene il valore 4 .

Questo ci dice che vengono utilizzate 4 colonne.

Esempio 2: contare le colonne utilizzate in VBA e visualizzare i risultati nella finestra di messaggio

Supponiamo invece di voler contare il numero di colonne utilizzate e visualizzare i risultati in una finestra di messaggio.

Per fare ciò possiamo creare la seguente macro:

 SubCountColumns ()
    Dim LastCol As Long
    LastCol = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
    MsgBox " Column Count: " & LastCol
End Sub

Quando eseguiamo questa macro, riceviamo il seguente output:

La finestra di messaggio ci dice che sono utilizzate 4 colonne.

Nota : se sono presenti colonne vuote seguite da colonne contenenti dati, VBA conterà le colonne vuote come “utilizzate” nel calcolo.

Risorse addizionali

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

VBA: come contare il numero di fogli in una cartella di lavoro
VBA: come contare il numero di righe nell’intervallo
VBA: come contare le celle con testo specifico