Vba 试图确保它从第73行向下删除

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

错误很可能来自该范围。您正在选择范围（“A1:z72”），但随后将清除seleciton的内容，然后清除selection.end（xlRoRight）

改变

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

到 范围（“A1:Z72”）。结束（xlDown）。清除内容

当你

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

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

Range(Selection, Selection.End(xlToRight))

这毫无意义

这里有一个方法：

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

或者更直接地说：

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

---

你到底想达到什么目的？请编辑您的问题以澄清。

    [73:1048576].ClearContents