VBS: создать макрос,который в массиве чисел (5х4) заменяет значения ячеек, которые имеют числа меньше 10 на 0.

[sheleptanya]

помогите пожалуйста с задачкой у экселе на бейсике: создать макрос,который в массиве чисел (5х4) заменяет значения ячеек, которые имеют числа меньше 10 на 0. Выводить на экран количество ячеек в которых проведено изменения у виде фразы "количество изменений:_число"

[Рустам]

     
    a = 4   'высота
    b = 5   'ширина
    c = 0   'кол-во замен
    For i = 1 To a Step 1
    For j = 1 To b Step 1
        If Application.Cells(i, j) < 10 Then
            Application.Cells(i, j) = 0
            c = c + 1
        End If
    Next
    Next
    Application.Cells(5, 1) = "количество замен:"
    Application.Cells(5, 4) = c