Сейчас этот код обрабатывает весь столбец. Как ограничить строкой (например 60), либо переменной?
Sub Макрос()
Dim count As Long, c As Long
' Запись в переменную 'c' номера столбца, который надо анализировать.
c = 1
' Подсчёт количества непустых ячеек во всём указанном столбце.
count = Application.WorksheetFunction.CountA(Columns(c))
End Sub
Sub Макрос()
Dim count As Long, c As Long
' Запись в переменную 'c' номера столбца, который надо анализировать.
c = 1
' Подсчёт количества непустых ячеек в указанном столбце, в строках 1 - 60.
count = Application.WorksheetFunction.CountA(Columns(c).Rows("1:60"))
End Sub
Администратор, спасибо за помощь - всё заработало.
Как вместо числа 60 указать переменную? Переменную нужно рассчитать по такому принципу. В заданном столбце надо найти первое попавшееся слово "ИТОГО:". В переменную записать номер строки, в которой найдено "ИТОГО:".
Макрос
Sub Макрос()
Dim count As Long, c As Long, lr As Long
' Запись в переменную 'c' номера столбца, который надо анализировать.
c = 1
' Поиск последней строки. Для этого ищется фраза 'ИТОГО:'.
lr = WorksheetFunction.Match("ИТОГО:", Columns(c), 0)
' Подсчёт количества непустых ячеек в указанном столбце, в строках с 1 по lr.
count = Application.WorksheetFunction.CountA(Columns(c).Rows("1:" & lr))
End Sub
Огромное спасибо, всё заработало.