如何清除细胞/范围内容？

Question

这是我的代码，

Sub Clear_click()
    Dim lastrow As Long
    lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    Range("A2" & lastrow).ClearContents
End Sub

由于Excel有很多行，我如何从清除第二行的内容开始，例如。（ A2 ）到最后一行数据。最后一行数据可以是任何地方。

Answer 1

可能使用for for next迭代行并删除整行，如下所示：

For i = 2 To lastrow
    Rows(i).EntireRow.Delete
Next i

或删除所需范围内的所有行，如下所示：

Rows("2:" & lastrow).delete

Answer 2

指定范围内的遗忘列

Range("A2:A" & lastrow).ClearContents