清除列数据

Question

我试图找出如何清除A2到列末尾的数据。 从理论上讲，矿井代码是可行的，但前提是选择器位于范围之外以便清除。

Sub ClearData()

Worksheets("aa").Range("a2", 
Worksheets("aa").Range("a2").End(xlDown)).ClearContents

End Sub

有什么想法吗？

Answer 1

我确定之前已经被要求和回答了一百万次。我不知道你的选择是什么意思＆＃39;。

Sub ClearData()

With Worksheets("aa")
    .Range("a2", .Range("a" & .Rows.Count).End(xlUp)).ClearContents
End With

End Sub

Answer 2

不要担心数据的实际结束：

Sub ClearData()

    With Worksheets("aa")
        .Range("A2:A" & Rows.Count).ClearContents
    End With

End Sub

工作得很好。