Come contare le righe in un foglio di calcolo di Excel utilizzando VBA Macro

A volte , è necessario conoscere il numero di righe in uso in un foglio di calcolo di Excel , sia per una formula oa volte anche una macro VBA . Fortunatamente, ci sono alcuni semplici modi per ottenere questo risultato , e Excel VBA è solo uno di loro. Il modo più semplice per scoprire queste informazioni è quello di scorrere fino alla fine del foglio di calcolo e di notare il numero a destra dell'ultimo punto dati , ma di farlo attraverso VBA è anche abbastanza semplice .
Alla Programmazione del Macro
1

Aprire il foglio di calcolo di Excel e aprire l'editor VBA premendo "Alt + F11 ".
2

Inizia una nuova VBA file di progetto facendo clic destro la cartella di lavoro nel menu di destra e scegliendo l'opzione "Nuovo" .
3

Inizia la nuova funzione digitando " CountRows sub () . " , Questo informa il compilatore VBA che c'è una nuova subroutine nel file di progetto . Se si preferisce dare la subroutine un altro nome , è sufficiente modificare " CountRows " a quello che vuoi dire, ma deve avere la parentesi aperta e chiusa dietro di esso , come in " YourName ()" .

4

Creare una variabile per cui " Dim conte come Long" nella riga successiva
5

Digitare il seguente codice: .
conte

= 0DoCount = Conteggio + 1ActiveCell.Offset ( 1 , 0 ) . SelectLoop Fino IsEmpty ( ActiveCell.Offset ( 0 , 1 ) ) per

Questo dice al programma compilatore per cancellare prima la variabile di conteggio , quindi iniziare a muoversi attraverso il foglio di calcolo . Si aggiunge uno alla conteggio totale , poi si sposta in basso nella cella successiva , finché la cella successiva è vuota . Quando raggiunge una cella vuota , si fermerà in esecuzione .
6

Portare una finestra di messaggio con l'aggiunta di una nuova riga con "Count MsgBox " in esso . Verrà visualizzata una finestra di pop -up con il numero totale di righe in esso. Per rendere la casella Messaggio sembrano un po ' più utile , è possibile aggiungere un po' di più del testo. Modificare la riga come segue :

MsgBox " Non ci sono " Count " Rows "

È possibile modificare il testo tra virgolette a modo tutto ciò che vuoi che sia.
7

, infine, di tipo "End Sub " di una nuova linea per chiudere la funzione di fuori .
Esecuzione della macro
8

Torna al tuo foglio di calcolo Excel , e salvarlo .
9

Evidenziare la prima cella della colonna con il maggior numero di dati . Questa sarà una colonna che non ha celle vuote tra la parte superiore e la parte inferiore .
10

Aprire il menu "Strumenti " e selezionare "Macro" per richiamare le macro di dialogo con tutte le macro programmate nel foglio di calcolo .
11

Selezionare la macro dalla sezione 1 , " CountRows ", o qualunque sia il nome che ha dato. Fare clic su "Esegui". Una volta completato, il Macro si aprirà con il messaggio di rapporto di dialogo del numero di righe hai riempito .