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

这是我的代码，

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

在指定的范围内被遗忘的列

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

Answer 2

可能用下一个循环迭代行，然后像这样删除整行：

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

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

 Rows("2:" & lastrow).delete