Acest tutorial vă va arăta cum să utilizați proprietatea Range.End în VBA.
Majoritatea lucrurilor pe care le faceți manual într-un registru sau foaie de lucru Excel pot fi automatizate în cod VBA.
Dacă aveți o gamă de celule care nu sunt goale în Excel și apăsați Ctrl + Săgeată în jos, cursorul se va deplasa la ultima celulă ne-goală din coloana în care vă aflați. În mod similar, dacă apăsați Ctl + Săgeată sus, cursorul se va deplasa la prima celulă ne-goală. Același lucru se aplică pentru un rând care utilizează Ctrl + Săgeată dreapta sau Ctrl + Săgeată la stânga pentru a merge la începutul sau sfârșitul acelui rând. Toate aceste combinații de taste pot fi utilizate în codul dvs. VBA folosind Funcția de sfârșit.
Sintaxa proprietății sfârșitului intervalului
Proprietatea Range.End vă permite să vă deplasați la o celulă specifică din regiunea curentă cu care lucrați.
expresie.Sfârșit (Direcţie)
expresia este adresa celulei (Range) a celulei de unde doriți să începeți, de exemplu: Range („A1”)
END este proprietatea obiectului Range care este controlat.
Direcția este constanta Excel pe care o puteți folosi. Există 4 opțiuni disponibile - xlDown, xlToLeft, xlToRight și xlUp.
Trecerea la ultima celulă
Procedura de mai jos vă va muta la ultima celulă din regiunea curentă a celulelor în care vă aflați.
| 1234 | Sub GoToLast ()'mutați la ultima celulă ocupată în regiunea curentă a celulelorRange ("A1"). End (xlDown). SelectațiSfârșitul Sub |
Numărarea rândurilor
Următoarea procedură vă permite să utilizați fișierul xlDown constantă cu proprietatea Range End pentru a număra câte rânduri sunt în regiunea dvs. curentă.
| 12345678 | Sub GoToLastRowofRange ()Dim rw Ca întregRange ("A1"). Selectați'obțineți ultimul rând din regiunea curentărw = Range ("A1"). End (xlDown) .Row'arată câte rânduri sunt folositeMsgBox "Ultimul rând utilizat în acest interval este" & rwSfârșitul Sub |
În timp ce cea de mai jos va conta coloanele din interval folosind xlToRight constant.
| 12345678 | Sub GoToLastCellofRange ()Dim col As IntegerRange ("A1"). Selectați'obțineți ultima coloană din regiunea curentăcol = Range ("A1"). End (xlToRight) .Column'arată câte coloane sunt folositeMsgBox „Ultima coloană utilizată în acest interval este„ & colSfârșitul Sub |
Crearea unui Range Array
Procedura de mai jos ne permite să începem de la prima celulă dintr-o gamă de celule și apoi să folosim proprietatea End (xlDown) pentru a găsi ultima celulă din gama de celule. Putem apoi redimensiona matricea noastră cu rândurile totale din gamă, permițându-ne astfel să parcurgem zona de celule.
| 123456789101112131415161718 | Sub PopulateArray ()'declara matriceaDim strSuppliers () As String'declarați numărul întreg pentru a număra rândurileDim n Ca întreg'numără rândurilen = Range ("B1", Range ("B1"). End (xlDown)). Rows.Count'inițializează și populează matriceaReDim strCustomers (n)'declarați întregul pentru buclăDim i Integer'populează matriceaPentru i = 0 la nstrCustomers (i) = Range ("B1"). Offset (i, 0). ValoareApoi eu'afișează caseta de mesaj cu valorile matriceiMsgBox Join (strCustomers, vbCrLf)Sfârșitul Sub |
Când vom rula această procedură, acesta va returna următoarea casetă de mesaj.
