vba - 清除所有内容

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

如果你 还是 想要清除从第 2 行到最后一行的所有内容然后查看 THIS关于如何找到最后一行，一旦你得到最后一行，然后只需使用它

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

备注 :

如果说 Cell A1:A2，上面的代码将失败被合并。所以要小心:)

此代码将清除单元格但不会删除任何形状/格式。您将不得不单独处理它。