Kun VBA: ssa on löydettävä viimeinen rivi, on monia erilaisia menetelmiä ja yleisimmin käytetty menetelmä on End (XLDown) -menetelmä ja on muitakin menetelmiä, kuten viimeisen arvon löytäminen käyttämällä VBA: n Find-toimintoa, End (XLDown) ). Rivi on helpoin tapa päästä viimeiseen riviin.
Excel VBA Viimeinen rivi
Jos koodin kirjoittaminen on ensimmäinen edistysaskel VBA: ssa, koodin muuttaminen dynaamiseksi on seuraava askel sinulle. Excel on täynnä soluviittauksia. Heti kun viittaamme soluun, se muuttuu kiinteäksi. Jos tietomme kasvavat, meidän on palattava soluviittaukseen ja muutettava viitteitä, jotta tulos olisi ajan tasalla.
Katso esimerkiksi alla oleva koodi.
Koodi:
Alilohkoryhmä_esimerkki1 () Alue ("D2"). Arvo = LaskentataulukkoFunktio.Summa (Alue ("B2: B7")) Loppu
Yllä olevan koodin mukaan kohdassa D2 solun arvon tulisi olla Alueen summa (“B2: B7”).
Lisään nyt luetteloon lisää arvoja.
Jos suoritan koodin, se ei anna minulle pikemminkin päivitystuloksia, se pysyy edelleen vanhalla alueella eli alueella ("B2: B7").
Täällä dynaaminen koodi on erittäin tärkeä.
Koodin muuttamiseksi dynaamiseksi viimeisen käytetyn rivin löytäminen sarakkeesta on erittäin tärkeää. Tässä artikkelissa keskustellaan tavoista löytää viimeinen rivi Excel VBA: ssa.
Kuinka löytää viimeksi käytetty rivi sarakkeesta?
Alla on esimerkkejä viimeisimmän käytetyn rivin löytämisestä Excel VBA: sta.
Menetelmä # 1
Ennen kuin selitän sinulle koodin, haluan sinun muistavan, kuinka edet tavallisen laskentataulukon viimeiselle riville.
Käytämme pikanäppäintä Ctrl + alanuoli.
Se vie meidät viimeksi käytettyyn riviin ennen tyhjää solua. Käytämme samaa menetelmää myös VBA: ssa viimeisen rivin löytämiseen.
Vaihe 1: Määritä muuttujaksi LONG.
Koodi:
Sub Last_Row_Example2 () Dim LR As Long 'LR: n ymmärtämiseksi = Viimeisen rivin loppuosa
Vaihe 2: Tälle muuttujalle määritämme viimeksi käytetyn rivinumeron.
Koodi:
Sub Last_Row_Example2 () Dim LR As Long 'ymmärtämään LR = viimeinen rivi LR = End Sub
Vaihe 3: Kirjoita koodi muodossa CELLS (Rivit.Määrä,
Koodi:
Sub Last_Row_Example2 () Dim LR Long Long 'ymmärtämään LR = viimeinen rivi LR = solut (rivit.luku, loppuosa)
Vaihe 4: Mainitse nyt sarakkeen numero 1.
Koodi:
Sub Last_Row_Example2 () Dim LR As Long 'ymmärtämään LR = viimeinen rivi LR = solut (Rows. Count, 1) End Sub
CELLS (Rows.Count, 1) tarkoittaa laskea kuinka monta riviä ensimmäisessä sarakkeessa on.
Joten yllä oleva VBA-koodi vie meidät Excel-taulukon viimeiselle riville.
Vaihe 5: Jos olemme viimeisessä käytetyllä rivillä siirtymässä taulukon viimeiseen soluun, painamme pikanäppäintä Ctrl + Ylänuolinäppäin .
VBA: ssa meidän on käytettävä lopetusavainta ja ylöspäin eli End VBA xlUp
Koodi:
Sub Last_Row_Example2 () Dim LR Long Long 'ymmärtämään LR = viimeinen rivi LR = solut (Rows. Count, 1). End (xlUp) End Sub
Vaihe 6: Nyt se vie meidät viimeiseen käytettyyn riviin alhaalta. Nyt tarvitsemme tämän rivinumeron. Joten käytä ominaisuutta ROW saadaksesi rivinumeron.
Koodi:
Sub Last_Row_Example2 () Dim LR Long Long 'ymmärtämään LR = viimeinen rivi LR = solut (Rows. Count, 1) .End (xlUp) .Rivin loppu Sub
Vaihe 7: Muuttuja pitää nyt viimeksi käytetyn rivinumeron. Näytä tämän muuttujan arvo viestiruudussa VBA-koodissa.
Koodi:
Sub Last_Row_Example2 () Dim LR As Long 'ymmärtämään LR = Viimeinen rivi LR = Solut (Rows. Count, 1) .End (xlUp) .Rivi MsgBox LR End Sub
Suorita tämä koodi F5-näppäimellä tai manuaalisesti. Se näyttää viimeksi käytetyn rivin.
Tuotos:
Tämän laskentataulukon viimeinen käytetty rivi 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
Koodi antaa myös viimeksi käytetyn rivin. Katso esimerkiksi alla olevaa laskentataulukon kuvaa.
Jos suoritan koodin manuaalisesti tai käytän F5-avainta, tulos on 12, koska 12 on viimeinen käytetty rivi.
Tuotos:
Nyt poistan 12. rivin ja näen tuloksen.
Vaikka olen poistanut yhden rivin, tulos näyttää silti 12.
Jotta tämä koodi toimisi, meidän on painettava tallennuspainiketta jokaisen toiminnon jälkeen. Sitten tämä koodi antaa tarkat tulokset.
Olen tallentanut työkirjan ja näen nyt tuloksen.
Menetelmä # 3
VBA: n viimeinen rivi löytyy käytetystä alueesta. Alla oleva koodi palauttaa myös viimeksi käytetyn rivin.
Koodi:
Sub Last_Row_Example4 () Dim LR As Long LR = ActiveSheet.UsedRange.Rows (ActiveSheet.UsedRange.Rows.Count) .Rivi MsgBox LR End Sub
Tämä palauttaa myös viimeksi käytetyn rivin.
Tuotos:
