使用excel VBA清除除第一行之外的整行数据

Question

我正在使用下面的代码来清除 A2:H2 行中的内容，除了我有标题的第一个行。如果中间没有空白单元格，则此代码运行良好。但是，即使有一个空白单元格，我如何清除所有内容？

Sub Clear()

Dim s1Sheet As Worksheet

Set s1Sheet = Workbooks("StockScreen.xlsm").Sheets("TimeStampWork")

s1Sheet.Range(s1Sheet.Range("A2:H2"), s1Sheet.Range("A2:H2").End(xlDown)).ClearContents

End Sub

Answer 1

下面是我的示例代码：

Sub ClearContentExceptFirst()
    Rows("2:" & Rows.Count).ClearContents
End Sub

Answer 2

如果您只想删除从特定行号到特定行号的整行，可以避免使用Range和Cell属性，而是可以使用以下Rows属性：

s1Sheett.Rows("2:10").ClearContents

或者，如果您想删除从特定行号到最后一行数据的所有内容，您可以使用：

s1Sheett.Rows("2:" & currentSheet.Rows.Count).ClearContents