Automaticky označte a spočítejte použitý rozsah buněk aplikace Excel pomocí VBA

Makro „UsedRange“ potřebujete k označení nebo spočítání všech buněk použitých v tabulce pomocí makra. Na dvou příkladech vám ukážeme, jak to správně používat.

Pokud chcete zpracovávat buňky ve svých tabulkách pomocí maker, měli byste se omezit na buňky, které ve skutečnosti obsahují obsah. To je jednodušší a mnohem rychlejší než prohledávat všechny buňky ve všech sloupcích a řádcích. Excel vám k tomuto účelu nabízí nemovitost Použitý rozsah na. Vztahuje se na všechny použité buňky tabulky a dodává a Rozsah-Objekt.

Použitím UsedRange označte použité buňky Excelu

Následující makro ukazuje, jak vlastnost v praxi používat:

Sub MarkAllUsedCells ()
ActiveSheet.UsedRange.Select
End Sub

Následující obrázek ukazuje, jak to může vypadat, když je makro použito v tabulce. Všechny použité buňky jsou označeny:

Makro vždy označí buňky v aktivní tabulce. Pokud chcete použít jinou tabulku, vyměňte objekt ActiveSheet odkazem na příslušnou tabulku.

Jak počítat použité rozsahy buněk v Excelu

Chcete -li spočítat počet buněk v tabulce, které obsahují vzorec, použijte následující makro:

Dílčí vzorce Počítání ()

Dim Cell as Range Dim Count as Double Count = 0 For each cell in ActiveSheet.UsedRange. Buňky If cell. HasFormula Then Counter = Counter + 1 Next cell MsgBox ("There are" & Str $ (Counter) & "cells with formulas in the active table.")

End Sub

Makro nastavuje vlastnost UsedRange.Cells to umožňuje odkazovat na všechny buňky, které se v tabulce používají. Pokud buňka obsahuje vzorec, proměnná „Počitadlo“ se zvýší o 1. Výsledek se pak zobrazí v okně zprávy:

Vám pomůže rozvoji místa, sdílet stránku s přáteli

wave wave wave wave wave