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 "