определить количество ячеек

[scals]

помогите пожалуйста с макросом. надо подсчитать сумму ячеек в заданном столбце значение которых равно или больше задоного

[Скрипт]

Использование только средств VBA.

Sub Procedure_1()

    Dim myArray() As Variant
    Dim myItem As Variant
    Dim myNumber As Double
    Dim myCount As Long
    
    'Помещаем в переменную "myNumber" число,
        'с которым будем сравнивать числа из столбца.
    'Символ "#" используется, чтобы присвоить константе "1"
        'тип данных "Double", т.к. числа могут быть в столбце
        'целые и дробные, а "Double" используется для работы с дробными числами.
    myNumber = 1#
    
    'Быстрее работать с VBA-массивом, чем с ячейками Excel-листа.
    'Поэтому помещаем данные из Excel-листа в VBA-массив.
    myArray() = Range("A1:A100").Value
    
    'Просматриваем каждый элемент VBA-массива.
    For Each myItem In myArray()
        'Сравниваем число из элемента массива с заданным числом.
        If myItem >= myNumber Then
            'В переменную "myCount" помещаем сумму того, что
            'уже находится в переменной "myCount" и числа "1".
            myCount = myCount + 1
        End If
    Next myItem
    
    'Выводим на монитор результат.
    'Символ "&" используеся для соединения фрагментов текста в одну строку.
    MsgBox "Количество: " & myCount

End Sub

[Казанский]

Функция СЧЕТЕСЛИ, в макросе Application.CountIf

[scals]

огромное спасибо все работает