试图确保从第73行删除

Question

Sub DelLastRow()
Worksheets(CTDs).Select
Range("A1:Z72").End(xlDown).Select
Range(Selection, Selection.End(xlToRight)).ClearContents
End Sub

我收到超出范围的错误订阅

Answer 1

错误最有可能来自范围。您正在选择范围（“A1：z72”），但之后您将清除选择的内容，然后选择selection.end（xlRoRight）。

更改

Range("A1:Z72").End(xlDown).Select
Range(Selection, Selection.End(xlToRight)).ClearContents

要     范围。（ “A1：Z72”）结束（xlDown）.ClearContents

当你

Range(Selection, Selection.End(xlToRight))

不是正确的范围。它说的是

Range("A1:Z72","Z72"). 

毫无意义

Answer 2

这是一种方式：

    range(rows(73), rows(73).end(xlDown)).ClearContents

或更直接：

    [73:1048576].ClearContents