Come utilizzare VBA per Vai all'ultima riga in un foglio di Excel

April 16

Come utilizzare VBA per Vai all'ultima riga in un foglio di Excel


Imparare a utilizzare Visual Basic, Applications Edition (VBA) in Excel consente di risparmiare tempo durante la ricerca di dati in un foglio di lavoro. Microsoft Excel, un foglio di calcolo inclusi in Microsoft Office, fornisce gli strumenti per analizzare facilmente i dati utilizzando le formule per calcoli complessi. Utilizzare VBA per automatizzare le attività di routine in altre applicazioni di Microsoft Office Excel o.

istruzione

1 Aprire Microsoft Excel 2007, fare clic sulla scheda "Sviluppatore" e selezionare "Visual Basic".

Digitare "Sub goToLastRow ()" e premere "Invio" per creare una nuova sotto.

2 Digitare il seguente testo per creare le variabili:

"Dim lastRow As Integer

Dim X As Integer "

3 Tipo "per x = 1 a 25

Range("A" & X).Select

ActiveCell.Value = "Aggiunta di dati alla riga numero:" & amp; X

Successivo X

Range ( "A26"). Selezionare

ActiveCell.Value = ""

Range ( "A27"). Selezionare

ActiveCell.Value = "" "per creare un ciclo che aggiungere dati alle prime 25 righe. Aggiungere uno" spazio "per le ultime due righe.

4 Tipo "lastRow = ActiveSheet.UsedRange.Rows.Count" per ottenere l'ultima riga.

Tipo "MsgBox". L'ultima riga di questo foglio di lavoro è: "& lastRow" per visualizzare l'ultima riga attraverso una finestra di messaggio.

5 Tipo "End Sub" se necessario. Eseguire il nuovo sub e vedrete una finestra di messaggio con "L'ultima riga su questo foglio di lavoro è: 27".

Consigli e avvertenze

  • Il vostro nuovo sub dovrebbe essere simile a questo:
  • "Sub goToLastRow ()
  • Dim lastRow As Integer
  • Dim X As Integer
  • Per X = 1 a 25
  • Range ( "A" & X) .Select
  • ActiveCell.Value = "Aggiunta di dati alla riga numero:" & X
  • Successivo X
  • Range ( "A26"). Selezionare
  • ActiveCell.Value = ""
  • Range ( "A27"). Selezionare
  • ActiveCell.Value = ""
  • lastRow = ActiveSheet.UsedRange.Rows.Count
  • MsgBox "L'ultima riga su questo foglio di lavoro è:" & lastRow
  • End Sub "