VBA, kai turime rasti paskutinę eilutę, yra daugybė skirtingų metodų, o dažniausiai naudojamas metodas „Pabaiga“ (XLDown) ir yra kitų metodų, pavyzdžiui, norint rasti paskutinę reikšmę naudojant funkciją „VBA“, Pabaiga ). Eilė yra lengviausias būdas patekti į paskutinę eilutę.
„Excel VBA“ paskutinė eilutė
Jei kodo rašymas yra pirmoji pažanga, kurią atlikote VBA, tai kodo dinamiškumas yra kitas jūsų žingsnis. „Excel“ yra pilna langelių nuorodų. Tą akimirką, kai nurodome langelį, jis tampa fiksuotas. Jei mūsų duomenys didėja, turime grįžti prie langelio nuorodos ir pakeisti nuorodas, kad rezultatas būtų atnaujintas.
Pavyzdžiui, pažvelkite į žemiau pateiktą kodą.
Kodas:
Sub Last_Row_Example1 () Range ("D2"). Reikšmė = WorksheetFunction.Sum (Range ("B2: B7")) Pabaiga Sub
Aukščiau pateiktame kode sakoma, kad D2 langelio vertė turėtų būti diapazono suma („B2: B7“).
Dabar prie sąrašo pridėsiu daugiau vertybių.
Dabar, jei paleidžiu kodą, jis man neduos atnaujinimo rezultatų, jis vis tiek laikosi senojo diapazono, ty diapazono („B2: B7“).
Čia dinaminis kodas yra labai svarbus.
Padarant kodą dinamišką, labai svarbu rasti paskutinę naudojamą stulpelio eilutę. Šiame straipsnyje aptarsime būdus, kaip rasti paskutinę „Excel VBA“ eilutę.
Kaip rasti paskutinę naudojamą eilutę stulpelyje?
Toliau pateikiami pavyzdžiai, kaip rasti paskutinę naudojamą „Excel VBA“ eilutę.
1 metodas
Prieš paaiškindamas jums kodą, noriu, kad prisimintumėte, kaip einate į paskutinę eilutę įprastame darbalapyje.
Mes naudosime spartųjį klavišą „ Ctrl“ + rodyklė žemyn.
Tai nukels mus į paskutinę panaudotą eilutę prieš tuščią langelį. Tą patį metodą naudosime ir VBA, norėdami rasti paskutinę eilutę.
1 veiksmas: apibrėžkite kintamąjį kaip LONG.
Kodas:
Sub Last_Row_Example2 () Dim LR As Long 'Suprasti LR = Paskutinės eilutės pabaigos sub
2 žingsnis: Šiam kintamajam priskirsime paskutinį naudotą eilutės numerį.
Kodas:
Sub Last_Row_Example2 () Dim LR As Long 'Suprasti LR = paskutinė eilutė LR = End Sub
3 žingsnis: Parašykite kodą CELLS (Rows.Count,
Kodas:
Sub Last_Row_Example2 () Dim LR as Long 'Suprasti LR = Paskutinė eilutė LR = Cells (Rows.Count, End Sub
4 žingsnis: Dabar stulpelio numerį paminėkite kaip 1.
Kodas:
Sub Last_Row_Example2 () Dim LR as Long 'Suprasti LR = Paskutinė eilutė LR = Cells (Rows.Count, 1) End Sub
CELLS (Rows.Count, 1) reiškia suskaičiuoti, kiek eilučių yra pirmame stulpelyje.
Taigi aukščiau nurodytas VBA kodas nukels mus į paskutinę „Excel“ lapo eilutę.
5 žingsnis: Jei mes esame paskutiniame lapo langelyje, norėdami pereiti į paskutinę naudotą eilutę, mes paspausime spartųjį klavišą yra Ctrl + rodyklė aukštyn .
VBA turime naudoti pabaigos klavišą ir aukštyn, ty „End VBA xlUp“
Kodas:
Sub Last_Row_Example2 () Dim LR As Long 'Suprasti LR = Paskutinė eilutė LR = Cells (Rows.Count, 1). End (xlUp) End Sub
6 žingsnis: Dabar tai nukels mus į paskutinę naudotą eilutę iš apačios. Dabar mums reikia to eilutės numerio. Taigi naudokite nuosavybę ROW, kad gautumėte eilutės numerį.
Kodas:
Sub Last_Row_Example2 () Dim LR As Long 'Suprasti LR = Paskutinė eilutė LR = Langeliai (Rows.Count, 1) .End (xlUp). Eilutės pabaiga Sub
7 žingsnis: Dabar kintamasis turi paskutinį naudojamą eilutės numerį. Parodykite šio kintamojo vertę pranešimų laukelyje VBA kode.
Kodas:
Sub Last_Row_Example2 () Dim LR As Long 'Suprasti LR = Paskutinė eilutė LR = Langeliai (Rows.Count, 1). End (xlUp). Eilutė MsgBox LR End Sub
Paleiskite šį kodą naudodami klavišą F5 arba rankiniu būdu. Bus rodoma paskutinė naudota eilutė.
Išvestis:
Paskutinė šio darbalapio eilutė naudojama 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
Kodas taip pat nurodo paskutinę naudojamą eilutę. Pavyzdžiui, pažiūrėkite į žemiau esantį darbalapio vaizdą.
Jei paleidžiu kodą rankiniu būdu arba naudoju klavišą F5, rezultatas bus 12, nes 12 yra paskutinė naudojama eilutė.
Išvestis:
Dabar aš ištrinsiu 12-ą eilutę ir pamatysiu rezultatą.
Nors ištryniau vieną eilutę, rezultatas vis tiek rodomas kaip 12.
Kad šis kodas veiktų, po kiekvieno veiksmo turime paspausti išsaugojimo mygtuką. Tada šis kodas pateiks tikslius rezultatus.
Aš išsaugojau darbaknygę ir dabar matau rezultatą.
3 metodas
Paskutinę VBA eilutę galime rasti naudotame diapazone. Žemiau pateiktas kodas taip pat pateikia paskutinę naudotą eilutę.
Kodas:
Sub Last_Row_Example4 () Dim LR As Long LR = ActiveSheet.UsedRange.Rows (ActiveSheet.UsedRange.Rows.Count). Eilutė MsgBox LR End Sub
Taip bus grąžinta paskutinė naudota eilutė.
Išvestis:
