Hvordan bruke VBA til å gå til den siste rad i et Excel-ark

Hvordan bruke VBA til å gå til den siste rad i et Excel-ark


Lære å bruke Visual Basic for Applications (VBA) i Excel kan du spare tid når du søker etter data i et regneark. Microsoft Excel, et regnearkprogram inkludert i Microsoft Office, gir deg verktøy for enkelt å analysere data ved hjelp av formler for kompliserte beregninger. Bruk VBA til å automatisere rutinemessige oppgaver i Excel eller andre Microsoft Office-programmer.

Bruksanvisning

1 Åpne Microsoft Excel 2007, klikk på "Utvikler" fanen og velg "Visual Basic."

Skriv "Sub goToLastRow ()" og trykk "Enter" for å lage en ny sub.

2 Skriv inn følgende tekst for å lage variabler:

"Dim lastRow As Integer

Dim x As Integer "

3 Type "For X = 1 til 25

Range("A" & X).Select

ActiveCell.Value = "Legge data til rad nummer:" & amp; x

Neste X

Range ( "A26"). Velg

ActiveCell.Value = ""

Range ( "A27"). Velg

ActiveCell.Value = "" "for å lage en løkke som vil legge til data i de første 25 radene. Legg en" plass "til de to siste radene.

4 Skriv "lastRow = ActiveSheet.UsedRange.Rows.Count" for å få den siste raden.

Type "MsgBox". Den siste raden på dette regnearket er: "& lastRow" for å vise den siste raden gjennom en meldingsboks.

5 Skriv "End Sub" om nødvendig. Kjør den nye sub og du vil se en meldingsboks med "Den siste raden på dette regnearket er: 27".

Hint

  • Din nye sub skal se slik ut:
  • "Sub goToLastRow ()
  • Dim lastRow As Integer
  • Dim x As Integer
  • For X = 1 til 25
  • Range ( "A" og X) .Velg
  • ActiveCell.Value = "Legge data til rad nummer:" & X
  • Neste X
  • Range ( "A26"). Velg
  • ActiveCell.Value = ""
  • Range ( "A27"). Velg
  • ActiveCell.Value = ""
  • lastRow = ActiveSheet.UsedRange.Rows.Count
  • MsgBox "Den siste raden på dette regnearket er:" & lastRow
  • End Sub "