Подсчет количества заполненных строк.

[fuzzylogic]

Здравствуйте, уважаемые Гуру. Необходима помощь специалиста. Есть файл Excel (в аттаче), в котором очень много листов. Необходимо для каждого листа подсчитать количество заполненных строк (за исключением "шапки", т.е. с 5 строки), а затем просуммировать и получить общее количество заполненных строк для всех листов.
Заранее спасибо за помощь.

[Dophin]

Sub pp()
Dim sh As Worksheet
Dim sum As Integer
Dim i As Integer
For Each sh In Worksheets
i = sh.Cells(Rows.Count, 1).End(xlUp).Row
If i > 4 Then
sum = sum + i - 4
End If
Next sh
MsgBox "всего " & sum & " строк"
End Sub

[The_Prist]

Dophin, можно поворчу?

Dim i As Integer
i = sh.Cells(Rows.Count, 1).End(xlUp).Row

Объявляя переменную i как Integer необходимо учитывать тот момент, что максимальный предел для переменной данного типа - 32767(для отрицательных значений - -32768). Из этого следует, что если строк будет больше этого числа - Вы получите ошибку. При работе со строками лучше использовать тип Long. Он может принять целое число до 2147483647(и к тому же инициализируется быстрее).

Тоже самое и с переменной sum. Она-то вообще собирает данные со всех листов.

[fuzzylogic]

Большое спасибо за оперативную помощь! Но есть небольшая загвоздка:
после выполнения кода пишет что всего 91 строка, на самом же деле их 96. Может быть подскажите где копать? Вроде бы код, который Вы предоставили, верный.

[Dophin]

2 The_Prist: спасибо, учту на будущее

2 fuzzylogic: последняя заполненная строка ищется в первом столбце, Вам скорее всего надо в седьмом, если да то замените

i = sh.Cells(Rows.Count, 1).End(xlUp).Row

на

i = sh.Cells(Rows.Count, 7).End(xlUp).Row

[fuzzylogic]

Сообщение от Dophin

2 The_Prist: спасибо, учту на будущее

2 fuzzylogic: последняя заполненная строка ищется в первом столбце, Вам скорее всего надо в седьмом, если да то замените

i = sh.Cells(Rows.Count, 1).End(xlUp).Row

на

i = sh.Cells(Rows.Count, 7).End(xlUp).Row

Насколько я понял счетчик увеличивается только если в столбце 1 или 7 есть значение. Т.е. если к примеру в 1 (или 7) столбце ячейка будет пустая, а в других ячейках этой строки что-нибудь будет, то строка будет считаться пустой?
Т.е. мне еще необходимо добавить проверку каждой ячейки данной строки?!
Спасибо за содействие )

[SAS888]

А что делать, если, например, на одном из листов (или нескольких) внутри заполненного диапазона встречаются пустые строки? Их считать? Предлагаемый код подсчитает во всех листах только заполненные строки (т.е. содержащие хотя бы 1 значение),начиная со строки 5, не зависимо от того, в каком из столбцов этих значений больше.

Sub pp1()
    Dim sh As Worksheet, sum As Long, i As Long
    For Each sh In Sheets
        For i = 5 To sh.UsedRange.Row + sh.UsedRange.Rows.Count
            If sh.Rows(i).Text = "" Then Else sum = sum + 1
    Next: Next
    MsgBox "всего " & sum & " заполненных строк"
End Sub

[fuzzylogic]

Спасибо большое, все прекрасно работает. Прям и не знаем чтобы без вас делали. Еще раз спасибо!

[korn8881]

встав те на лист
ЕСЛИ(ЕПУСТО(B9:B16);"";СЧЁТЗ($B$6:B 9))
наведите на формулу и поймете 2 диапазона столбец А и Б
встав те значения и внизу автосумму