Автоматично маркиране и преброяване на използвания диапазон от клетки на Excel с VBA

Нуждаете се от макроса "UsedRange", за да маркирате или преброите всички клетки, използвани в таблица, използвайки макрос. Използвайки два примера, ще ви покажем как да го използвате правилно.

Ако искате да обработвате клетки в таблиците си с помощта на макроси, трябва да се ограничите до клетките, които действително съдържат съдържание. Това е по -лесно и много по -бързо от търсенето във всички клетки във всички колони и редове. Excel ви предлага имота за тази цел UsedRange в. Той се отнася до всички използвани клетки на таблица и доставя a Обхват-Обект.

Използвайте UsedRange, за да маркирате използваните клетки на Excel

Следният макрос показва как да използвате имота на практика:

Sub MarkAllUsedCells ()
ActiveSheet.UsedRange.Select
End Sub

Следващата фигура показва как може да изглежда, когато макросът се използва в таблица. Всички използвани клетки са маркирани:

Макросът винаги маркира клетките в активната таблица. Ако искате да използвате друга таблица, заменете обекта ActiveSheet като се обърнете към съответната таблица.

Как да преброите използваните диапазони от клетки в Excel

За да преброите броя клетки в таблица, съдържаща формула, използвайте следния макрос:

Под формулиCounting ()

Dim Cell As Range Dim Count като Double Count = 0 За всяка клетка в ActiveSheet.UsedRange. Клетки Ако клетка. HasFormula Тогава Counter = Counter + 1 Следваща клетка MsgBox ("Има" & Str $ (Counter) & "клетки с формули в активната таблица.")

End Sub

Макросът задава свойството UsedRange.Cells това дава възможност за препращане към всички клетки, които се използват в таблицата. Ако клетка съдържа формула, променливата "Counter" се увеличава с 1. След това резултатът се извежда в прозорец за съобщение: