seychellesartprojects.org

VBA-s, kui peame leidma viimase rea, on palju erinevaid meetodeid ja kõige sagedamini kasutatav meetod on End (XLDown) meetod ja on ka muid meetodeid, näiteks viimase väärtuse leidmine VBA otsingufunktsiooni abil, End (XLDown ). Rida on kõige lihtsam viis viimasele reale pääsemiseks.

Exceli VBA viimane rida

Kui koodi kirjutamine on esimene VBA-s tehtud edusamm, siis on järgmine samm koodi dünaamiliseks muutmine. Excel on täis lahtriviiteid, hetkel, kui viidame lahtrile, see fikseerub. Kui meie andmed suurenevad, peame naasma lahtriviite juurde ja muutma viiteid, et tulemus oleks ajakohane.

Näite saamiseks vaadake allolevat koodi.

Kood:

 Alamreal_rida_näide1 () Vahemik ("D2"). Väärtus = TöölehtFunction.Sum (Vahemik ("B2: B7")) Lõpp alam 

Eespool toodud kood ütleb, et lahtris D2 peaks olema vahemiku liitmine ("B2: B7").

Nüüd lisan loendisse veel väärtusi.

Kui ma koodi käivitan, ei anna see mulle värskenduste tulemust, pigem jääb see ikkagi vana vahemiku juurde, st vahemikku ("B2: B7").

Siin on dünaamiline kood väga oluline.

Koodi dünaamiliseks muutmise protsessis on veerus viimati kasutatud rea leidmine väga oluline. Selles artiklis käsitleme Exceli VBA viimase rea leidmise viise.

Kuidas leida veerust viimati kasutatud rida?

Allpool on näited Exceli VBA viimati kasutatud rea leidmiseks.

Selle VBA viimase rea malli saate alla laadida siit - VBA viimase rea mall

Meetod nr 1

Enne koodi selgitamist tahan, et mäletaksite, kuidas liigute tavalise töölehe viimasele reale.

Kasutame kiirklahvi Ctrl + allanool.

See viib meid viimati kasutatud reale enne tühja lahtrit. Viimase rea leidmiseks kasutame sama meetodit ka VBA-s.

1. samm: määratlege muutuja kui PIKK.

Kood:

 Sub Last_Row_Example2 () Dim LR As Long 'LR mõistmiseks = viimase rea lõpu alam 

2. samm: määrame selle muutuja jaoks viimati kasutatud rea numbri.

Kood:

 Sub Last_Row_Example2 () Dim LR As Long 'LR-i mõistmiseks = viimane rida LR = End Sub 

3. samm: kirjutage kood CELLS (Read.Count,

Kood:

 Sub Last_Row_Example2 () Dim LR As Long 'LR mõistmiseks = viimane rida LR = lahtrid (read.Count, End Sub 

4. samm: mainige nüüd veeru numbrit 1.

Kood:

 Alamrida_rida_näide2 () Mõõtke LR nii pikaks ”LR-i mõistmiseks = viimane rida LR = lahtrid (read.arv, 1) Lõpp-alam 

CELLS (Rows.Count, 1) tähendab loendada, kui palju ridu on esimeses veerus.

Nii et ülaltoodud VBA kood viib meid Exceli lehe viimasele reale.

5. samm: kui oleme lehe viimases lahtris, et minna viimati kasutatud reale, siis vajutame otseteeklahvi Ctrl + nooleklahv üles .

VBA-s peame kasutama lõpuklahvi ja üles ehk End VBA xlUp

Kood:

 Sub Last_Row_Eexample2 () Dim LR As Long 'LR mõistmiseks = viimane rida LR = lahtrid (Rows. Count, 1). End (xlUp) End Sub 

6. samm: nüüd viib meid altpoolt viimati kasutatud rea juurde. Nüüd vajame selle rea numbrit. Seega kasutage rea numbri saamiseks omadust ROW.

Kood:

 Sub Last_Row_Example2 () Dim LR Long as Long 'LR mõistmiseks = viimane rida LR = lahtrid (Rows. Count, 1). End (xlUp). Rida End Sub 

7. samm: nüüd hoiab muutuja viimati kasutatud rea numbrit. Näidake selle muutuja väärtust VBA-koodi sõnumikastis.

Kood:

 Sub Last_Row_Example2 () Dim LR As Long 'LR mõistmiseks = viimane rida LR = lahtrid (Rows. Count, 1). End (xlUp). Rida MsgBox LR End Sub 

Käivitage see kood klahviga F5 või käsitsi, see kuvab viimati kasutatud rea.

Väljund:

Selle töölehe viimane kasutatud rida on 13.

Nüüd kustutan veel ühe rea ja käivitan koodi ning näen koodi dünaamikat.

Ok, nüüd võtab tulemus automaatselt viimase rea.

See on dünaamiline VBA viimase rea kood.

Nagu varasemas näites näitasin, muutke rea number numbrilisest väärtusest LR-iks.

Kood:

 Sub Last_Row_Example2 () Dim LR As Long 'LR mõistmiseks = viimane rida LR = lahtrid (Rows. Count, 1) .End (xlUp) .Row Range ("D2"). Value = WorksheetFunction.Sum (Range ("B2: B "& LR)) Lõpp alam 

Olen eemaldanud B13 ja lisanud muutuja nime LR.

Nüüd pole vahet, mitu rida lisate, võtab see automaatselt värskendatud viite.

Meetod nr 2

Samuti võime leida VBA viimase rea, kasutades ka objekti Range ja spetsiaalset VBA lahtrite omadust.

Kood:

 Sub Last_Row_Example3 () Dim LR As Long LR = Range ("A: A"). SpecialCells (xlCellTypeLastCell). Rida MsgBox LR End Sub 

Kood annab teile ka viimati kasutatud rea. Näiteks vaadake allolevat töölehe pilti.

Kui käivitan koodi käsitsi või kasutan klahvi F5, on tulemus 12, sest 12 on viimane kasutatud rida.

Väljund:

Nüüd kustutan 12. rida ja näen tulemust.

Kuigi olen ühe rea kustutanud, näitab see siiski tulemust 12.

Selle koodi toimimiseks peame pärast iga toimingut vajutama nuppu Salvesta, siis annab see kood täpseid tulemusi.

Olen töövihiku salvestanud ja nüüd näen tulemust.

Meetod nr 3

VBA viimase rea leiame kasutatud vahemikust. Koodi all tagastatakse ka viimati kasutatud rida.

Kood:

 Sub Last_Row_Example4 () Dim LR As Long LR = ActiveSheet.UsedRange.Rows (ActiveSheet.UsedRange.Rows.Count). Rida MsgBox LR End Sub 

See tagastab ka viimase kasutatud rea.

Väljund: