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

我使用下面的代码来清除A2：H2行中的内容，除了第一个有标题的行之外。如果中间没有空白单元格，此代码运行良好。但是，如何清除所有事件，尽管存在空白单元格？使用excel清除除第一行以外的整行数据VBA

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

来源

2017-09-01 acr

而不是

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

尝试

s1Sheet.Range("A2:H" & s1Sheet.Cells(s1Sheet.Rows.Count, "A").End(xlUp).Row).

或

With s1Sheett 
    .Range("A2:H" & .Cells(.Rows.Count, "A").End(xlUp).Row).ClearContents 
End With

这里最后一行数据使用Column A计数。

来源

2017-09-01 05:39:45 Mrig

@acr - 查看我的更新回答。 – Mrig

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

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

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

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

来源

2018-02-01 15:33:31 Jurjen

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

回答

相关问题