„UsedRange“ - raskite paskutinį kartą naudotą langelį, stulpelį ar eilutę
Šis kodas grąžins pranešimų laukelį, nurodantį bendrą darbo lape naudojamų eilučių skaičių. Tuščios eilutės laikomos naudojamomis, jei duomenys eina po tuščios eilutės.
| 1 | „MsgBox ActiveSheet.UsedRange.Rows.Count“ |
Ar turite paleisti kilpą lape, bet nežinote, kur duomenys sustoja? „ActiveSheet.UsedRange.Rows.Count“ gali padėti.
Įdėkite tai į modulį:
| 123456789 | Paskutinė eilutė ()Dim LastRow As IntegerLastRow = ActiveSheet.UsedRange.Rows.Count„MsgBox LastRow“Pabaiga Sub |
| 123456789 | Sub LastCol ()Dim LastCol kaip sveikasis skaičiusLastCol = ActiveSheet.UsedRange.Col.Count„MsgBox LastCol“Pabaiga Sub |
Raskite pirmą tuščią langelį
Naudojant VBA gali tekti rašyti į pirmą tuščią langelį arba po paskutinės stulpelio eilutės. Norėdami tai rasti, nereikia kilpos, šis kodas tai padarys už jus.
Šiame pavyzdyje kodas rašys „FirstEmpty“ į pirmą tuščią langelį stulpelyje „d“
| 1234 | Public Sub AfterLast ()ActiveSheet.Range ("d" ir ActiveSheet.Rows.Count) .End (xlUp) .Offset (1, 0) .Value = "FirstEmpty"Pabaiga Sub |
Skaičiuokite naudotus stulpelius darbalapyje
Šis kodas pranešimų laukelyje grąžins bendrą darbalapyje naudojamų stulpelių skaičių. Tušti stulpeliai laikomi naudojami, jei duomenys pateikiami po tuščio stulpelio.
| 1 | „MsgBox ActiveSheet.UsedRange.Columns.Count“ |
Paskutinį kartą naudojama ląstelė - problemos
Kai man reikia Už … Kitas … Peržiūrėkite visą stulpelį, dažniausiai naudoju „ActiveSheet.UsedRange.Rows.Count“, kad surastumėte, kur sustoti. Man visada pasisekė su šiuo požiūriu.
Taip pat žinau, kad kartais „Excel“ mano, kad paskutinė eilutė kažkur egzistuoja, tačiau eilutė iš tikrųjų yra tuščia. Tai mačiau kelis kartus po duomenų importavimo. Iš „BeyondTechnology“:
Darbo lapo objektas „UsedRange“ ne visada veikia, nes naudojamas skaičiuoklės diapazonas (arba „nešvari sritis“) gali būti didesnis nei jūsų įrašų faktiškai užpildytas plotas.
