清除所有内容

Question

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

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

我正在使用以下代码，但返回错误：

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

Answer 1

假设工作表的名称为Sheet1然后

一条代码清除所有内容

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

其他代码则清除从第二行到最后一行的所有内容。

您可以找到最后一行，然后清除内容。 但是为什么要这么做呢？ 只需清除第二行之后的ALL行？

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

如果您仍要清除从第二行到最后一行的所有内容，请参阅本指南 ，了解如何找到最后一行，一旦获得最后一行，则只需使用此方法

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

注意事项 ：

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