Попытка найти количество строк в конкретном листе

Question

Обновление: Я разобрался в своей ошибке - переменная sheetRange нуждалась в Sheets ("Расписание"). добавил к этому также

Приносим извинения за неудобства. У меня относительно простая проблема в том, что я пытаюсь использовать VBA, чтобы найти количество строк в определенном листе. Я получаю всплывающее окно, которое просто говорит 400, и я не совсем уверен, где мой синтаксис выключен.

Sub PhxCheck()


Dim i As Integer, x As Integer, numofRows As Integer
Dim top As Range, bottom As Range, sheetRange As Range
Dim phxContract As String, contractID As String


Set top = Sheets("Schedule").Range("A3")
Set bottom = Sheets("Schedule").Range("A65536").End(xlUp)
Set sheetRange = Range(top, bottom)
numofRows = sheetRange.Rows.Count

Cells(30, 1).Value = numofRows
End Sub

Ошибка возникает при добавлении листов («Расписание»). к верхнему и нижнему диапазонам.

Спасибо за вашу помощь!

Answer 1

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

Все, что вам нужно, это:

With Sheets("Schedule")
    Cells(30, 1).Value = .Range("A3", .Cells(Rows.Count, "A").End(xlUp)).Rows.Count
End With

Я понимаю, что вы решили свою проблему самостоятельно, но, возможно, вышеизложенное поможет вам или кому-то еще, ищущему подобную проблему.