Этот код иногда работает или иногда через сообщение об ошибке во время выполнения

Question

Код, упомянутый ниже, иногда работает и иногда выдает сообщение об ошибке

Может кто-нибудь сказать мне, почему это происходит, или какую-либо альтернативу этому

Sheet1.Range("H2", Range("O" & Rows.Count).End(xlUp)).Clear

Сообщение об ошибке

"Run-time error '1004':Application defined or object-defined error"

Answer 1

Теперь это должно работать:

With Sheet1

.Range("H2", .Range("O" & .Rows.Count).End(xlUp)).Clear

End With

Только первый диапазон был Получение ссылки на лист, функции второго диапазона и строки не были.

Answer 2

Option Explicit

Sub test()

    Dim LastRow As Long

    'Create a with statement referring BOTH workbook & worksheet to avoid errors if you have another workbook open
    With ThisWorkbook.Worksheets("Sheet1")
        'Calculate LastRow and check if it is correct
        LastRow = .Cells(.Rows.Count, "O").End(xlUp).Row
        'Clearly show your range to be clear
        .Range("H2:O" & LastRow).Clear
    End With

End Sub