Получение ошибки во время выполнения 1004 Как остановить ошибку

Question

У меня есть следующий код, который я продолжаю получать ошибку времени выполнения 1004.Как или что вы можете предложить, чтобы остановить ошибку на ActiveCell.Offset(1, 0).Select в приведенном ниже коде:

Sub RowCounter (count)

Counter = 1
Do Until ActiveCell = ""
Counter = counter + 1
ActiveCell.Offset(1, 0).Select
Loop

Count = Counter > 2000000

Answer 1

Код подсчитывает, сколько ячеек со значением находятся ниже активной ячейки. Попробуйте это, чтобы избежать ошибки, показывая ответ в MsgBox():

Sub RowCounter()

    Dim counter As Long
    counter = 1
    Do Until ActiveCell = "" Or ActiveCell.Row <> Rows
        counter = counter + 1
        ActiveCell.Offset(1, 0).Select
    Loop

    MsgBox counter

End Sub

Or ActiveCell.Row <> Rows обязательно завершит работу, если ActiveCell находится в последнем ряду электронной таблицы Excel.

Что касается деталей .Select и ActiveCell, ознакомьтесь с этой темой, чтобы узнать, как ее улучшить:

• Как избежать использования Select в Excel VBA