Задание
Двумерный диапазон начинающийся с ячейки С4 заполнен целыми числами. Сформировать в строке, расположенной через одну, после последней, одномерный массив, каждый элемент которого равен количеству элементов соответствующего столбца меньше 10.
Введение
Dim M As Integer, N As Integer
Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer, Count As Integer
M = 0
N = 0
Rem пока не встретилась пустая ячейка в строке 4 - наращиваем N и находим количество столбцов
While Cells(4, N + 3) ""
N = N + 1
Wend
Rem пока не встретилась пустая ячейка в столбце 3 ("C") - наращиваем M и находим количество строк
While Cells(M + 4, 3) ""
M = M + 1
Wend