msgbox "Выделенный диапазон содержит " & Selection.Rows.count & "строк"

For Each a In Range("задан произвольный "рваный" диапазон").Areas
    Debug.Print a.Rows.Count
Next a

Sub Count_Rows()
    Dim lCount As Long, rArea As Range
    For Each rArea In Selection.Areas
        lCount = lCount + rArea.Rows.Count
    Next rArea
    MsgBox "Выделенный диапазон содержит " & lCount & " строк"
End Sub

Function nr(ParamArray rng())
    On Error Resume Next
    Dim x, r, cl As New Collection
    For Each r In rng
    For Each x In r.Cells
        cl.Add  0 , CStr(x.Row)
    Next x, r
    nr = cl.Count
End Function

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы