清除所有内容

Question

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

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

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

Sub

Answer 1

我们说这张表的名称是Sheet1然后

  

一个代码清除所有内容

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

  

和其他代码清除从第2行到最后一行的所有内容，无论它是什么。

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

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

如果仍想要清除从第2行到最后一行的所有内容，请参阅THIS有关如何查找最后一行的信息，一旦获得最后一行，则只需使用此

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

注意：

1. 如果说合并了单元格A1:A2，则上述代码将失败。所以要小心：）
2. 此代码将清除单元格但不删除任何形状/格式。你必须单独处理它。