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-le funktsioon Funktsioon, End (XLDown) ). Rida on kõige lihtsam viis viimasele reale pääsemiseks.
Exceli VBA viimane rida
Kui koodi kirjutamine on VBA-s esimene edasiminek, siis on teie jaoks järgmine samm koodi dünaamiliseks muutmine. Excel on täis lahtriviiteid. Hetkel, kui me lahtrile viidame, see fikseerub. Kui meie andmed suurenevad, peame naasma lahtriviite juurde ja muutma viiteid, et tulemus oleks ajakohane.
Näiteks vaadake allolevat koodi.
Kood:
Alamreal_rida_näide1 () Vahemik ("D2"). Väärtus = TöölehtFunction.Sum (Vahemik ("B2: B7")) Lõpp alam
Ülaltoodud kood ütleb D2-s, et lahtri väärtus peaks olema vahemiku liitmine ("B2: B7").
Nüüd lisan loendisse veel väärtusi.
Kui ma koodi käivitan, ei anna see mulle pigem värskenduste tulemust, see jääb 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.
Meetod nr 1
Enne kui seletan teile koodi, tahan, et mäletaksite, kuidas te lähete 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:
Alamreal_rida_näide2 () Hämarda LR nii kaua kui võimalik - LR-i mõistmiseks = viimane rida LR = lõpp-alam
3. samm: kirjutage kood CELLS (Read.Count,
Kood:
Alamreal_rida_näide2 () Hämarda LR nii kaua ”LR-i mõistmiseks = viimane rida LR = lahtrid (read.kogus, lõpu alam
4. samm: mainige nüüd veeru numbrit 1.
Kood:
Alamrida_rida_näide2 () Hämarda LR nii kaua ”LR-i mõistmiseks = viimane rida LR = lahtrid (Ridade 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, vajutame otseteeklahvi on Ctrl + nooleklahv üles .
VBA-s peame kasutama lõpuklahvi ja üles, st Lõpeta VBA xlUp
Kood:
Sub Last_Row_Example2 () Dim LR As Long "LR mõistmiseks = viimane rida LR = lahtrid (Rows. Count, 1). End (xlUp) End Sub
6. samm: Nüüd viib see altpoolt viimati kasutatud reani. 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.
Now I will delete one more line and run the code and see the dynamism of the code.
Ok, now the result automatically takes the last row.
This is what the dynamic VBA last row code is.
As I showed in the earlier example, change the row number from a numeric value to LR.
Code:
Sub Last_Row_Example2() Dim LR As Long 'For understanding LR = Last Row LR = Cells(Rows.Count, 1).End(xlUp).Row Range("D2").Value = WorksheetFunction.Sum(Range("B2:B" & LR)) End Sub
I have removed B13 and added the variable name LR.
Now it does not matter how many rows you add. It will automatically take the updated reference.
Method #2
We can also find the last row in VBA by using the Range object and special VBA cells property as well.
Code:
Sub Last_Row_Example3() Dim LR As Long LR = Range("A:A").SpecialCells(xlCellTypeLastCell).Row 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 ikkagi 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. Allolev kood tagastab ka viimati kasutatud rea.
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:
