Denne opplæringen viser deg hvordan du bruker egenskapen Range.End i VBA.
De fleste tingene du gjør manuelt i en Excel -arbeidsbok eller et regneark, kan automatiseres i VBA -kode.
Hvis du har en rekke ikke-tomme celler i Excel, og du trykker på Ctrl+pil ned, vil markøren flytte til den siste ikke-tomme cellen i kolonnen du er i. Hvis du trykker på samme måte Ctl+pil opp, vil markøren flytte til den første ikke-tomme cellen. Det samme gjelder for en rad som bruker Ctrl+høyre pil eller Ctrl+venstre pil for å gå til begynnelsen eller slutten av den raden. Alle disse tastekombinasjonene kan brukes i VBA -koden din med Sluttfunksjon.
Range End Property Syntax
Range.End -egenskapen lar deg flytte til en bestemt celle i gjeldende region du jobber med.
uttrykk.Slutt (Retning)
uttrykket er celleadressen (område) til cellen du vil starte fra, f.eks .: Område ("A1")
END er egenskapen til Range -objektet som kontrolleres.
Retning er Excel -konstanten du kan bruke. Det er 4 alternativer tilgjengelig - xlDown, xlToLeft, xlToRight og xlUp.
Flytter til den siste cellen
Fremgangsmåten nedenfor vil flytte deg til den siste cellen i gjeldende region av cellene du befinner deg i.
| 1234 | Sub GoToLast ()'gå til den siste cellen som er okkupert i den nåværende celleområdetOmråde ("A1"). Slutt (xlDown) .VelgSlutt Sub |
Teller rader
Følgende fremgangsmåte lar deg bruke xlDown konstant med egenskapen Range End for å telle hvor mange rader det er i din nåværende region.
| 12345678 | Sub GoToLastRowofRange ()Dim rw As IntegerOmråde ("A1"). Velg'få den siste raden i den nåværende regionenrw = Område ("A1"). Slutt (xlDown) .Rad'viser hvor mange rader som brukesMsgBox "Den siste raden som ble brukt i dette området er" & rwSlutt Sub |
Mens den nedenfor vil telle kolonnene i området ved hjelp av xlToRight konstant.
| 12345678 | Sub GoToLastCellofRange ()Dim col As IntegerOmråde ("A1"). Velg'få den siste kolonnen i den nåværende regionencol = Range ("A1"). Slutt (xlToRight) .Column'vise hvor mange kolonner som brukesMsgBox "Den siste kolonnen som ble brukt i dette området er" & kolSlutt Sub |
Opprette et områdeområde
Fremgangsmåten nedenfor lar oss starte med den første cellen i et celleområde, og deretter bruke End (xlDown) -egenskapen for å finne den siste cellen i celleområdet. Vi kan deretter ReDim vårt utvalg med de totale radene i området, og dermed la oss gå gjennom cellecelleområdet.
| 123456789101112131415161718 | Sub PopulateArray ()'erklærer matrisenDim strSuppliers () As String'erklærer heltallet for å telle radeneDim n Som heltallteller radenen = Range ("B1", Range ("B1"). End (xlDown)). Rows.Count'initialiser og fyll ut matrisenReDim strCustomers (n)'deklarerer heltallet for loopingDim i As Integer'fyll ut matrisenFor i = 0 Til nstrCustomers (i) = Range ("B1"). Offset (i, 0) .VærdiNeste jeg'vis meldingsboks med verdier av matriseMsgBox Join (strCustomers, vbCrLf)Slutt Sub |
Når vi kjører denne prosedyren, returnerer den følgende meldingsboks.
