Nwlapcug.com


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

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


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

Istruzioni

1

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

Digitare "Sub goToLastRow()" e premere "Invio" per creare un nuovo sub.

2

Digitare il seguente testo per creare variabili:

"Dim lastRow As Integer

Dim X As Integer"

3

Tipo "per X = 1 a 25

Range("A" & X).Select

ActiveCell.Value = "Adding data to row number: " & X

Avanti X

Range("A26"). Selezionare

ActiveCell. Value = ""

Range("A27"). Selezionare

ActiveCell. Value = "" "per creare un ciclo che aggiungerà i dati per le 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 in questo foglio di lavoro è: "& lastRow" per visualizzare l'ultima riga attraverso una finestra di messaggio.

5

Se necessario, immettere "End Sub". Eseguire il tuo nuovo sub e vedrete una finestra di messaggio con "l'ultima riga in questo foglio di lavoro è: 27".

Consigli & Avvertenze

  • Il tuo nuovo sub dovrebbe assomigliare a questo:
  • "Sub goToLastRow()
  • Dim lastRow As Integer
  • Dim X As Integer
  • Per X = 1 a 25
  • Fascia ("A" & X). Selezionare
  • ActiveCell. Value = "aggiunta di dati al numero di riga:" & X
  • Avanti X
  • Range("A26"). Selezionare
  • ActiveCell. Value = ""
  • Range("A27"). Selezionare
  • ActiveCell. Value = ""
  • lastRow = ActiveSheet.UsedRange.Rows.Count
  • MsgBox "l'ultima riga in questo foglio di lavoro è:" & lastRow
  • End Sub"