Excel VBA XLUP
Yksi asia, joka sinun on pidettävä mielessä kirjoittaessasi VBA-koodia, on se, mitä teet tavallisen laskentataulukon kanssa, ja voit kopioida saman myös VBA: ssa. Yksi tällainen avainsana VBA-koodauksessa on ”XLUP” tässä artikkelissa. Näytämme sinulle, mikä tämä avainsana on VBA-koodauksessa ja miten sitä käytetään koodauksessa.
Kuinka käyttää VBA XLUPia koodauksessa?
Seuraavassa on esimerkkejä Excel VBA XLUP: stä.
Esimerkki # 1 - Siirrä solut solujen poistettuun sijaintiin
Katso esimerkiksi alla olevien tietojen skenaario, jossa sinun on poistettava kyseiset värilliset solutiedot ja enemmän ylöspäin alla olevien rivien tiedot yllä oleviin tietoihin.
Yksi tapa poistaa tämä taulukosta on valita ne solut, joista voimme yksinkertaisesti poistaa koko rivin itse. Mutta tässä tilanteet ovat hieman hankalia, koska minulla on värillisiä soluja taulukossa 1, kun poistamme koko rivin, myös taulukon 2 rivit poistetaan, mutta emme halua tämän tapahtuvan; Sen sijaan meidän on poistettava vain värilliset rivit ja solujen alapuolella pitäisi liikkua poistettujen solujen sijaintia ylöspäin.
Valitse ensin värilliset solut ja avaa Poista-vaihtoehto painamalla Ctrl + miinusmerkki (-) .
Pikanäppäin "Poista" -vaihtoehdon avaamiseksi
"Poista" -vaihtoehtoikkunassa meillä on neljä vaihtoehtoa. Voimme valita toiminnan vaatimuksemme mukaan. Koska meidän on siirrettävä solut ylöspäin poistettujen solujen kohdalla, valitse ”Vaihda solua ylös”.
Taulukon 2 rivejä ei muuteta.
Tämä toiminto VBA: ssa edellyttää XLUP-ominaisuuden käyttöä vastaavanlaisten toimintojen suorittamiseksi VBA: ssa. Tule nyt VBA-editorin ikkunaan ja aloita makron nimi.
Koodi:
Sub XLUP_Example () End Sub
Toimita ensin solu RANGE sisällytettäväksi tähän toimintoon. Tässä toiminnossa ensimmäiset solut, jotka poistetaan ja siirretään ylöspäin, ovat “A5: B5” -solut.
Koodi:
Sub XLUP_Example () Range ("A5: B5") End Sub
Valitse tälle solualueelle Poista-menetelmä.
Koodi:
Sub XLUP_Example () -alue ("A5: B5"). Poista End Sub
Kuten voit nähdä "Poista" -menetelmällä, meillä on yksi valinnainen argumentti (Vaihto). Tätä argumenttia varten meidän on syötettävä argumentti nimellä "XLUP".
Koodi:
Sub XLUP_Example () -alue ("A5: B5"). Poista siirto: = xlUp End Sub
Nyt voit suorittaa tämän koodin manuaalisesti tai Excel-pikanäppäimen avulla nähdäksesi tuloksen.
Kuten näette taulukossa 1, olemme rivin numero 6 muutti jopa 5 th rivi, ja toisaalta taulukon, 2 rivi (värillinen) on muuttumaton, joten käyttämällä ”VBA XLUP” vaihtoehto, voimme tehdä tämän toiminnon .
Esimerkki # 2 - Etsi viimeksi käytetty rivi XLUP: n avulla
Kuvittele tilanne, jossa olet A20-solussa (katso kuvan alapuolella), ja viimeksi käytetty solusi on A14.
Nyt, jos haluat valita viimeksi käytetyn solun (A14), miten voit tehdä käyttämällä pikanäppäintä ???
Käytämme Ctrl + Ylänuoli- näppäintä siirtyäksesi viimeksi käytettyyn soluun nykyisestä sijainnista.
Pikanäppäin siirtyäksesi viimeksi käytettyyn soluun
Joten nykyisestä solusta Ctrl + Ylänuoli valitsi viimeksi käytetyn solun. Samoin VBA-koodauksessa käytämme END: tä (XLUP) saman suorittamiseksi.
Palaa nyt VBA-koodausikkunaan.
In this window, we will perform the task of finding the last used row in the worksheet. Create a new subprocedure in the VBA window.
Code:
Sub XLUP_Example1() End Sub
To store the last used row number. define the variable as the VBA LONG data type.
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long End Sub
Now for this variable, we will assign the last used row number.
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long Last_Row_Number = End Sub
Now use the RANGE object and open this object.
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long Last_Row_Number = Range( End Sub
Now mention the active cell (A20) for RANGE object.
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20") End Sub
Now open END property for supplied range cell.
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20").End( End Sub
As you can see above, we have to arrow key options like “xlDown,” “xlToLeft,” “xlToRight,” “xlUp.” Since we are moving up from the A14 cell, choose the “VBA XLUP” option.
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20").End(xlUp) End Sub
After moving up from A14 cell, we need to mention what we need to do since we need the last used row number, I will use ROW property.
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20").End(xlUp).Row End Sub
Now for the message box, assign the value of variable “Last_Row_Number.”
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20").End(xlUp).Row MsgBox Last_Row_Number End Sub
Now you can run this code manually or through shortcut key F5 to see the result.
So message box showing the last used row number as 14, so our last data used row number is A14 cell.
In this case, since the data is very small, we started the room cell, but when the data is large, we cannot say which cell to take into consideration first. In such cases, we need to employ a different technique.
We need to use CELLS property. Below is an example of the same.
Code:
Sub XLUP_Example2() Dim Last_Row_Number As Long Last_Row_Number = Cells(Rows.Count, 1).End(xlUp).Row MsgBox Last_Row_Number End Sub
Now you can run this code manually or through shortcut key F5 to see the result.
RANGE-objektin sijaan olen käyttänyt CELLS-ominaisuutta. Anna minun selittää tämä yksityiskohtaisesti sinulle.
ROW.COUNT laskee, kuinka monta riviä sarakkeessa 1 on. Mitä tämä tarkoittaa, se ottaa huomioon laskentataulukon viimeisen solun satunnaisen solun osoitteen sijaan. Edellä mainitussa tapauksessa olemme käyttäneet A14: tä satunnaisena solun osoitteena.
Muistettavaa VBA XLUP: sta
- XLUP on sana, jota VBA-koodissa toistetaan ”Ylänuoli” -avaimen toiminnolla Excelissä.
- VBA XLUPia käytetään siirtymään aktiivisista soluista yllä olevaan soluun tai viimeksi käytettyyn soluun.
- XLUP: ää käytetään yleensä VBA: n END-ominaisuuden kanssa.
