Markera och räkna automatiskt använt Excel -cellintervall med VBA

Du behöver makroet "UsedRange" för att markera eller räkna alla celler som används i en tabell med hjälp av ett makro. Med hjälp av två exempel visar vi dig hur du använder detta korrekt.

Om du vill bearbeta celler i dina tabeller med hjälp av makron bör du begränsa dig till de celler som faktiskt innehåller innehåll. Detta är enklare och mycket snabbare än att söka igenom alla celler i alla kolumner och rader. Excel erbjuder dig fastigheten för detta ändamål UsedRange på. Det hänvisar till alla använda celler i ett bord och levererar ett Räckvidd-Objekt.

Använd UsedRange för att markera de Excel -celler som används

Följande makro visar hur du använder fastigheten i praktiken:

Sub MarkAllUsedCells ()
ActiveSheet.UsedRange.Select
Avsluta Sub

Följande bild visar hur det kan se ut när makrot används i en tabell. Alla celler som används är markerade:

Makrot markerar alltid cellerna i den aktiva tabellen. Om du vill använda en annan tabell, byt ut objektet ActiveSheet genom att hänvisa till den relevanta tabellen.

Hur man räknar de använda cellområdena i Excel

Använd följande makro för att räkna antalet celler i en tabell som innehåller en formel:

DelformlerCounting ()

Dim Cell As Range Dim Count As Double Count = 0 För varje cell i ActiveSheet.UsedRange. Celler Om cell. HasFormula Then Counter = Counter + 1 Next cell MsgBox ("There are" & Str $ (Counter) & "cells with formels in the active table.")

Avsluta Sub

Makrot ställer in egenskapen UsedRange.Cells som gör det möjligt att referera till alla celler som används i tabellen. Om en cell innehåller en formel ökas "räknaren" -variabeln med 1. Resultatet matas sedan ut i ett meddelandefönster:

Du kommer att bidra till utvecklingen av webbplatsen, dela sidan med dina vänner

wave wave wave wave wave