清除全部内容

Question

我正在尝试编写将完全擦除工作簿中的单元格内容的代码。

我想要两个类似的Subs：一个Sub清除所有内容，另一个Sub清除从第2行开始到最后一行的所有内容。

我使用下面的代码，但它返回一个错误：

Sub Populate_RA_Sheet() 
    ' 
    ' Populate_RA_Sheet Macro 
    ' 
    RA_Sheet(2).Cells.ClearContents 
    ' 
End Sub 

Answer 1

比方说，工作表的名称为Sheet1然后

One code clear all content

ThisWorkbook.Sheets("Sheet1").Cells.ClearContents 

and other code clear all contents starting from 2nd row till the last row whatever it is.

你可以找到最后行然后清除内容。但你为什么要这么做？第二排之后只需清除ALL行？

With ThisWorkbook.Sheets("Sheet1") 
    .Rows("2:" & .Rows.Count).ClearContents 
End With 

如果仍然要清除从第二排开始直至最后一行然后看看如何找到最后一行THIS所有内容，一旦你的最后一排，然后简单地使用这个

With ThisWorkbook.Sheets("Sheet1") 
    .Rows("2:" & LastRow).ClearContents 
End With 

注意：

1. 将上面的代码，如果说电池失败被合并。所以要小心:)
2. 此代码将清除单元格，但不删除任何形状/格式。你将不得不单独处理它。